Page 49 - 6735

Модуль Module1

Можливо також створити додаткові модулі, з яких можна
звертатись до модуля UserForm1. Нижче показано модуль Module1
з процедурою main, в якій викликається метод Show об’єкта
UserForm1. Якщо виконати цю процедуру, то вікно UserForm1
з’явиться на екрані.

Public Sub main()
UserForm1.Show
End Sub

Обробка подій користувача

Об’єкт оголошений з ключовим словом WithEvents може
викликати події, які описані в його класі. У наступному прикладі
таким об’єктом є obj класу Class1 (дивіться модуль класу
Class1). У класі Class1 подія notNumber викликається
оператором RaiseEvent тоді, коли змінна vNewValue не є
числовим даним. Для створення процедури-обробника
obj_notNumber виберіть об’єкт obj і подію notNumber у списках
над кодом програми. Подія буде виникати після введення в поле
TextBox1 нечислового значення і оброблятись процедурою
obj_notNumber (рис. 2.5).

'Оголосити об'єкт класу Class1
Dim WithEvents obj As Class1 ' об'єкт може викликати події

Private Sub CommandButton1_Click()
Set obj = New Class1 'створити об'єкт obj
obj.z = 1
obj.x = TextBox1.Text 'тут може виникнути подія notNumber
TextBox1.Text = obj.y(5) 'вивести результат в TextBox1
End Sub

49