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
(DISTFILES): Comment out a few missing files.
[mono-project.git]
/
mcs
/
mbas
/
Test
/
tests
/
Accessibility.vb
blob
7f81cc47c80c58f07ddd4816e7d6cdf67bfe64f5
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