End Sub

UserForm2.Show

Load UserForm2

Load объект

Шаг 32 - Инструкция Load

Loop

Dim TextLine

Dim MyStr, MyInt

Dim MyStr, MyInt

' Следующие присвоения используют инструкцию Let.

Let MyStr = "Привет"

Let MyInt = 5

Ниже приведены эквивалентные присвоения, не использующие инструкцию Let.

MyStr = "Привет"

MyInt = 5

Шаг 31 - Инструкция Line Input #

Читает строку из открытого последовательного файла и присваивает ее переменной типа String.

Line Input #номерФайла, имяПеременной

Параметры
номерФайла: Обязательный. Любой допустимый номер файла.
имяПеременной: Обязательный. Допустимое имя переменной типа Variant или String.

Замечания
Данные, считываемые с помощью инструкции Line Input #, обычно записываются в файл с помощью инструкции Print #.
Инструкция Line Input # последовательно считывает из файла по одному символу до тех пор, пока не встретит символ возврата каретки (Chr(13)) или комбинацию символов возврата каретки и перевода строки (Chr(13) + Chr(10)). Когда считанная строка присваивается переменной, символы возврата каретки и конца строки отбрасываются.

Пример

В данном примере инструкция Line Input # используется для чтения строки из последовательного файла и присвоения ее переменной. Предположим, что текстовый файл TESTFILE существует и содержит несколько строк текста.

Open "TESTFILE" For Input As #1 ' Открывает файл.

Do While Not EOF(1) ' Цикл до конца файла.

Line Input #1, TextLine ' Читает строку в переменную.

Debug.Print TextLine ' Выводит в окно "Отладка".

Close #1 ' Закрывает файл.

Загружает объект, но не отображает его на экране.

Параметры
объект: Прототип объект представляет собой объектное выражение, значением которого является один из объектов, перечисленных в списке "Применение".

Замечания
Когда объект загружается, он помещается в память, но не становится видимым. Чтобы сделать объект видимым, используется метод Show. Пока объект не станет видимым, пользователь не может взаимодействовать с ним, однако с объектом можно работать программным образом в его процедуре обработки события Initialize (Инициализация).

Пример
В данном примере в момент, когда для формы UserForm1 происходит событие "Инициализация" (Initialize), загружается форма UserForm2. При последующем выделении с помощью мыши UserForm2 открывается UserForm1.

' Процедура события "Инициализация" (Initialize)

' для формы UserForm1.

Private Sub UserForm_Initialize()

' Событие "Нажатие кнопки" (Click) для формы UserForm2.

Private Sub UserForm_Click()

Дата добавления: 2015-06-27