meriu
20 de Noviembre del 2003

Lo que tengo es un conjunto de check y una etiqueta, quiero que cuando active el check cambie el nombre de la etiqueta por el caption del check....
Gracias!!!

rafa
20 de Noviembre del 2003

Hola.
Debes hacerlo en el click del check
if check.value=1 then
label.caption=check.caption
else
label.cation=""
end if
Suerte

meriu
20 de Noviembre del 2003

Hola Rafa...lo que sucede es que tengo 5 check y una etiqueta y quiero que cuando le de click al check me cambie la eqtiqueta y si le doy a varios a la vez, me aparezcan todos los caption del check...
Gracias!!!

rafa
20 de Noviembre del 2003

Hola de nuevo.
La idea que te han dado es buena.
Pero deberias tener en cuenta cuando desmarcas uno, entonces para eso te propongo que cada vez que clickeas en un check compruebes todos y concatenes los caption, es decir:
check_click() 'en todos
dim aux as string
aux=""
if chek1 then
aux=aux & " " & check1.caption
end if
if chek2 then
aux=aux & " " & check2.caption
end if
if chek3 then
aux=aux & " " & check3.caption
end if
if chek4 then
aux=aux & " " & check4.caption
end if
if chek5 then
aux=aux & " " & check5.caption
end if
label.caption=aux
end sub
Un saludo

meriu
20 de Noviembre del 2003

Hola Rafa...cuando hago el check..no toma el caption del mismo!!!
Gracias

Jose Moure Moure
20 de Noviembre del 2003

Bueno no se si te valdra esta solucion.En la declaracion click de cada check pones lo siguiente:

If Check1.Value = 1 Then
Label1.Caption = Label1.Caption+ Check1.Caption

Espero que t sea de utilidad
End If