Méthode SetFocus, propriétés LineCount, TextLength – Exemple

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.

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

• un contrôle TextBox nommé TextBox1 ;
• CommandButton nommé CommandButton1.
• Deux contrôles Label nommés Label1 et Label2.

'Type SHIFT+ENTER to start a new line in the text box. 
 
Private Sub CommandButton1_Click() 
 'Must first give TextBox1 the focus to get line 
 'count 
 TextBox1.SetFocus 
 Label1.Caption = "LineCount = " _ 
 & TextBox1.LineCount 
 Label2.Caption = "TextLength = " _ 
 & TextBox1.TextLength 
End Sub 
 
Private Sub UserForm_Initialize() 
 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.