projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
(HAS_TEST): Remove.
[mono.git]
/
mcs
/
btests
/
EventF.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
Sub call_S()
14
dim x as C = new C()
15
AddHandler x.E, AddressOf xh
16
x.S()
17
End Sub
18
19
Sub xh()
20
Console.WriteLine("event called")
21
End Sub
22
End Class
23
24
Module M
25
Sub Main()
26
dim y as new C1
27
y.call_S()
28
End Sub
29
30
End Module