sobre check

KELY
10 de Febrero del 2004
Hola amigos, un favor...
por si alguien conoce un tips, para cuardar la información de varios check a un text.text multilain...

ejemplo:

check1. tarjeta madre
check2.disco duro
check3.lectora

y se gusrde en el text3.text

tarjeta madre, disco duro, lectora

se puede....pliss

Baltasar
10 de Febrero del 2004
yo veo dos "soluciones":

la primera sería poner una serie de IF, de la siguiente manera:

texto=""
if check1 then texto=texto+" tarjeta madre, "
if check2 then texto=texto+" disco duro, "
if check3 then texto=texto+" lectora, "
If Len(texto) > 0 Then texto = Left(texto, Len(texto) - 2) ' (para quitar la última coma)

y la otra solución, que me resulta más bonita, sería pòner un array de checkboxs, y el siguiente código:

Private Sub Command1_Click()
Dim texto As String
Text = ""
For a = 0 To Check1.ubound
If Check1(a) Then texto = texto + Check1(a).Caption + ", "
Next a
If Len(texto) > 0 Then texto = Left(texto, Len(texto) - 2)
Text1 = texto
End Sub

como verás la segunda solución te permite tener muchos checks y siempre con el mismo código, es más flexible. Por si hay dudas, para crear el array sólo has de poner un checkbox, y luego copiarlo y pegarlo en el formulario, te preguntará si quieres crear una matriz de controles, y le contestas que sí. A partir de ese momento pegas y pegas y pegas cuantas veces necesites para tener todos los checks que quieras y todos se llamarán igual, aunque con un índice que los identifica.

Saludos y espero que te sirva.