Лекция: Пример работы с коллекцией объектов, свойствами и методами объектов.
Пример 59. Объявить событие в модуле класса, а запрограммировать его в модуле формы.
Пусть событие (назовем его MTS) имеет два параметра. Первый – числовой, второй – логический. Событие будет реализовываться в методе Long1. Выполните следующие действия.
· Создайте новый проект с шаблоном Standard EXE.
· С помощью команды Project\Add Class Module добавьте модуль класса с именем Class1 в проект, используя шаблон Class Module на закладке New.
· Поместите в него следующий код.
Public Event MTS(ByVal Percent As Single, ByRef Cancel As Boolean)
Public Sub Long1(ByVal f As Single, c As Boolean)
RaiseEvent MTS(f, c) 'Вызов события MTS с двумя параметрами
End Sub
· Теперь добавьте в область GD окна Code модуля формы следующий код:
Private WithEvents mW As Class1, nCancel As Boolean, r As Single
'Ключевое слово WithEvents означает, что объект mW содержит события
Private Sub Command1_Click()
nCancel = False
r = Rnd
Set mW = New Class1 'Создание нового объекта на основе класса
Call mW.Long1(r, nCancel) 'Обращение к методу Long1
Text2 = nCancel 'Выводим значение, возвращаемое из события
Set mW = Nothing
End Sub
Private Sub Form_Load()
Text1 = Format(r, «0 %»)
Text2 = ""
End Sub
Private Sub mW_MTS(ByVal Percent As Single, _