Matriz de Checkbox Dinamico

Miguel A. Castellanos
11 de Junio del 2006
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

acemel
11 de Junio del 2006
\'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