Como puedo incrementar la fuente desde un combobox a un text, espero su respuesta gracias
Hola que tal amigo, me podrías ayudar, en como puedo incrementar desde un combobox en vfp 9.0 la fuente de lo que se escriba dentro de un text, con este mismo procedimiento también que se cambia el tipo de fuente, teniendo en total 2 combobox una que aumento la el tamaño de letra y el otro el tipo de letra, espero su respuesta gracias
1 Respuesta
Bueno es bastante sencillo, Haz lo siguiente:
En el evento Interactivechange del combobox que tendrá la función de cambiar el tamaño de letra escrite esto:
Thisform.nombredelText.FontSize=Val(This.Value)
En el evento Interactivechange del combobox que tendrá la función de cambiar el tipo de letra escribe esto:
Thisform.nombredelText.FontName=Alltrim(This.Value)
Hola que tal amigo, me podrías poner un ejemplo por te lo agradecería, gracias
Si claro.
Supongamos que tengo un formulario en el cual tengo un text
con el nombre TEXTO, Un combobox con el nombre XSIZE y otro
combobox con el nombre XFONT.
Una vez tengas cargados los datos en los combobox, es decir
las fuentes y el tamaño
En el evento INTERACTIVECHANGE del combo Xsize colocas este
código:
Thisform.texto.FontSize=Val(This.Value.Value)
En el evento INTERACTIVECHANGE del combo Xfont colocas este
código:
Thisform.texto.FontName=Alltrim(This.Value.Value)
Hola que tal amigo como cargo datos al combobox, y en (this.value.value) solo se pone así, espero y me ayudes gracias
Para cargar todas las Fuentes instaladas en tu sistema haz lo siguiente:
En el evento Init del combo xFont colocas el cogido siguiente:
DIMENSION por[2]
= AFONT(por)
FOR i = 1 TO ALEN(x)
this.additem(x(i))
ENDFOR
En el evento Init del combo xSize colocas el cogido siguiente:
For A=1 to 20&&Puedes reemplazar el 20 con un numero mas alto, de este dependera el tamaño maximo del textbox
this.additem(Transform(A))
Endfor
thisform.text1.FONTSIZE=VAL(THIS.Value), me sale error en esto cadena de comando que error con text1, espero tu respuesta saludos
¿Cuál es el mensaje de error que te da?
El mensaje es el siguiente: Error with text1 - Fontsize: Expression evaluated to an ilegal value, y el código que pongo es
thisform.text1.fontsize= val (this.value)
Hagamos algo, Me das tu correo y de allí charlamos sobre eso, ¿Te parece?
mi correo es [email protected], estoy en linea, agregame
Ya te agregue, Aceptame!
cual tu correo amigo pásamelo,
