Exemplo da propriedade Value

O exemplo a seguir demonstra os valores que os diferentes tipos de controles podem ter exibindo a propriedade Value de um controle selecionado.

O usuário escolhe um controle pressionando Tab ou clicando no controle. 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 usuário pode exibir o valor do controle selecionado clicando no CommandButton devidamente rotulado.

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 chamada TextBox1.
• Uma Caixa de Seleção chamada CheckBox1.
• Uma ComboBox chamada ComboBox1.
• Um CommandButton denominado CommandButton2.
• Uma ListBox chamada ListBox1.
• Uma MultiPage chamada MultiPage1.
• Dois controles OptionButton chamados OptionButton1 e OptionButton2.
• Uma Barra de Rolagem chamada ScrollBar1.
• Um SpinButton chamado SpinButton1.
• Um TabStrip chamado TabStrip1.
• Uma TextBox denominada TextBox2.
• Um ToggleButton chamado 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.