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
/
Accessibility.vb
1
Imports System
2
Class C1
3
Public a As Integer
4
Private b As Integer
5
Friend c As Integer
6
Protected d As Integer
7
Public Sub S1() ' All data members of the class should be accessible
8
a=10
9
b=20
10
c=30
11
d=40
12
S2()
13
End Sub
14
Private Sub S2()
15
End Sub
16
End Class
17
Class C2
18
Inherits C1
19
Public Sub DS1() 'All data members except private members should be accessible
20
a=100
21
c=300
22
d=400
23
End Sub
24
End Class
25
Class C3
26
Public Sub S1() 'All public and friend members should be accessible
27
Dim myC As New C1()
28
myC.a=1000
29
myC.c=3000
30
End Sub
31
End Class
32
Module Accessibility
33
Sub Main()
34
Dim myC1 As New C1()
35
myC1.S1()
36
37
Dim myC2 As New C2()
38
myC2.DS1()
39
Dim myC3 As New C3()
40
myC3.S1()
41
End Sub
42
End Module