projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Reflect latest API changes.
[mono.git]
/
mcs
/
btests
/
EventD.vb
1
Imports System
2
3
Class C
4
Delegate Sub EH()
5
Public Event E as EH
6
7
'Public Event E
8
9
Public Sub S()
10
RaiseEvent E
11
End Sub
12
End Class
13
14
Class C1
15
dim x as C = new C()
16
17
AddHandler x.E, AddressOf xh
18
19
Sub call_S()
20
x.S()
21
End Sub
22
23
Sub xh() 'Handles x.E
24
Console.WriteLine("event called")
25
End Sub
26
End Class
27
28
Module M
29
Sub Main()
30
dim y as new C1
31
y.call_S()
32
End Sub
33
34
End Module