Exemplo da propriedade Value

O exemplo seguinte demonstra os valores que os diferentes tipos de controlos podem ter ao apresentar a propriedade Valor de um controlo selecionado.

O utilizador escolhe um controlo ao premir a Tecla de Tabulação ou ao clicar no controlo. Dependendo do tipo de controle, o usuário também poderá especificar um valor para ele digitando em sua área de texto, clicando uma ou mais vezes no controle ou selecionado um item, página ou guia do controle. O utilizador pode apresentar o valor do controlo selecionado ao clicar no CommandButton devidamente etiquetado.

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:

• Um CommandButton denominado CommandButton1.
• Uma Caixa de Texto com o nome TextBox1.
• Uma Caixa de Verificação com o nome Caixa de Verificação1.
• Uma Caixa de Combinação com o nome ComboBox1.
• Um CommandButton denominado CommandButton2.
• Uma Caixa de Listagem com o nome ListBox1.
• Uma Página Múltipla com o nome MultiPage1.
• Dois controlos OptionButton denominados OptionButton1 e OptionButton2.
• Uma Barra de Deslocamento com o nome ScrollBar1.
• Um SpinButton com o nome SpinButton1.
• Uma TabStrip com o nome TabStrip1.
• Uma TextBox denominada TextBox2.
• Um Botão de Alternar com o nome ToggleButton1.

Dim i As Integer 
 
Private Sub CommandButton1_Click() 
 TextBox1.Text = "Value of " & ActiveControl.Name _ 
 & " is " & ActiveControl.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton1.Caption = "Get value of " _ 
 & "current control" 
 CommandButton1.AutoSize = True 
 CommandButton1.TakeFocusOnClick = False 
 CommandButton1.TabStop = False 
 
 TextBox1.AutoSize = True 
 
 For i = 0 To 10 
 ComboBox1.AddItem "Choice " & (i + 1) 
 ListBox1.AddItem "Selection " & (100 - i) 
 Next i 
 
 CheckBox1.TripleState = True 
 ToggleButton1.TripleState = True 
 
 TextBox2.Text = "Enter text here." 
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.