projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2004-06-09 Atsushi Enomoto <atsushi@ximian.com>
[mono.git]
/
mcs
/
btests
/
EventC.vb
1
Imports System
2
3
Class C
4
Public Event E (ByVal i as integer)
5
6
Public Sub S()
7
RaiseEvent E(10)
8
End Sub
9
End Class
10
11
Class C1
12
dim WithEvents x as C = new C()
13
14
Sub call_S()
15
x.S()
16
End Sub
17
18
Sub EH(i as Integer) Handles x.E
19
Console.WriteLine("event called : " + i)
20
End Sub
21
End Class
22
23
Module M
24
Sub Main()
25
dim y as new C1
26
y.call_S()
27
End Sub
28
End Module
29
30