Freigeben über

Beispiel für TextBox -Steuerelement, SetFocus-Methode, EnterFieldBehavior-, HideSelection-, MultiLine-, Value-Eigenschaft

  • Artikel

Im folgenden Beispiel wird die HideSelection-Eigenschaft im Kontext eines einzelnen Formulars oder mehrerer Formulars veranschaulicht.

Der Benutzer kann Text in einem TextBox-Steuerelement und einer Registerkarte in anderen Steuerelementen eines Formulars auswählen und den Fokus auf ein zweites Formular übertragen. In diesem Codebeispiel werden auch die SetFocus-Methode und die Eigenschaften EnterFieldBehavior, MultiLine und Value verwendet.

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

  1. Kopieren Sie diesen Beispielcode (mit Ausnahme der letzten Ereignisunterroutine) in den Deklarationsbereich eines Formulars.

  2. Fügen Sie ein großes Textfeld mit dem Namen TextBox1, ein ToggleButton-Element mit dem Namen ToggleButton1 und ein CommandButton-Element mit dem Namen CommandButton1 hinzu.

  3. Fügen Sie in das Projekt ein zweites Formular mit dem Namen "UserForm2" ein.

  4. Fügen Sie die letzte Ereignisunterroutine dieser Auflistung in den Deklarationsbereich von "UserForm2" ein.

  5. Fügen Sie in diesem Formular ein Befehlsschaltflächen-Steuerelement (CommandButton) mit dem Namen "CommandButton1" hinzu.

  6. Führen Sie "UserForm1" aus.

' ***** Code for UserForm1 ***** 
Private Sub CommandButton1_Click() 
 TextBox1.SetFocus 
 UserForm2.Show 'Bring up the second form. 
End Sub

Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 TextBox1.HideSelection = False 
 ToggleButton1.Caption = "Selection Visible" 
 Else 
 TextBox1.HideSelection = True 
 ToggleButton1.Caption = "Selection Hidden" 
 End If 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 TextBox1.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection 
 
'Fill the TextBox 
 TextBox1.Text = "SelText indicates the starting " _ 
 & "point of selected text, or the insertion " _ 
 & point if no text is selected." & Chr$(10) _ 
 & Chr$(13) & "The SelStart property is " _ 
 & "always valid, even when the control does " _ 
 & "not have focus. Setting SelStart to a " _ 
 & "value less than zero creates an error. " _ 
 & Chr$(10) & Chr$(13) & "Changing the value " _ 
 & "of SelStart cancels any existing " _ 
 & "selection in the control, places " _ 
 & "an insertion point in the text, and sets " _ 
 & "the SelLength property to zero." 
 
 TextBox1.HideSelection = True 
 ToggleButton1.Caption = "Selection Hidden" 
 ToggleButton1.Value = False 

End Sub

'
' ***** Code for UserForm2 *****

Private Sub CommandButton1_Click() 
 UserForm2.Hide 
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.