Partager via

Définir le nombre de lignes et la longueur de l’entrée dans une zone de texte

  • Article

L’exemple suivant compte les caractères et le nombre de lignes de texte dans une zone de texte à l’aide des propriétés LineCount et TextLength et de la méthode SetFocus . Dans cet exemple, l’utilisateur peut saisir du texte dans un contrôle TextBox et extraire les valeurs actuelles des propriétés LineCount et TextLength.

Remarque

La méthode SetFocus est héritée du contrôle TextBox Microsoft Forms 2.0.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. Vérifiez que le formulaire contient les contrôles suivants :

  • un contrôle TextBox nommé TextBox1 ;
  • A CommandButton](.. /.. /.. /api/Outlook.commandbutton.md) nommé CommandButton1.
  • Two Label](.. /.. /.. /api/Outlook.label.md) contrôles nommés Label1 et Label2.
'Type SHIFT+ENTER to start a new line in the text box. 
 
Dim CommandButton1 
Dim TextBox1 
Dim Label1 
Dim Label2 
 
Sub CommandButton1_Click() 
 'Must first give TextBox1 the focus to get line count 
 TextBox1.SetFocus 
Sub Item_Open() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox1") 
 Set Label2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("Label2") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton1") 
 
 CommandButton1.WordWrap = True 
 CommandButton1.AutoSize = True 
 CommandButton1.Caption = "Get Counts" 
 
 Label1.Caption = "LineCount = " 
 Label2.Caption = "TextLength = " 
 
 TextBox1.MultiLine = True 
 TextBox1.WordWrap = True 
 TextBox1.Text = "Enter your text here." 
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.