Steuern des Auswahl- und Ziehverhaltens beim Eingeben eines Textfelds

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.

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:

• 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.

Dim TextBox1, TextBox2 
Dim ToggleButton1, ToggleButton2, ToggleButton3, ToggleButton4 
 
Sub Item_Open() 
 set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") 
 set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2") 
 set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 set ToggleButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton2") 
 set ToggleButton3 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton3") 
 set ToggleButton4 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton4") 
 
 TextBox1.Text = "Once upon a time in a land ...," 
 ToggleButton1.Value = True 
 ToggleButton1.Caption = "Drag Enabled" 
 ToggleButton1.WordWrap = True 
 TextBox1.DragBehavior = 1 'fmDragBehaviorEnabled 
 
 ToggleButton2.Value = True 
 ToggleButton2.Caption = "Recall Selection" 
 ToggleButton2.WordWrap = True 
 TextBox1.EnterFieldBehavior = 1 'fmEnterFieldBehaviorRecallSelection 
 
 TextBox2.Text = "XXX, YYYY" 
 ToggleButton3.Value = False 
 ToggleButton3.Caption = "Drag Disabled" 
 ToggleButton3.WordWrap = True 
 TextBox2.DragBehavior = 0 'fmDragBehaviorDisabled 
 
 ToggleButton4.Value = False 
 ToggleButton4.Caption = "Select All" 
 ToggleButton4.WordWrap = True 
 TextBox2.EnterFieldBehavior = 0 'fmEnterFieldBehaviorSelectAll 
End Sub 
 
Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "Drag Enabled" 
 TextBox1.DragBehavior = 1 'fmDragBehaviorEnabled 
 Else 
 ToggleButton1.Caption = "Drag Disabled" 
 TextBox1.DragBehavior = 0 'fmDragBehaviorDisabled 
 End If 
End Sub 
 
Sub ToggleButton2_Click() 
 If ToggleButton2.Value = True Then 
 ToggleButton2.Caption = "Recall Selection" 
 TextBox1.EnterFieldBehavior = 1 'fmEnterFieldBehaviorRecallSelection 
 Else 
 ToggleButton2.Caption = "Select All" 
 TextBox1.EnterFieldBehavior = 0 'fmEnterFieldBehaviorSelectAll 
 End If 
End Sub 
 
Sub ToggleButton3_Click() 
 If ToggleButton3.Value = True Then 
 ToggleButton3.Caption = "Drag Enabled" 
 TextBox2.DragBehavior = 1 'fmDragBehaviorEnabled 
 Else 
 ToggleButton3.Caption = "Drag Disabled" 
 TextBox2.DragBehavior = 0 'fmDragBehaviorDisabled 
 End If 
End Sub 
 
Sub ToggleButton4_Click() 
 If ToggleButton4.Value = True Then 
 ToggleButton4.Caption = "Recall Selection" 
 TextBox2.EnterFieldBehavior = 1 'fmEnterFieldBehaviorRecallSelection 
 Else 
 ToggleButton4.Caption = "Select All" 
 TextBox2.EnterFieldBehavior = 0 '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.