FoxPro/Visual FoxPro - cambiar etiquetas

   
Vista:

cambiar etiquetas

Publicado por yanina (1 intervención) el 12/10/2007 01:01:42
necesito esta ayuda, yo tenga distintas letras con distintas medidas en una sola etiqueta, q se agrandan o achican depende la situacion comenzando con la letra D
yo coloco la letre D en un text y cuando le doy enter quiero q me achiq la letra lo menor posible si acierta, seria con la letra G, y desde ahi ir subiendo si no acierta, y si acierta la letra q termine, pero lo q sucede es q cuando coloco bien la letra,en el primer caso me la achica pero no me deja seguir con el programa, aca les mando el codigo a ver si me ayudan
----------------------
el valor de la etiqueta q comienza con la D
A && FOUDSIZE 120
B && FOUDSIZE 100
C && FOUDSIZE 80
D && FOUDSIZE 60
G && FOUDSIZE 60
F && FOUDSIZE 40
G && FOUDSIZE 20
----------------------------------
en el keupress
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="D" && SI LO VIO SIGUE CON EL MAS CHICO
VALOR=70
THISFORM.label1.caption="F" && le cambio la letra
THISFORM.label1.fontsize=20 && la hago mas chica
THISFORM.TEXT1.VALUE=""
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="G"&& si vuelve a acertar q termine
TER=MESSAGEBOX("VE LO SUFICIENTE",4,"TERMINO EL CONtrol"
IF TER=6
VALOR=20
ENDIF && si v mas chico termina el programa

else
& q me permita ir agrandando la letra si no acierta
ENDIF
ENDIF
ELSE
ENDIF
ENDIF
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:cambiar etiquetas

Publicado por Ernesto Hernandez (4632 intervenciones) el 12/10/2007 02:06:46
depende la situacion comenzando con la letra D
yo coloco la letre D en un text y cuando le doy enter quiero q me achiq la letra lo menor posible si acierta, seria con la letra G

como es eso ??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

etiquetas plase ayuda

Publicado por yanina (1 intervención) el 13/10/2007 00:03:19
el form comenzaria con un label de medida 70 de founsize, si la persona ve esa letra, tiene q ir a la medida del 20 y si no la ve, ir aumentando hasta q identifique la letra siempre colocandola en un text, la idea es saber cuanta agudeza visual tiene una persona, pero como tengo el codigo cuando le doy enter termina y no me da opciones de seguir, por favor quisiera saber como puedo ir solucionandolo
----------------------
el valor de la etiqueta q comienza con la D
A && FOUDSIZE 120
B && FOUDSIZE 100
C && FOUDSIZE 80
D && FOUDSIZE 60
G && FOUDSIZE 60
F && FOUDSIZE 40
G && FOUDSIZE 20
----------------------------------
en el keupress
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="D" && SI LO VIO SIGUE CON EL MAS CHICO
VALOR=70
THISFORM.label1.caption="F" && le cambio la letra
THISFORM.label1.fontsize=20 && la hago mas chica
THISFORM.TEXT1.VALUE=""
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="G"&& si vuelve a acertar q termine
TER=MESSAGEBOX("VE LO SUFICIENTE",4,"TERMINO EL CONtrol"
IF TER=6
VALOR=20
ENDIF && si v mas chico termina el programa

else
& q me permita ir agrandando la letra si no acierta
ENDIF
ENDIF
ELSE
ENDIF
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE: etiquetas plase ayuda

Publicado por Ernesto Hernandez (4632 intervenciones) el 16/10/2007 18:55:59
revisa el control Spinner compañera ese te sera de mucha utilidad
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar