Partager via

Contrôle TextBox, propriétés AutoSize, Text – Exemple

  • Article

L’exemple suivant illustre les effets de la propriété AutoSize avec une seule ligne TextBox et une zone de texte multiligne.

L’utilisateur peut entrer du texte dans le contrôle TextBox et activer ou désactiver AutoSize indépendamment du contenu du contrôle TextBox. Cet exemple de code utilise également la propriété Text .

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

  • deux contrôles TextBox TextBox1 et TextBox2 ;
  • ToggleButton nommé ToggleButton1.
Private Sub UserForm_Initialize() 
 TextBox1.Text = "Single-line TextBox. " _ 
 & "Type your text here." 
 
 TextBox2.MultiLine = True 
 TextBox2.Text = "Multi-line TextBox. Type " _ 
 & "your text here. Use CTRL+ENTER to start " _ 
 & "a new line." 
 
 ToggleButton1.Value = True 
 ToggleButton1.Caption = "AutoSize On" 
 TextBox1.AutoSize = True 
 TextBox2.AutoSize = True 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "AutoSize On" 
 TextBox1.AutoSize = True 
 TextBox2.AutoSize = True 
 Else 
 ToggleButton1.Caption = "AutoSize Off" 
 TextBox1.AutoSize = False 
 TextBox2.AutoSize = False 
 End If 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.