Resize du Font des TextesBox ????????

Question

J'ai trouv&#233; le moyen de resizer les images et les boutons selon la
r&#233;solution de l'&#233;cran de l'utilisateur mais le texte lui ne scale pas!

Que faire ????



Voici mon code: 



Option Explicit

Dim OldWidth As Integer

Dim OldHeight As Integer



Private Sub Form_Load()

OldWidth = Width

OldHeight = Height

End Sub



Private Sub Form_Resize()

On Error Resume Next

Dim XCoeff As Single

Dim YCoeff As Single

Dim Controle As Control

XCoeff = Width / OldWidth

YCoeff = Height / OldHeight

For Each Controle In Me

Controle.Move Controle.Left * XCoeff, Controle.Top * YCoeff, Controle.Width * XCoeff, Controle.Height * YCoeff

Next

OldWidth = Width

OldHeight = Height

End Sub



Private Sub Command1_Click()

    Unload Me

End Sub



Private Sub Command2_Click()

    Text1.Text = Screen.Width

    Text2.Text = Screen.Height

End Sub



Private Sub Command3_Click()

   Me.Top = 0

   Me.Left = 0

    Me.Width = Screen.Width

    Me.Height = Screen.Height

End Sub



Merci!!!!!!

cs_Jack · Answer

Salut
Il faut aussi toucher au FontSize des composants type texte, la taille du composant n'ayant pas de rapport avec les fontes.

(hors sujet : fait attention &#224; OldWidth et OldHeight : dimensionne les en Long. Integer risquerait d'&#234;tre un peu court)

Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

elite69 · Answer

Comment faire??? Est-ce que tu as un exemple?

Merci &#224; l'avance ... !

Resize du Font des TextesBox ????????

2 réponses

Discussions similaires