В классе
Public Event MyEvent()
и ессно в требуемых местах
RaiseEvent MyEvent
Что нужно приварить к проекту, чтобы этот Event был виден и в ДизайнТайм и в РанТайм
Yurich писал(а):В классе
Public Event MyEvent()
и ессно в требуемых местах
RaiseEvent MyEvent
Что нужно приварить к проекту, чтобы этот Event был виден и в ДизайнТайм и в РанТайм
tyomitch писал(а):Ничего. Все эвенты всегда видны и в ДизайнТайм и в РанТайм. А у тебя не так, что ли?
Dim WithEvents ss As Class1
Private Sub ss_MyEvent()
MsgBox "Ур-р-ра! Заработало", vbCritical, "error"
End Sub
Yurich писал(а):Явилось!!! Увиделось!!!
Шуруп - ГУД!!!
Последний (надеюсь) тут вопрос: А если эвентов 2 и более?
tyomitch писал(а):Я, наверное, опять торможу... Но что меняется-то от того, что их много?
Yurich писал(а):tyomitch писал(а):Я, наверное, опять торможу... Но что меняется-то от того, что их много?
Dim WithEvents aa As Class1
Dim WithEvents ss As Class1
Просто возникло сомнение. Ссылка будет на тот же класс. Как VB поймет, какой из эвентов я хочу обработать?
Dim WithEvents ss As Class1
Dim WithEvents aa As Class1
Private Sub ss_MyEvent()
MsgBox "Ур-р-ра! Заработало", vbCritical, "error"
End Sub
Private Sub aa_MyEvent()
MsgBox "Ур-р-ра! Заработало", vbCritical, "error"
End Sub
tyomitch писал(а):По тому, что в названии обработчика будет идти после знака подчёркивания
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 163