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