repo.or.cz
/
mono-project.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
**** Merged from MCS ****
[mono-project.git]
/
mcs
/
btests
/
EventB.vb
blob
c4014dc6d70f0854d638ba4f0a4fd56651309c04
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 WithEvents
x
as
C
=
new
C
()
14
Sub
call_S
()
15
x
.
S
()
16
End Sub
17
18
Sub
EH
()
Handles x
.
E
19
Console
.
WriteLine
(
"event called"
)
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