Самоучитель VBA


         

Открывается файл последовательного доступа для



ИмяФайла = "c:\my_doc\book_ex\help.txt"

'

If ToggleButtonl.Value = True

Then TextBoxl.Visible = True

CommandButtonl.Visible = True

Открытие

End If

If ToggleButtonl.Value = False

Then CommandButtonl.Visible = False

TextBoxl.Visible = False

End If '

End Sub '

Private Sub UserForm_Initialize()

' Инициализация диалогового окна

'

With TextBoxl

.MultiLine = True

.ScrollBars = fmScrollBarsBoth

.Visible = False End With

ToggleButtonl.TripleState = False

With CommandButtonl

.Wordwrap = True

.Visible = False End With

UserForm2.Caption = "Файл последовательного доступа"

End Sub

Sub Запись()

' Запись файла

' Открывается файл последовательного доступа для записи информации

Open ИмяФайла For Output As Номер

' Содержание поля выводится в файл

'

Print #Номер, TextBoxl.Text

'

' Закрытие файла

'

Close Номер

'

End Sub

Sub Открытие()

'

' Считывание из файла в поле

' Открывается файл последовательного доступа для считывания информации

Open ИмяФайла For Input As Номер

' Содержание файла выводится в поле

'

TextBoxl.Text = Input(LOF(Номер), Номер)

'

' Закрытие файла '

Close Номер End Sub


Содержание  Назад  Вперед