Freigeben über

Beispiele für KeyDown-Ereignis, TextBox-Steuerelement, CurLine-, CurTargetX-, CurX-, Text-Eigenschaft

  • Artikel

Im folgenden Beispiel werden die Einstellungen der CurLine-, CurTargetX- und CurX-Eigenschaft in einem mehrzeiligen Textfeld nachverfolgt. Diese Einstellungen ändern sich im KeyUp-Ereignis , wenn der Benutzer in die Text-Eigenschaft eingibt, die Einfügemarke verschiebt und die Auswahl mithilfe der Tastatur erweitert.

Führen Sie die folgenden Schritte aus, um dieses Beispiel zu verwenden:

  1. Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars.

  2. Fügen Sie dem Formular ein großes TextBox-Steuerelement mit dem Namen "TextBox1" hinzu.

  3. Fügen Sie drei TextBox-Steuerelement mit den Namen "TextBox2", "TextBox3" und "TextBox4" in einer Spalte hinzu.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.