Problema de programación de VB, sobre el problema de juicio de casillas de verificación de múltiples casillas de verificación
Usando matriz de control
Private Sub Check1_Click(Index As Integer)
Atenuar i como entero
Atenuar tmpstr como cadena
Para i = 0 Para Check1.UBound
tmpstr = tmpstr & CStr(Check1(i).Value)
Siguiente
Text1.Text = tmpstr
End Sub
Sub privado Form_Load()
Atenuar i como entero
Check1(0).Caption = ""
Check1(0).Width = 200
Para i = 1 a 7
Cargar Check1(i)
Check1(i).Visible = True
Verificar1(i).Izquierda = Verificar1(i - 1).Izquierda + 300