Cree una matriz de control de 10 filas y 10 columnas que consta de 100 botones de comando en el formulario (programación vb)
¡20QB! '''''''''' 'Primero cargue un control, y luego, basándose en este control, cargue la matriz de controles uno por uno hasta completar, cambiando la posición relativa de un control cada 10 controles...
¿Opción?Explícito
¿Privado?Sub?Form_Load()
Comando1(0).Ancho?=?1000
Comando1(0).Alto ?= ?500 Dim?I?As?Long For?I?=?1?A?119 Cargar?Comando1(I) Comando1(I).Ancho?=?1000 Comando1(I).Alto?=?500 Si? ¿I?Mod?10?=?0?Entonces
Comando1(I).Left?=?Command1(I?-?1).Left?+?1100
Command1( I) .Top?=?Command1(0).Top De lo contrario
Command1(I).Left?=?Command1(I)-?1).Left
Command1(I ). ¿Arriba?=?Comando1(I)-?1).Arriba?+?550 ¿Fin?Si Comando1(I).Caption?=?I Comando1(I).Comando1(I).Visible?=?Verdadero Comando1(). I) .¿Habilitado?=?Verdadero Siguiente
¿Fin?