Compartilhar via


Exemplo do controle CheckBox, das propriedades Enabled, Locked

The following example demonstrates the Enabled and Locked properties and how they complement each other. This example exposes each property independently with a CheckBox, so you observe the settings individually and combined.

This example also includes a second TextBox so you can copy and paste information between the TextBox controls and verify the activities supported by the settings of these properties.

Observação

[!OBSERVAçãO] You can copy the selection to the Clipboard using CTRL+C and paste using CTRL+V.

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:

  • A TextBox named TextBox1.
  • Two CheckBox controls named CheckBox1 and CheckBox2.
  • A second TextBox named TextBox2.
Private Sub CheckBox1_Change() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Enabled = CheckBox1.Value 
End Sub 
 
Private Sub CheckBox2_Change() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Locked = CheckBox2.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 TextBox1.Text = "TextBox1" 
 TextBox1.Enabled = True 
 TextBox1.Locked = False 
 
 CheckBox1.Caption = "Enabled" 
 CheckBox1.Value = True 
 
 CheckBox2.Caption = "Locked" 
 CheckBox2.Value = False 
 
 TextBox2.Text = "TextBox2" 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.