http://plasserre.developpez.com/cours/vb-net/
à Philippe pour tout ce travail Une erreur dans cette actualité ? Signalez-nous-la !
Envoyé par Shake1991
7 |
0 |
|
4 |
0 |
| Code : | Sélectionner tout |
1 2 3 4 5 6 7 8 | Dim C As String = "DUBONET"
Dim Tx As String
Dim i As Integer
For i = 1 To C.Length
Tx += C.Substring(0, i) + ControlChars.CrLf
Next i
TextBox1.Text = Tx |
|
3 |
0 |
Envoyé par lebeny
|
3 |
0 |
|
2 |
0 |
|
2 |
0 |
|
2 |
0 |
|
2 |
0 |
Envoyé par pape0
(dans les outils si mes souvenirs sont bons)
|
2 |
0 |
| Code : | Sélectionner tout |
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 |
|
2 |
0 |
