Controlar el estilo de botón de colocación y cuándo mostrar el botón de colocación

El ejemplo siguiente muestra los distintos símbolos que puede especificar como flecha para desplegar un control ComboBox o TextBox. El usuario elige un estilo de flecha en un control ComboBox. También se emplea la propiedad TextBox.Locked. Para utilizar este ejemplo, copie el código en el Editor de secuencias de comandos de un formulario. Asegúrese de que el formulario contiene:

• Un control ComboBox denominado ComboBox1.

• Un control Label denominado Label1.

• Un control TextBox denominado TextBox1, situado bajo Label1.

Dim TextBox1 
Dim ComboBox1 
Dim Label1 
 
Sub ComboBox1_Click() 
 ComboBox1.DropButtonStyle = ComboBox1.Value 
 TextBox1.DropButtonStyle = ComboBox1.Value 
End Sub 
 
Sub Item_Open() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox1") 
 Set ComboBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("ComboBox1") 
 Set Label1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("Label1") 
 
 ComboBox1.ColumnCount = 2 
 ComboBox1.BoundColumn = 2 
 ComboBox1.TextColumn = 1 
 
 ComboBox1.AddItem "Blank Button" 
 ComboBox1.List(0, 1) = 0 
 ComboBox1.AddItem "Down Arrow" 
 ComboBox1.List(1, 1) = 1 
 ComboBox1.AddItem "Ellipsis" 
 ComboBox1.List(2, 1) = 2 
 ComboBox1.AddItem "Underscore" 
 ComboBox1.List(3, 1) = 3 
 
 ComboBox1.Value = 0 
 
 TextBox1.Text = "TextBox1" 
 TextBox1.ShowDropButtonWhen = 2 'fmShowDropButtonWhenAlways 
 TextBox1.Locked = True 
 
 Label1.Caption = "TheDropButton also applies to a TextBox." 
 Label1.AutoSize = True 
 Label1.WordWrap = False 
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.