1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Class Test
Private _x As Integer
Private Shared _y As Integer
Sub F()
_x = 1 ' Ok, c'est équivalent à Me._x = 1.
_y = 1 ' Ok, c'est équivalent à Test._y = 1.
End Sub
Shared Sub G()
_x = 1 ' Erreur, on ne peut accéder à Me._x.
_y = 1 ' Ok, c'est équivalant à Test._y = 1.
End Sub
End Class
Shared Sub Main()
Dim t As New Test()
t._x = 1 ' Ok.
t._y = 1 ' Ok.
Test._x = 1 ' Erreur, on accède à x seulement par une instance.
Test._y = 1 ' Ok on peut accéder à y avec le nom de la classe car y est shared.
End Sub |
Partager