Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Un Detalle Sobre Agrandar Fuentes Mientras Expandes El Formulario
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Un Detalle Sobre Agrandar Fuentes Mientras Expandes El Formulario 
 
Hola buenas, como están compañeros programadores, espero que bien y deseándoles éxitos en sus ṕroyectos.

El tema que quiero tratar es como hacer que un formulario mientras lo agrando y empequeñezco las fuentes en un textarea se vayan agrandando y empequeñeciendo también.

La cuestión de como lo planteo es la siguiente:

La he puesto en un timer monitoreando la manipulación del formulario y funciona! pero lo que no me agrada es que debido a los constantes ciclos del timer consume mucho porcentaje de cpu por lo que quiero hacerlo en un evento.

Citar:
Public Sub Timer_maximizado_minimizado_Timer()

  If TextArea_consola.Width > 736 And TextArea_consola.Height > 400 Then
    TextArea_consola.Font.Size = 15
    Else
      TextArea_consola.Font.Size = 9
 Endif
End

Este método podría hacerlo en un evento quizá que desconozco, pensé en un mousemove() pero no se como aplicarlo!

Espero si alguien sabe me lo plantee, gracias, saludos.
 



 
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Un Detalle Sobre Agrandar Fuentes Mientras Expandes El Formulario 
 
Usa el evento resize del Form. Parece el indicado para eso.

Saludos
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Un Detalle Sobre Agrandar Fuentes Mientras Expandes El Formulario 
 
shordi escribió: [Ver mensaje]
Usa el evento resize del Form

Exactamente como dice shordi.

Un ejemplo:
Public Sub Form_Open()

   With Me
    .W = 400
    .H = 300
  End With

  With TextArea1
    .W = Me.W - 20
    .H = Me.H - 20
    .Text = "Yo no soy Pythonista !"
  End With

End


Public Sub Form_Resize()

    With TextArea1
      .W = Me.W - 20
      .H = Me.H - 20
      .Font.Size = (Me.W * Me.H) / 10000
    End With

End

 



 
última edición por vuott el Jueves, 12 Enero 2017, 15:42; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Un Detalle Sobre Agrandar Fuentes Mientras Expandes El Formulario 
 
Citar:
Usa el evento resize del Form. Parece el indicado para eso.

Saludos


Si, en efecto funciona señor shordi, gracias.


Citar:
Un ejemplo:
Código: [Ocultar] [Seleccionar]
Public Sub Form_Open()

With Me
.W = 400
.H = 300
End With

With TextArea1
.W = Me.W - 20
.H = Me.H - 20
.Text = "Yo no soy Pythonista !"
End With
End


Public Sub Form_Resize()
With TextArea1
.W = Me.W - 20
.H = Me.H - 20
.Font.Size = (Me.W * Me.H) / 10000
End With
End


Señor Vuott el suyo también me funciono y gracias! pero lo deje de la siguiente manera para no complicarme:

Public Sub form_Resize()
   If TextArea_consola.Width > 736 And TextArea_consola.Height > 400 Then
    TextArea_consola.Font.Size = 15
    Else
  TextArea_consola.Font.Size = 9
Endif
End


Muchas gracias y saludos.
 



 
última edición por jousseph el Jueves, 12 Enero 2017, 19:18; editado 2 veces 
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Un Detalle Sobre Agrandar Fuentes Mientras Expandes El Formulario 
 
jousseph escribió: [Ver mensaje]
Señor Vuott .... pero lo deje de la siguiente manera para no complicarme


hat-tip-smiley-emoticon

No hay problema, el mio solo fue un ejemplo.
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario