repo.or.cz
/
mono-project.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
**** Merged from MCS ****
[mono-project.git]
/
mcs
/
btests
/
EventG.vb
blob
d8532cb9bc6c3aac9c2f7a048a474942e37760f0
1
Imports System
2
3
Class C
4
Delegate
Sub
EH
()
5
Public Event
E
as
EH
6
7
Public Sub
S
()
8
RaiseEvent
E
9
End Sub
10
End
Class
11
12
Class C1
13
dim
x
as
C
=
new
C
()
14
15
sub
setHandler
()
16
AddHandler x
.
E
,
AddressOf xh
17
end sub
18
19
sub
unsetHandler
()
20
RemoveHandler x.E, AddressOf xh
21
end sub
22
23
Sub
call_S
()
24
x
.
S
()
25
End Sub
26
27
Sub
xh
()
28
Console
.
WriteLine
(
"event called"
)
29
End Sub
30
End
Class
31
32
Module
M
33
Sub
Main
()
34
dim
y
as new
C1
35
y
.
setHandler
()
36
y
.
call_S
()
37
y
.
unsetHandler
()
38
y
.
call_S
()
39
End Sub
40
41
End Module