projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2004-08-19 Atsushi Enomoto <atsushi@ximian.com>
[mono.git]
/
mcs
/
btests
/
EventG.vb
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