Compartir a través de

Ejemplo de la propiedad Value

  • Artículo

En el ejemplo siguiente se muestran los valores que los distintos tipos de controles pueden tener al mostrar la propiedad Value de un control seleccionado.

El usuario elige un control presionando Tab o haciendo clic en el control. En función del tipo de control, el usuario también puede especificar un valor para el control escribiendo en el área de texto del control, haciendo clic una o varias veces en el control, o seleccionando un elemento, una página o un tabulador dentro del control. El usuario puede visualizar el valor del control seleccionado haciendo clic en el CommandButton con la etiqueta adecuada.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

  • Un control CommandButton denominado CommandButton1.
  • Un control TextBox denominado TextBox1.
  • Un control CheckBox denominado CheckBox1.
  • Un control ComboBox denominado ComboBox1.
  • Un control CommandButton denominado CommandButton2.
  • Un control ListBox denominado ListBox1.
  • Un control MultiPage denominado MultiPage1.
  • Dos controles OptionButton denominados OptionButton1 y OptionButton2.
  • Un control ScrollBar denominado ScrollBar1.
  • Un control SpinButton denominado SpinButton1.
  • Un control TabStrip denominado TabStrip1.
  • Un control TextBox denominado TextBox2.
  • Un control ToggleButton denominado 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.