Private Sub Text1_Change() If TextWidth(Text1.Text & "A ") >= Text1.Width Then Text1.Width = TextWidth(Text1.Text & "A ") Me.Width = Text1.Width Text1.Text = Text1.Text End If End Sub Private Sub Text1_GotFocus() Set Font = Text1.Font Text1.Left = 0 Me.Width = Text1.Width End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionj'aimerais par exemple que la largeur des TextBox et celle du controle soit egale à celle du texte contenu dans les TextBox
un Contrôle utilisateur avec deux TextBox et une Line pour désigner un nombre rationnel, qui doit pouvoir recevoir 2 entiers, un comme numérateur et l'autre comme dénominateur qu'on peut manipuler ensuite.