Freigeben über


Beispiel für SetFocus-Methode, LineCount, TextLength-Eigenschaften

Im folgenden Beispiel werden die Zeichen und die Anzahl von Textzeilen in einem TextBox-Objekt mithilfe der Eigenschaften LineCount und TextLength und der SetFocus-Methode gezählt.

In diesem Beispiel kann der Benutzer Text in ein TextBox -Steuerelement eingeben und aktuelle Werte für die Eigenschaften LineCount und TextLength abrufen.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • A TextBox named TextBox1.
  • Eine Befehlsschaltfläche ( CommandButton ) mit der Bezeichnung "CommandButton1".
  • Zwei Bezeichnungsfeld-Steuerelemente ( Label ) mit der Bezeichnung "Label1" und "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

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.