Cómo programar casillas de verificación

Subcomprobación privada 1_Click (índice como número entero)

Marcar I como número entero

Atenuar tmpstr como cadena

Verificar 1 para yo = 0. UBound

tmpstr = tmpstr ampCStr(Check1(i)). valor)

Luego

Texto1. Text = tmpstr

Conector final

Subform_Load() privado

Marcar I como un número entero

Check1(0) . Título = " "

Comprobación1(0). ancho = 200

Para i = 1 a 7

Cargar Check1(i)

Check1(i). Visible = Verdadero

Comprobación1(i). Izquierda = Verificar1(i - 1). 300 a la izquierda

Luego

Conector final

Subformulario privado_Unload(Descargar como entero)

Marcar I como entero

Para i = 1, marque 1. UBound

Desinstalar Check1(i)

Luego

Conector final