Добрый день, помогите разобраться почему не перехватывается собственное событие, пример во вложении.
создан класс1 здесь генерируется событие sobytie()
| Код |
|---|
Option Explicit
Public Event sobytie()
Private Sub Class_Initialize()
RaiseEvent sobytie
MsgBox "Toototo"
End Sub
|
создан класс2 для перехвата события (когда перехватиться событие появляется сообщение все ок)
| Код |
|---|
Option Explicit
Private WithEvents a As Class1
Private Sub a_sobytie()
MsgBox "Все ок"
End Sub
|
модуль для проверки
| Код |
|---|
Option Explicit
Sub primer()
Dim a As Class1
Set a = New Class1
End Sub
|
при запуске модуля, сообщение "все ок" не появляется, хотя должно
