VBNet - Форум - запись значений из контролов в текстовый файл

Вопрос: запись значений из контролов в текстовый файл Добавлено: 29.04.11 22:44

Автор вопроса: Николай

пытаюсь сохранить все значения из textbox и label в текстовый файл:

Dim file_name As String = "conf/" & TextBox32.Text & ".ini"
        Dim fFile As Short
        fFile = FreeFile()
        FileOpen(fFile, file_name, OpenMode.Output)

        Dim cntr As Control
        For Each cntr In Me.Controls
            If TypeOf cntr Is TextBox Then
                PrintLine(fFile, cntr.Text)
            End If
            If TypeOf cntr Is Label Then
                PrintLine(fFile, cntr.Text)
            End If
        Next

        FileClose(fFile)

в результате получаю совершенно пустой файл хотя на форме много техтбоксов с заполнеными текстами :(

1.подскажите что делаю не так?
2.как можно подобным перебором записать значения CheckBox (чекед он или нет)?
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: MISTER X ICQ: 463865965 Вопросов: 31 Ответов: 190	Web-сайт: studioartf.ru Профиль \| \| #1	Добавлено: 04.06.11 20:25
	Собственно на чем пишешь?и еще. если тебе надо сохранить нечто вроди настроек можешь сделать это так(vb6) Private Sub Form_Load() Text1.Text = GetSetting(App.EXEName, "Settings", "text","Стандартный текст")'ставим значение text в сохраненное,если ниче не было сохранено,то выводим дефаулт Check1.Value = GetSetting(App.EXEName, "Settings", "check","0")'тоже самое только тут 0 это стандартное значние если небыло ничего записано End Sub Private Sub Text1_Change()'при изменении текста он сохранится SaveSetting App.EXEName, "Settings", "text", Text1.Text End Sub Private Sub Check1_Validate(Cancel As Boolean)'при отметке или снятии ее, параметр value сохранится SaveSetting App.EXEName, "Settings", "check", Check1.Value End Sub Ответить

Страница: 1 |