Dim MyObject As clsEmployee

Dim Percent As Single

Добавление в класс методов

End Sub

Конструкторы и деструкторы

Dim objBoss As New clsEmployee

Dim objEmployee As New clsEmployee

Public Property Set Super(objBoss As clsEmployee)

End Property

Private objSuper As clsEmployee

Public Property Get Super() As clsEmployee

Set Super = objSuper

Set objSuper = objBoss
End Property

Оператор Set применяется для задания значения объекта. Ключевое слово Set также должно использоваться в вызывающей программе при обращении к этому свойству:

objEmployee. Name ="Петров"

objEmployee. Adress = "Чехова,16"

objBoss. Name = "Градов"

objEmployee. Super = objBoss

Msgbox "Начальник Петрова - " & objEm­ployee. Super. Name

Следующим шагом при создании класса является разработка его конструкторов и деструкторов.

При создании нового объекта- экземпляра класса вызывается конструктор по умолчанию, инициализирующий этот объект и определяющий значения его свойств. После этого указатель (объектная переменная) связывается с объектом. В отличие от других объектно-ориентированных языков программирования, имеющих несколько конструкторов для объекта, Visual Basic имеет только один конструктор по умолчанию, не имеющий параметров. Роль конструктора по умолчанию играет обработчик события. Это событие возникает при создании объекта класса.

Private Sub Class_ Initialize()

nDeptNum = 1

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

Деструктор вызывается автоматически при уничтожении объекта. В Visual Basic объект уничтожаются, как и переменные при выходе из области их действия. Поэтому деструктор, как правило, не пишется. Роль деструктора выполняет обработчик события Terminate. Он вызывается, когда все ранее установленные ссылки на объект получают значение Nothing или указатели на объект перестают существовать, выйдя из области своего определения.

Для создания методов в собственных классах нужно добавить в модуль клас­са глобальные процедуры. Глобальные процедуры работают так же, как обычные подпрограммы и функ­ции, но ключевое слово Public означает, что они должны быть доступны пользователям объекта. На­пример, в класс служащих можно добавить процедуру Income.

Public Function Income() As Currency

Select Case DateDiff ("yyyy", MyObject. DateN, Now)

Case Is > 1

Percent =0.6

Case Is <= 1

Percent = 0.2

Дата добавления: 2014-12-10