FoxPro/Visual FoxPro - ayuda chicos porfi

   
Vista:

ayuda chicos porfi

Publicado por yanina (2 intervenciones) el 18/10/2007 19:25:46
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!!!!!!!!!!!!!!!!
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:ayuda chicos porfi

Publicado por Plinio (7771 intervenciones) el 18/10/2007 22:15:01
Yo uso una basada en este codigo
http://support.microsoft.com/kb/166378/en-us
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:ayuda chicos porfi

Publicado por plinio (1 intervención) el 18/10/2007 23:16:30
no me ayudo mucho el articulo plinio, vos q opinas, como puedo solucionarlo sin tener q tocar mucho el codigo
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:ayuda chicos porfi

Publicado por Ernesto Hernandez (4632 intervenciones) el 19/10/2007 01:14:54
revisa WFONT a ver si eso si te ayuda

http://msdn2.microsoft.com/en-us/library/bx88s7fs(VS.80).aspx
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