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.

Usa el evento resize del Form. Parece el indicado para eso.

Saludos

===================
No podemos regresar

shordi escribió: [Ver mensaje]

Usa el evento resize del Form

Exactamente como dice shordi.

Un ejemplo:

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:



Muchas gracias y saludos.

jousseph escribió: [Ver mensaje]

Señor Vuott .... pero lo deje de la siguiente manera para no complicarme

No hay problema, el mio solo fue un ejemplo.