Freigeben über


Beispiele für DragBehavior-, EnterFieldBehavior-Eigenschaft

Im folgenden Beispiel werden die Eigenschaften DragBehavior und EnterFieldBehavior verwendet, um die verschiedenen Effekte zu veranschaulichen, die Sie beim Eingeben eines Steuerelements und beim Ziehen von Informationen von einem Steuerelement auf ein anderes bereitstellen können.

Im Beispiel werden zwei TextBox-Steuerelemente verwendet. Sie können DragBehavior und EnterFieldBehavior für jedes Steuerelement festlegen und prüfen, wie das Ziehen zwischen den Steuerelementen wirkt.

Kopieren Sie den Beispielcode in den Deklarationsabschnitt eines Formulars, wenn Sie dieses Beispiel verwenden möchten. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • A TextBox named TextBox1.
  • Zwei Umschaltfeld-Steuerelemente ( ToggleButton ) mit der Bezeichnung "ToggleButton1" und "ToggleButton2". Diese Steuerelemente sind mit "TextBox1" verknüpft.
  • Ein Textfeld-Steuerelement ( TextBox ) mit der Bezeichnung "TextBox2".
  • Zwei Umschaltfeld-Steuerelemente ( ToggleButton ) mit der Bezeichnung "ToggleButton3" und "ToggleButton4". Diese Steuerelemente sind mit "TextBox2" verknüpft.
Private Sub UserForm_Initialize() 
 TextBox1.Text = "Once upon a time in a land ...," 
 ToggleButton1.Value = True 
 ToggleButton1.Caption = "Drag Enabled" 
 ToggleButton1.WordWrap = True 
 TextBox1.DragBehavior = fmDragBehaviorEnabled 
 
 ToggleButton2.Value = True 
 ToggleButton2.Caption = "Recall Selection" 
 ToggleButton2.WordWrap = True 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 
 TextBox2.Text = "XXX, YYYY" 
 ToggleButton3.Value = False 
 ToggleButton3.Caption = "Drag Disabled" 
 ToggleButton3.WordWrap = True 
 TextBox2.DragBehavior = fmDragBehaviorDisabled 
 
 ToggleButton4.Value = False 
 ToggleButton4.Caption = "Select All" 
 ToggleButton4.WordWrap = True 
 TextBox2.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorSelectAll 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "Drag Enabled" 
 TextBox1.DragBehavior = fmDragBehaviorEnabled 
 Else 
 ToggleButton1.Caption = "Drag Disabled" 
 TextBox1.DragBehavior = fmDragBehaviorDisabled 
 End If 
End Sub 
 
Private Sub ToggleButton2_Click() 
 If ToggleButton2.Value = True Then 
 ToggleButton2.Caption = "Recall Selection" 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 Else 
 ToggleButton2.Caption = "Select All" 
 TextBox1.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorSelectAll 
 End If 
End Sub 
 
Private Sub ToggleButton3_Click() 
 If ToggleButton3.Value = True Then 
 ToggleButton3.Caption = "Drag Enabled" 
 TextBox2.DragBehavior = fmDragBehaviorEnabled 
 Else 
 ToggleButton3.Caption = "Drag Disabled" 
 TextBox2.DragBehavior = fmDragBehaviorDisabled 
 End If 
End Sub 
 
Private Sub ToggleButton4_Click() 
 If ToggleButton4.Value = True Then 
 ToggleButton4.Caption = "Recall Selection" 
 TextBox2.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorRecallSelection 
 Else 
 ToggleButton4.Caption = "Select All" 
 TextBox2.EnterFieldBehavior = _ 
 fmEnterFieldBehaviorSelectAll 
 End If 
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.