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

• Inicie um novo projeto padrão no Visual Basic
• Para poder usar o controle ToolBar voce deve incluir o componente em Project | Components e a seguir marcar a opção : Microsoft Windows Commons Controls 6.0 (SP4)
• Insira um controle Combobox , um botão de comando e um controle TooBar no formulário padrão - form1.
• Inclua um botão na ToolBar só para o efeito visual ficar mais atraente. (Clique com o botão direito do mouse na Toolbar e no menu Properties , ative a aba Buttons e clique em - Insert Button.).
• Veja abaixo como deve ficar:

• Insira o codigo abaixo no evento Click do botão de comando - command1:

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