Freigeben über


Beispiele für Enabled-, EnterFieldBehavior-, SelLength-, SelStart-, SelText-Eigenschaft

Im folgenden Beispiel werden die auswahlbezogenen Eigenschaften (SelLength, SelStart und SelText) nachverfolgt, die sich ändern, wenn der Benutzer die Einfügemarke verschiebt und die Auswahl mithilfe der Tastatur erweitert.

In diesem Beispiel werden auch die Eigenschaften Enabled und EnterFieldBehavior verwendet.

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

  • Ein großes Textfeld mit dem Namen TextBox1.
  • Drei TextBox -Steuerelemente mit den Namen TextBox2, TextBox3 und TextBox4 in einer Spalte.
Private Sub TextBox1_KeyUp(ByVal KeyCode As _ 
 MSForms.ReturnInteger, ByVal Shift As Integer) 
 TextBox2.Text = TextBox1.SelStart 
 TextBox3.Text = TextBox1.SelLength 
 TextBox4.Text = TextBox1.SelText 
End Sub
Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 
 TextBox1.Text = "Type your text here. Use " _ 
 & "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.