Как сохранить данные формы в VB 6.0

Формулировка задачи:

Если программка не очень большая и нет желания возиться с Регистром или INI файлами для сохранения данных формы можно использовать текстовый файл. Для начала подключим библиотечку: "Проект" > "Ссылки" > Microsoft Scripting Runtime В корне программы создаем

пустой

текстовый файл (например: Text.txt) В разделе деклараций пишем:Private myFSO As Object 'объявляем объектную переменнуюPrivate myTS As TextStream 'объявляем текстовый потокPrivate myFile As File 'объявляем файловую переменную Делаем 2-е процедурочки: 1-я для записи в файлPrivate Sub WriteLoadText(

FilePath

As String

)

'полный путь к файлу (пример: App.Path & "\Text.txt")Set myFSO = CreateObject("Scripting.FileSystemObject") Set myFile = myFSO.GetFile(FilePath) Set myTS = myFile.OpenAsTextStream(ForWriting) myTS.WriteLine Text1.Text 'записываем в 1 линию myTS.WriteLine Text2.Text

'записываем во 2 линию

myTS.WriteLine Combo1.Text

'записываем в 3 линию

'.... и т.д. myTS.CloseSet myFSO = NothingEnd Sub

2-я для считывания из файлаPrivate Sub ReadLoadText

(FilePath

As String

)

Set myFSO = CreateObject("Scripting.FileSystemObject") Set myFile = myFSO.GetFile(

FilePath)

Set myTS = myFile.OpenAsTextStream(ForReading)

'полный путь к файлу (пример: App.Path & "\Text.txt")

Text1.Text = myTS.ReadLine

'считываем из 1 линии Text2.Text = myTS.ReadLine

'считываем из 2 линии

Combo1.Text = myTS.ReadLine

'считываем из 3 линии

.... и т.д.

myTS.Close

Set myTS = NothingEnd Sub

Теперь для того, чтобы записать данные в файл вставим процедуру записи, например в событие кнопки "Выход"Private Sub Command1_Click()

Call WriteLoadText(

App.Path & "\Text.txt"

)

End End Sub

Запускаем программу. Нажимаем кнопку. Закрываем программу. Заходим в каталог с программой, открываем файл Text.txt и смотрим, что записалось. Теперь в процедуру загрузки формы вставим считывание из файла и запускаем программу.

Private Sub

Form_Load()Call

ReadLoadText(

App.Path & "\Text.txt"

)

End Sub Делать это надо именно в такой последовательности. Теперь при загрузке формы в ваших элементах будут отображаться данные ранее введенные.

Решение задачи: «Как сохранить данные формы в VB 6.0»

textual
                            Листинг программы 
                        

                            Dim MyFile
Dim i As Integer
Dim tS As String
MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
Open (App.Path + "\" + "1.txt") For Input As #MyFile 'Открываем файл 1.TXT для чтения
For i = 1 To 5
Line Input #MyFile, tS 'Читаем файл 1.TXT построчно
If i = 1 Then Text1.Text = tS
If i = 2 Then Text2.Text = tS
If i = 3 Then Text3.Text = tS
If i = 4 Then Text4.Text = tS
If i = 5 Then Text5.Text = tS
Next i
Close #MyFile 'Закрываем файл
                        