Étape 11 : Le code : tableau d’objets
ce qui suit est le code pour 17 pictureboxes... ces agira comme nos blocs le code passera après l’instruction private sub
"Private Sub Tank_VS_Tank_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load"
For i = 1 à 17
b = nouveau PictureBox ' ajoute de nouveaux Integrateur
b. Visible = True ' fait bloque visible
b. BackColor = Color.Khaki ' rend couleur kaki bloqueur
Me.Controls.Add(b(i)) ' ajoute des bloqueurs de réservoir
Prochaine
Avec b (1) « taille et place bloquent 1
. Hauteur = 22
. Largeur = 100
. Gauche = 81
. Haut = 138
Se termine par
Avec b (2) « taille et place bloquent 2
. Hauteur = 200
. Largeur = 22
. Gauche = 159
. Haut = 159
Se termine par
Avec b(3) ' taille et place bloquent 3
. Hauteur = 200
. Largeur = 22
. Haut = 350
. Gauche = 159
Se termine par
Avec le point b 4 ' taille et place bloquent 4
. Hauteur = 22
. Largeur = 100
. Gauche = 81
. Haut = 550
Se termine par
Avec b (5) « taille et place bloc 5
. Hauteur = 22
. Largeur = 100
. Gauche = 404
. Haut = 0
Se termine par
Avec b(6) ' taille et place bloquent 6
. Hauteur = 200
. Largeur = 22
. Gauche = 443
. Haut = 22
Se termine par
Avec b(7) ' taille et place bloc 7
. Hauteur = 200
. Largeur = 23
. Gauche = 443
. Haut = 484
Se termine par
Avec b(8) ' taille et place bloquent 8
. Hauteur = 22
. Largeur = 100
. Haut = 680
. Gauche = 404
Se termine par
Avec b(9) ' taille et place bloc 9
. Hauteur = 200
. Largeur = 22
. Gauche = 631
. Haut = 253
Se termine par
Avec b(10) ' taille et place bloc 10
. Hauteur = 22
. Largeur = 100
. Gauche = 802
. Haut = 0
Se termine par
Avec b(11) ' taille et place bloquent 11
. Hauteur = 200
. Largeur = 22
. Gauche = 841
. Haut = 22
Se termine par
Avec b(12) ' taille et place bloc 12
. Hauteur = 200
. Largeur = 22
. Gauche = 841
. Haut = 484
Se termine par
Avec b(13) ' taille et place bloc 13
. Hauteur = 22
. Largeur = 100
. Gauche = 802
. Haut = 680
Se termine par
Avec b(14) ' taille et place bloc 14
. Hauteur = 22
. Largeur = 100
. Gauche = 1125
. Haut = 137
Se termine par
Avec b(15) ' taille et place bloc 15
. Hauteur = 200
. Largeur = 22
. Gauche = 1125
. Haut = 159
Se termine par
Avec b(16) ' taille et place bloc 16
. Hauteur = 200
. Largeur = 22
. Gauche = 1125
. Haut = 350
Se termine par
Avec b(17) ' taille et place bloc 17
. Hauteur = 22
. Largeur = 100
. Gauche = 1125
. Haut = 550
Se termine par
End Sub