Controlar o estilo de botão soltar e quando mostrar o botão Soltar
O exemplo a seguir demonstra os diferentes símbolos que você pode especificar para uma seta suspensa em um ComboBox ou TextBox. Neste exemplo, o usuário escolhe um estilo de seta suspensa de uma ComboBox. Este exemplo também usa a propriedade TextBox.Locked . To use this example, copy this sample code to the Script Editor of a form. Verifique se o formulário contém:
Uma ComboBox denominada ComboBox1.
Um rótulo chamado Label1.
Uma TextBox denominada TextBox1 colocada abaixo de 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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de