Partager via

Événement KeyDown, contrôle TextBox, propriétés CurLine, CurTargetX, CurX, Text – Exemple

  • Article

L’exemple suivant effectue le suivi des paramètres des propriétés CurLine, CurTargetX et CurX dans une zone de texte multiligne. Ces paramètres changent dans l’événement KeyUp lorsque l’utilisateur tape dans la propriété Text , déplace le point d’insertion et étend la sélection à l’aide du clavier.

Pour utiliser cet exemple, procédez comme suit :

  1. Copiez le code suivant dans la partie Déclarations d’une feuille.

  2. Ajoutez dans la feuille un contrôle TextBox de grande taille nommé TextBox1.

  3. Ajoutez dans une colonne trois contrôles TextBox nommés TextBox2, TextBox3 et TextBox4.

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
 TextBox2.Text = TextBox1.CurLine 
 TextBox3.Text = TextBox1.CurX 
 TextBox4.Text = TextBox1.CurTargetX 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 
 TextBox1.Text = "Type your text here. User CTRL + ENTER to start a new line." 
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.