Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.