Matriz de Checkbox Dinamico
Buenas tardes, les pido el favor de colaborarme indicandome como puedo crear una matriz de Checkbox dinamica, el problema es que debo crear tantos check's como el usuario necesita, se que la forma mas facil es utilizar una matriz pero no tengo ni idea de que código utilizar.
Muchas gracias de antemano
Saludos
Miguel Castellanos
Muchas gracias de antemano
Saludos
Miguel Castellanos
\'espero q este codigo pueda ayudarte
\'crea un listbox y le pones la propiedad style =1 (checkbox)
\'este es el command button con el q añades
Private Sub Command1_Click()
list1.AddItem InputBox("Introduzca el nombre del elemento que desea añadir en la lista", "Elemento"), list1.ListCount
End Sub
Private Sub Form_Load()
On Error GoTo Errores
\'puedes hacerlo con un archivo de texto llamado
\'"lista.db" por ponerle un nombre
\'en el evento load del form
f = FreeFile
Open "c:\lista.db" For Input As #f
Do Until EOF(f)
Input #f, linea
list1.AddItem linea
Loop
Close #f
Exit Sub
Errores:
Open "c:\lista.db" For Output As #f
Close #f
End Sub
Private Sub Form_Unload(Cancel As Integer)
\'y al finalizar el trabajo
f = FreeFile
b = list1.ListCount - 1
Kill "c:\lista.db"
Open "c:\lista.db" For Output As #f
For a = 0 To b
Print #f, list1.List(a)
Next
Close #f
\'espero que te sirva
End Sub
\'En este código no te guarda los checkbox que están a 1 ni los q estan a 0. Se haría exacatamente igual. Osea, guardando los datos al cerrar el formulario, y cargandolos al abrirlo
\'crea un listbox y le pones la propiedad style =1 (checkbox)
\'este es el command button con el q añades
Private Sub Command1_Click()
list1.AddItem InputBox("Introduzca el nombre del elemento que desea añadir en la lista", "Elemento"), list1.ListCount
End Sub
Private Sub Form_Load()
On Error GoTo Errores
\'puedes hacerlo con un archivo de texto llamado
\'"lista.db" por ponerle un nombre
\'en el evento load del form
f = FreeFile
Open "c:\lista.db" For Input As #f
Do Until EOF(f)
Input #f, linea
list1.AddItem linea
Loop
Close #f
Exit Sub
Errores:
Open "c:\lista.db" For Output As #f
Close #f
End Sub
Private Sub Form_Unload(Cancel As Integer)
\'y al finalizar el trabajo
f = FreeFile
b = list1.ListCount - 1
Kill "c:\lista.db"
Open "c:\lista.db" For Output As #f
For a = 0 To b
Print #f, list1.List(a)
Next
Close #f
\'espero que te sirva
End Sub
\'En este código no te guarda los checkbox que están a 1 ni los q estan a 0. Se haría exacatamente igual. Osea, guardando los datos al cerrar el formulario, y cargandolos al abrirlo