projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2004-06-09 Sebastien Pouliot <sebastien@ximian.com>
[mono.git]
/
mcs
/
btests
/
EventD.vb
1
Imports System
2
3
Class C
4
Delegate Sub EH(ByVal i as integer)
5
Public Event E as EH
6
7
Public Sub S()
8
RaiseEvent E(10)
9
End Sub
10
End Class
11
12
Class C1
13
dim WithEvents x as C = new C()
14
15
Sub call_S()
16
x.S()
17
End Sub
18
19
Sub EH(i as Integer) Handles x.E
20
Console.WriteLine("event called : " + i)
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
End Module
30
31