End Sub

Unload UserForm2

End Sub

UserForm2.Show

Load UserForm2

Unload объект

Шаг 70 - Инструкция Unload

End Sub

End Type

HireDate As Date

Phone As Long

Dim Washington(1 To 100) As StateData

End Type

Type StateData

CityCode (1 To 100) As Integer ' Описывает статический массив.

County As String * 30

В предыдущем примере StateData включает статический массив CityCode, а запись Washington имеет одинаковую со StateData структуру.
При описании массива фиксированного размера с типом, определяемым пользователем, его размерности должны описываться с помощью числовых литералов или констант, а не с помощью переменных.
Значение, задаваемое в инструкции Option Base, определяет нижнюю границу индексов для массивов, содержащихся в типах данных, определяемых пользователем.

Пример
В данном примере инструкция Type используется для определения типа данных. Инструкция Type используется только на уровне модуля. При появлении в модуле класса инструкции Type должно предшествовать ключевое слово Private.

Type EmployeeRecord ' Тип, определенный пользователем.

ID As Integer ' Элементы типа данных.

Name As String * 20

Address As String * 30

Sub CreateRecord()

Dim MyRecord As EmployeeRecord ' Объявляет переменную.

' Присвоение значений элементам переменной EmployeeRecord

' должно выполняться в процедуре.

MyRecord.ID = 12003 ' Присваивает значение элементу.

Удаляет объект из памяти.

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

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

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

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

' для формы UserForm1.

Private Sub UserForm_Initialize()

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

Private Sub UserForm_Click()

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

Private Sub UserForm_Click()

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