FoxPro/Visual FoxPro - etiquetas y text(porfi un hombre )

   
Vista:

etiquetas y text(porfi un hombre )

Publicado por yanina (2 intervenciones) el 18/10/2007 23:25:58
socorro!!!!!!!!no puedo salir de esta
Tengo un form con una etiqueta y un text, y a medida q la persona no puede ver la letre q figura en le etiqueta esta se va agrandando hasta q la pueda ver y termina, siempre se va ingresando una letra en el text, se da enter y asi se va agrandando hasta q la ve, cuando la ve termina.
Ahora el problema es q cuando no adivina la letra me va al ultimo diractamente y yo quiero q pase por las distintas posibilidades, les mando el codigo para ver si se dan cuenta donde estoy fallando, recuerden cada ves q se equivoca q vaya aumando la etiqueta de a poco. gracias!!!!!!!!!!!!!!!!
por ej:
label:T(70 fondsize) && la medida de letra
text:----yo coloco otra letra porq no la distingo bien,
ahora label:J (80 fondsize) && la medida de letra
Text:---- si loveo y coloco enter termina sino se sigue agrandando
con este codigo directamente si me equivoco en el primero se va al ultimo y no me pasa por los intermedios
S=THISFORM.TEXT1.VALUE
IF lastkey()=13 and c=0
IF S="T" && SI LO VIO SIGUE CON EL MAS CHICO
VALOR=70
thisform.release

ELSE
c=c+1 &&aca vale 1
THISFORM.label1.caption="J" && le cambio la letra
THISFORM.label1.fontsize=80 && agrando la medida
ENDIF
endif

IF lastkey()=13 and c=1
if S="J"
thisform.release &&termina
else
c=c+1 && aca vale 2
THISFORM.label1.caption="Q" && le cambio la letra
THISFORM.label1.fontsize=90 && agrando la medida

endif
ENDIF
IF lastkey()=13 and c=2
if S="Q"
&&termina
else
c=c+1 && aca vale 3
THISFORM.label1.caption="Z" && le cambio la letra
THISFORM.label1.fontsize=100 && agrando la medida
endif
endif

IF lastkey()=13 and c=3
if S="Z"
&&termina
else
c=c+1 && aca vale 4
THISFORM.label1.caption="E" && le cambio la letra
THISFORM.label1.fontsize=110 && agrando la medida y termina

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:etiquetas y text(porfi un hombre )

Publicado por Ernesto Hernandez (4632 intervenciones) el 19/10/2007 01:08:40
:-
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 y text(porfi un hombre )

Publicado por Ernesto Hernandez (4632 intervenciones) el 19/10/2007 01:16:39
por que no validas el tamaño del FONT en el momento que dices que se regresa con la funcion WFONT
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