VBNET-런타임 객체 이벤트 처리(AddHandler 및 RemoveHandler)
5913 단어 handler
AddHandler event, AddressOf eventhandler
RemoveHandler event, AddressOf eventhandler
1
Sub
TestEvents()
'
2
Dim
Obj
As
New
Class1
'
Associate an event handler with an event.
3
AddHandler
Obj.Ev_Event,
AddressOf
EventHandler
'
4
Obj.CauseSomeEvent()
'
5
RemoveHandler
Obj.Ev_Event,
AddressOf
EventHandler
'
.
6
Obj.CauseSomeEvent()
'
7
End Sub
8
9
Sub
EventHandler()
'
10
MsgBox
(
"
EventHandler caught event.
"
)
11
End Sub
12
13
Public
Class
Class1
'
.
14
Public
Event
Ev_Event()
'
Event -
15
Sub
CauseSomeEvent()
'
.
16
RaiseEvent
Ev_Event()
'
RaiseEvent
17
End Sub
18
End Class
19
20