Compartir a través de

Aceptar entrada de usuario y mostrar los valores de los controles en un formulario

El siguiente ejemplo muestra los valores que los diferentes tipos de controles pueden tener mostrando la propiedad Value de un control seleccionado. El usuario elige un control presionando la tecla Tabulador 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 utilizar este ejemplo, copie el código en el Editor de secuencias de comandos de un formulario. Para ejecutar el código debe abrir el formulario con el fin de que se produzca el evento Open. 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.

  • Un control TextBox denominado TextBox2.

  • Un control ToggleButton denominado ToggleButton1.

Sub CommandButton1_Click() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") 
 Set Form = Item.GetInspector.ModifiedFormPages("P.2") 
 TextBox1.Text = "Value of " & Form.ActiveControl.Name & " is " & Form.ActiveControl.Value 
End Sub 

Sub Item_Open() 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") 
 Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1") 
 Set ListBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ListBox1") 
 Set CheckBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CheckBox1") 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2") 
 
 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 
 
 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.