Inicio > Visual FoxPro > fer1710 > Lo que yo seleccione en los checkbox me aparezca

Lo que yo seleccione en los checkbox me aparezca

Experto: fer1710 Cerrar	Usuario: jimmythebest Cerrar	Fecha: 22/04/2008
Valoración:	Categoría: Visual FoxPro

11/04/2008

Usuario

Hola amigo, felicidades por tu trabajo en esta web.
tengo un pequeño problema, es facil pero aun no puedo solucionarlo, dentro de un container (C_materias) tengo un conjunto de Checkbox (check1,check2,check3.....) cada uno de ellos tiene una materia en el caption, ej.: Literatura, Matemática, historia....) entonces tengo un textbox(txtMaterias).
pues lo que quiero es que cuando selecciono un check, el texto me aparezca en el textobox, por ejemplo
si selecciono el check que dice Literatura, que me salga dentro del txtbox LITERATURA.

Espero que me puedan ayudar, es un proyecto de la escuela.

Saludos y gracias... email: jimmyr67@hotmail.com, jimmyr_duran@yahoo.com

11/04/2008

Experto

Hola,
lo que tienes que hacer es escribir en el evento InteractiveChange de cada CheckBox lo siguiente:
if this.value = 1
ThisForm.Text1.value = this.caption
endif
Espero te sirva,
Fernando

11/04/2008

Usuario

gracias Experto, ya sale.
ahora bien, si tengo varios checkbox, y selecciono varios, como hago para que salga separado
por un coma el textbox???

Saludos y gracias de ante mano.

11/04/2008

Experto

Ok,
Para ese caso necesitas poner en el InteractiveChange de cada CheckBox lo siguiente:
Thisform.text1.value = ""
If ThisForm.Container1.Check1.value = 1
Thisform.text1.value = Thisform.text1.value + ThisForm.Container1.Check1.caption + ", "
EndIf
If ThisForm.Container1.Check2.value = 1
Thisform.text1.value = Thisform.text1.value + ThisForm.Container1.Check2.caption + ", "
EndIf
If ThisForm.Container1.Check3.value = 1
Thisform.text1.value = Thisform.text1.value + ThisForm.Container1.Check3.caption + ", "
EndIf
Thisform.text1.value = left(Thisform.text1.value, len(Thisform.text1.value) -2 )
*Esto suponiendo que solo tienes 3 CheckBox, si tuvieras mas, le debes agregar los "IF" correspondientes por cada checkbox
Espero te haya sido de ayuda,
Fernando

14/04/2008

Usuario

grax, eso ya me funciona, pero si selecciono dos checkbox, primero se pone uno en el textbox con la coma, pero si selecciono otro se borra el anterior y se pone el que seleccione...

espero q entiendas para que me expliques.

Saludos

14/04/2008

Experto

Lo que tienes que hacer, es crear un metodo en el formulario que se llame "texto", (menú formulario / nuevo metodo)
En este metodo nuevo escribe el siguiente codigo:
cTexto = ""
If ThisForm.Container1.Check1.value = 1
cTexto = alltrim(ThisForm.Container1.Check1.caption) + ", "
endif
If ThisForm.Container1.Check2.value = 1
cTexto = cTexto + alltrim(ThisForm.Container1.Check2.caption) + ", "
endif
If ThisForm.Container1.Check3.value = 1
cTexto = cTexto + alltrim(ThisForm.Container1.Check3.caption) + ", "
endif
thisform.txtMaterias.value = left(cTexto, len(cTexto) -2)
thisform.refresh
* Y en el evento InteractiveChange de cada Checkbox llama al metodo de la siguiente forma:
thisform.texto()
Espero te sirva,
Fernando

18/04/2008

Usuario

disculpa, aun tengo problemas con esto,
yo quiero que al seleccionar un checkbox, me aparezca en un textbox, si selecciono dos checbox, que
aparezca en el textbox, si deselecciono un checkbox de esos, q se desaparzca del textbox tambien

espero me puedan ayudar.. :S

18/04/2008

Experto

Ya probe el codigo que te mande, y si funciona tal como lo solicitas, el metodo "texto" que creamos verifica que checkbox estan seleccionados, y segun eso llena el textbox.
Veriica si has copiado bien el codigo, y si has puesto bien el codigo correspondiente en el InterectiveChange de cada Checkbox
si aun tienes problemas, enviame tu correo para enviarte mi ejemplo, indicame tambien la version del vfp que usas
Saludos,
Fernando

19/04/2008

Usuario

Hola, por favor, enviame el ejemplo a: jimmyr67@hotmail.com
tengo Visual FoxPro 8.0

Gracias de antemano

21/04/2008

Experto

Ya te envie el archivo, cualquier duda me la comentas.

Fernando

22/04/2008

Usuario

Gracias por ayudarme, muy buen trabajo!!!

Saludos

Compártelo