mcs/mbas/Test/tests/general/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