Freigeben über

Zulassen des NULL-Zustands für ein Kontrollkästchen und eine Umschaltfläche

  • Artikel

Im folgenden Beispiel wird die TripleState -Eigenschaft verwendet, um Null als Wert für ein CheckBox - und ein ToggleButton -Objekt zuzulassen. Der Benutzer steuert den Wert der TripleState -Eigenschaft über "ToggleButton2". Der Wert eines CheckBox - oder eines ToggleButton -Objekts kann vom Benutzer auf der Grundlage des Werts für TripleState festgelegt werden. Wenn ein Steuerelement jedoch auf Null festgelegt ist, wird kein Ereignis ausgelöst.

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. Stellen Sie sicher, dass das Formular folgende Komponenten aufweist:

  • Ein CheckBox mit der Bezeichnung "CheckBox1".

  • Ein ToggleButton mit der Bezeichnung "ToggleButton1".

  • Ein ToggleButton mit der Bezeichnung "ToggleButton2".

  • Ein ToggleButton mit der Bezeichnung "ToggleButton1".

  • Ein ToggleButton mit der Bezeichnung "ToggleButton2".

Sub Item_Open() 
 Set CheckBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CheckBox1") 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set ToggleButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton2") 
 
 CheckBox1.Caption = "Value is True" 
 CheckBox1.Value = True 
 CheckBox1.TripleState = False 
 
 ToggleButton1.Caption = "Value is True" 
 ToggleButton1.Value = True 
 ToggleButton1.TripleState = False 
 
 ToggleButton2.Value = False 
 ToggleButton2.Caption = "Triple State Off" 
End Sub 
 
Sub ToggleButton2_Click() 
 Set CheckBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CheckBox1") 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set ToggleButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton2") 
 
 If ToggleButton2.Value = True Then 
 ToggleButton2.Caption = "Triple State On" 
 CheckBox1.TripleState = True 
 ToggleButton1.TripleState = True 
 Else 
 ToggleButton2.Caption = "Triple State Off" 
 CheckBox1.TripleState = False 
 ToggleButton1.TripleState = False 
 End If 
End Sub 
 
Sub CheckBox1_Click() 
 Set CheckBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CheckBox1") 
 If IsNull(CheckBox1.Value) Then 
 CheckBox1.Caption = "Value is Null" 
 ElseIf CheckBox1.Value = False Then 
 CheckBox1.Caption = "Value is False" 
 ElseIf CheckBox1.Value = True Then 
 CheckBox1.Caption = "Value is True" 
 End If 
End Sub 
 
Sub ToggleButton1_Click() 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 If IsNull(ToggleButton1.Value) Then 
 ToggleButton1.Caption = "Value is Null" 
 ElseIf ToggleButton1.Value = False Then 
 ToggleButton1.Caption = "Value is False" 
 ElseIf ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "Value is True" 
 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.