Cómo planificar la remoción de minas

Primero, cree un control de botón en el formulario, establezca la propiedad NOMBRE de C y las propiedades ÍNDICE de C en 0 y agregue el siguiente código.

Subform_Load() privado

Para i = 1 a 80

Carga C(i)

C(a). Visible = Verdadero

Si Mod 9 = 0, entonces

C(uno). izquierda = C(0). El de la izquierda

C (1). Arriba = C(0). Arriba + C(0). Altura*Int(i/9)

Otro

C(i). Izquierda = C(i - 1). Izquierda + C(i - 1). Ancho

C(1). Arriba = C(i - 1). Arriba

Terminará si...

Siguiente yo

Finalizar conector

Este evento puede obtener el número de fila y columna de el número del botón.

Private Sub C_Click (el índice es un número entero)

X = Int(Index/9)+1 'x representa el número de filas.

Y = (Index Mod 9)+1' indica el número de columnas.

MsgBox "Este botón está en la primera"&x&"Vale, la primera"&y&"columna."

Conector final