Freigeben über

Festlegen der Anzahl von Zeilen und der Länge der Eingabe in einem Textfeld

  • Artikel

Im folgenden Beispiel werden die Zeichen und die Textzeilen eines TextBox -Objekts mithilfe der Eigenschaften LineCount und TextLength und der SetFocus -Methode gezählt. In diesem Beispiel kann der Benutzer Text in ein TextBox -Objekt eingeben und aktuelle Werte für die Eigenschaften LineCount und TextLength abrufen.

Hinweis

[!HINWEIS] Die SetFocus -Methode wird vom TextBox -Steuerelement von Microsoft Forms 2.0 geerbt.

To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. Make sure that the form contains the following controls:

  • A TextBox named TextBox1.
  • Ein CommandButton](.. /.. /.. /api/Outlook.commandbutton.md) mit dem Namen CommandButton1.
  • Two Label](.. /.. /.. /api/Outlook.label.md) -Steuerelemente mit den Namen Label1 und Label2.
'Type SHIFT+ENTER to start a new line in the text box. 
 
Dim CommandButton1 
Dim TextBox1 
Dim Label1 
Dim Label2 
 
Sub CommandButton1_Click() 
 'Must first give TextBox1 the focus to get line count 
 TextBox1.SetFocus 
Sub Item_Open() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox1") 
 Set Label2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("Label2") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton1") 
 
 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.