Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade TripleState, o exemplo do controle ToggleButtonTripleState Property, ToggleButton Control Example

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

O exemplo a seguir usa a propriedade TripleState para permitir Null como um valor válido de uma caixa de seleção e um ToggleButton. O usuário controla o valor de TripleState através do ToggleButton2. O usuário pode definir o valor de uma caixa de seleção ou ToggleButton com base no valor da TripleState.The following example uses the TripleState property to allow Null as a legal value of a CheckBox and a ToggleButton. The user controls the value of TripleState through ToggleButton2. The user can set the value of a CheckBox or ToggleButton based on the value of TripleState.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

  • Uma CheckBox denominada CheckBox1.A CheckBox named CheckBox1.

  • Um ToggleButton denominado ToggleButton1.A ToggleButton named ToggleButton1.

  • Um ToggleButton denominado ToggleButton2.A ToggleButton named ToggleButton2.

Private Sub UserForm_Initialize() 
 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 

Private Sub ToggleButton2_Click() 
 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 

Private Sub CheckBox1_Change() 
 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 

Private Sub ToggleButton1_Change() 
 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
© 2018 Microsoft