туплю с WithEvents

[Sirik]

не могу понять принцип работы, наведу код:

ФОРМА:

Код: Выделить всё

Option Explicit

Dim WithEvents h As Class1

Private Sub h_ok()
    MsgBox "yes"
End Sub

Private Sub Command1_Click()
    Dim g As New Class1
   
    Set g = New Class1
   
    g.geme 0
   
    Set g = Nothing
End Sub


Класс Class1:

Код: Выделить всё

Option Explicit

Public Event OK()

Public Function geme(t As Long)
    If t = 0 Then RaiseEvent OK
End Function


в чем трабл?

[Sirik]

если я прав, то моя ошибка была в том, что я объявлял разные классы
т.е. объявлял g а ловлю события h

[Amed]

Код: Выделить всё

Option Explicit

Dim WithEvents g As Class1

Private Sub g_ok()
    MsgBox "yes"
End Sub

Private Sub Command1_Click()
    Set g = New Class1
   
    g.geme 0
   
    Set g = Nothing
End Sub

[Sirik]

спасибо Amed я так и понял

вот только один вопросик возник (чисто ради интереса):
если я хочу принимать event'ы то я объявляю так:
Dim WithEvents g As Class1
а если протсо без event, то
Dim g As New Class1

[tyomitch]

Sirik, а в чём вопрос-то?

[Sirik]

на вопрос я уже получил ответ, меня интересует в чём разница объявлений:

Dim WithEvents g As Class1

или

Dim g As New Class1

[tyomitch]

Так ты же сам себе уже ответил:

если я хочу принимать event'ы то я объявляю так:
Dim WithEvents g As Class1
а если протсо без event, то
Dim g As New Class1

[Sirik]

я забыл в конце знак вопроса поставить

[tyomitch]

Разница в том, что в одном случае эвенты ловятся, а в другом нет.
Я просто не понимаю, чего тут можно не понять, после того, что ты уже написал

[Sirik]

написать я то написал, но хотел 100% убедиться.
тема закрыта