Paso 11: El código: matriz de objetos
el siguiente es código de 17 pictureboxes... estos actuará como cuadras el código irá después de la declaración privada sub
"Private Sub Tank_VS_Tank_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) manijas MyBase.Load"
Para i = 1 a 17
b.i = New PictureBox ' añade nuevos picbox
b.i. Visible = True ' hace bloquea visible
b.i. BackColor = Color.Khaki ' hace color de color caqui de bloqueador
Me.Controls.Add(b(i)) ' agrega bloqueadores de tanque
Siguiente
Con b (1) ' tamaño y lugar bloquean 1
. Altura = 22
. Ancho = 100
. Izquierda = 81
. Top = 138
Terminar con
Con b (2) ' tamaño y lugar bloquean 2
. Altura = 200
. Ancho = 22
. Izquierda = 159
. Top = 159
Terminar con
Con b(3) ' tamaño y lugar bloquean 3
. Altura = 200
. Ancho = 22
. Top = 350
. Izquierda = 159
Terminar con
Con b(4) ' tamaño y lugar bloquean 4
. Altura = 22
. Ancho = 100
. Izquierda = 81
. Top = 550
Terminar con
Con b(5) ' tamaño y lugar bloquean 5
. Altura = 22
. Ancho = 100
. Izquierda = 404
. Top = 0
Terminar con
Con b(6) ' tamaño y lugar bloquean 6
. Altura = 200
. Ancho = 22
. Izquierda = 443
. Top = 22
Terminar con
Con b(7) ' tamaño y lugar bloquean 7
. Altura = 200
. Ancho = 23
. Izquierda = 443
. Top = 484
Terminar con
Con b(8) ' lugar y tamaño de bloquean de 8
. Altura = 22
. Ancho = 100
. Top = 680
. Izquierda = 404
Terminar con
Con b(9) ' tamaño y lugar cuadra 9
. Altura = 200
. Ancho = 22
. Izquierda = 631
. Top = 253
Terminar con
Con b(10) ' tamaño y lugar bloquean 10
. Altura = 22
. Ancho = 100
. Izquierda = 802
. Top = 0
Terminar con
Con b(11) ' tamaño y lugar cuadra 11
. Altura = 200
. Ancho = 22
. Izquierda = 841
. Top = 22
Terminar con
Con b (12) ' tamaño y lugar cuadra 12
. Altura = 200
. Ancho = 22
. Izquierda = 841
. Top = 484
Terminar con
Con b(13) ' tamaño y lugar cuadra 13
. Altura = 22
. Ancho = 100
. Izquierda = 802
. Top = 680
Terminar con
Con b(14) ' tamaño y lugar bloquean 14
. Altura = 22
. Ancho = 100
. Izquierda = 1125
. Top = 137
Terminar con
Con b(15) ' bloquean el tamaño y el lugar 15
. Altura = 200
. Ancho = 22
. Izquierda = 1125
. Top = 159
Terminar con
Con b(16) ' tamaño y lugar bloquean 16
. Altura = 200
. Ancho = 22
. Izquierda = 1125
. Top = 350
Terminar con
Con b(17) ' tamaño y lugar cuadra 17
. Altura = 22
. Ancho = 100
. Izquierda = 1125
. Top = 550
Terminar con
End Sub