|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Controles Intrínsecos (Padrão))
|
|
 |
Título da Dica: Aprendendo a usar o controle Toolbar
|
 |
|
|
|
Postada em 14/9/2007 por JOM
Iremos precisar, além do controle ToolBar, o controle ImageList.
Para dispor destes controles insira-os em sua caixa de Ferramentas, ou como conhecida Toolbox, da seguinte forma:
1 – Menu Project
2 - Components
Na caixa de diálogo que se abre:
1 - na aba Controls
2 – Selecione a caixa de seleção do Controle Microsoft Windows Common Controls 6.0 (SP6)
3 -Clik em aplicar ou OK
Agora que os controles já estão em sua Toolbox:
1 - Insira os controles ImageList e o controle Toolbar em seu Form
Primeiro trabalharemos a ImageList depois a Toolbar
1 -Click com o botão direito sobre o ImageList
2 – No menu que se abre Click em Properties
3 – Click na aba Images
4 – Click em Insert Picture e localize o ícone que quiser por na Toolbar
5 – Insira mais um icone conforme procedimento 4 anterior
6 – Click em OK
Agora na Toolbar:
1 – Click com o botão direito sobre o Toolbar
2 - No menu que se abre Click em Properties
3 – Na aba General, o 3º item de Nome ImageList deve estar marcado como “None”, click na seta e selecione a sua ImageList , a qual deve estar aparecendo com o nome de ImageList1, caso vc não tenha mudado o nome do controle.
4 – Click agora na aba Buttons
5 – Click em Insert Butons, como inserimos duas imagens no ImageList, insira também dois Butons para o Toolbar
6 – Ainda na aba Butons procure pelo campo Image :
7 – para o índex 1, ponha o numero 1 no campo Image
8 - para o índex 2, ponha o numero 2 no campo Image
9 –clik em ok
Pronto! Sua toolbar está criada, agora vamos codificá-la para seu funcionamento:
Dê dois clicks sobre o Toolbar para abrir a caixa de eventos:
Dentro do evento Click ponha o comando select para ver como se procede o funcionamente da Toolbar:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Msgbox(“Vc clicou o primeiro botão”)
Case 2
Msgbox(“Vc clicou o segundo botão”)
End select
End sub
Rode seu projeto e veja como funciona, agora é só por o Toolbar para funcionar em sua aplicação conforme sua necessidade.
Bons estudos e até mais
Jilney Macêdo
|
|
|
|
|
