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
/
EventA.vb
blob
bbfecccdcfae277d9ca200b89cdbf3a0f162baec
1
Imports System
2
3
Class C
4
Public Event
E
5
6
Public Sub
S
()
7
RaiseEvent
E
8
End Sub
9
End
Class
10
11
Class C1
12
dim WithEvents
x
as
C
=
new
C
()
13
Sub
call_S
()
14
x
.
S
()
15
End Sub
16
17
Sub
EH
()
Handles x
.
E
18
Console
.
WriteLine
(
"event called"
)
19
End Sub
20
End
Class
21
22
Module
M
23
Sub
Main
()
24
dim
y
as new
C1
25
y
.
call_S
()
26
End Sub
27
End Module