Incluindo uma Combobox em uma ToolBar


Na sequência de dicas sobre as combobox , vou mostrar como incluir uma combobox em um controle Toolbar. No projeto eu vou estar usando o nome padrão para os controles ( command1 , toolbar1 , combo1 , etc...).

Obs: Eu estou testando este exemplo no Visual Basic 6.0 com service pack 5.

Incluindo um controle Combobox em um controle TooBar

Private Sub Command1_Click()

Dim btnX As Button

Me.Show

Set btnX = Toolbar1.Buttons.Add()
btnX.Style = tbrSeparator

Set btnX = Toolbar1.Buttons.Add()
btnX.Style = tbrPlaceholder

btnX.Key = "combo"

btnX.Width = 2000

With Combo1
   .ZOrder 0
   .Width = Toolbar1.Buttons("combo").Width
   .Top = Toolbar1.Buttons("combo").Top
   .Left = Toolbar1.Buttons("combo").Left
End With

End Sub

Para encerrar inclua o código abaixo em um evento Load do formulário para preencher a combo.( eu preenchi com o nome de algums meses)

Private Sub Form_Load()
   Combo1.AddItem "janeiro"
   Combo1.AddItem "fevereiro"
   Combo1.AddItem "março"
   Combo1.AddItem "abril"
   Combo1.ListIndex = 0
End Sub

Vamos testar ?? : Rode o projeto e a princípio você vai obter a tela da figura 1 . Agora clique no botão de comando e ... Abracadabra !!! a tela da figura 2 mostra a combobox inserida na Toolbar.

figura 1 - A tela inicial do projeto figura 2 - O Combobox incluido na Toolbar

Aguarde mais dicas sobre Combobox...


José Carlos Macoratti