Stap 11: De code: object matrix
de volgende code is voor 17 pictureboxes... Dit zal fungeren als onze blokken de code zal gaan na de instructie private sub
"Private Sub Tank_VS_Tank_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) handgrepen MyBase.Load"
Voor i = 1 tot en met 17
b = nieuwe PictureBox ' voegt nieuwe picbox
b. Zichtbaar = True ' maakt blokkeren zichtbaar
b. BackColor (achtergrondkleur) = Color.Khaki ' kleur van blocker khaki maakt
Me.Controls.Add(b(i)) ' voegt tank blokkers
Volgende
Met b(1) ' grootte en plaats blokkeren 1
. Hoogte = 22
. Breedte = 100
. Links = 81
. Top = 138
Eindigen met
Met b.2 ' grootte en plaats blokkeren 2
. Hoogte = 200
. Breedte = 22
. Links = 159
. Top = 159
Eindigen met
Met b.3 ' grootte en plaats blok 3
. Hoogte = 200
. Breedte = 22
. Top = 350
. Links = 159
Eindigen met
Met b(4) ' grootte en plaats blokkeren 4
. Hoogte = 22
. Breedte = 100
. Links = 81
. Top = 550
Eindigen met
Met b(5) ' grootte en plaats blokkeren 5
. Hoogte = 22
. Breedte = 100
. Links = 404
. Boven = 0
Eindigen met
Met b(6) ' grootte en plaats blokkeren 6
. Hoogte = 200
. Breedte = 22
. Links = 443
. Top = 22
Eindigen met
Met b(7) ' grootte en plaats blokkeren 7
. Hoogte = 200
. Breedte = 23
. Links = 443
. Top = 484
Eindigen met
Met b(8) ' grootte en plaats blokkeren 8
. Hoogte = 22
. Breedte = 100
. Top = 680
. Links = 404
Eindigen met
Met b(9) ' grootte en plaats blokkeren 9
. Hoogte = 200
. Breedte = 22
. Links = 631
. Top = 253
Eindigen met
Met b(10) ' grootte en plaats blokkeren 10
. Hoogte = 22
. Breedte = 100
. Links = 802
. Boven = 0
Eindigen met
Met b(11) ' grootte en plaats blokkeren 11
. Hoogte = 200
. Breedte = 22
. Links = 841
. Top = 22
Eindigen met
Met b(12) ' grootte en plaats blokkeren 12
. Hoogte = 200
. Breedte = 22
. Links = 841
. Top = 484
Eindigen met
Met b(13) ' grootte en plaats blokkeren 13
. Hoogte = 22
. Breedte = 100
. Links = 802
. Top = 680
Eindigen met
Met b(14) ' grootte en plaats blokkeren 14
. Hoogte = 22
. Breedte = 100
. Links = 1125
. Top = 137
Eindigen met
Met b(15) ' grootte en plaats blokkeren 15
. Hoogte = 200
. Breedte = 22
. Links = 1125
. Top = 159
Eindigen met
Met b(16) ' grootte en plaats blokkeren 16
. Hoogte = 200
. Breedte = 22
. Links = 1125
. Top = 350
Eindigen met
Met b(17) ' grootte en plaats blokkeren 17
. Hoogte = 22
. Breedte = 100
. Links = 1125
. Top = 550
Eindigen met
End Sub