TOOLBAR
Oi Galera, estou com uma dúvida??? Como faço para indicar uma ação à  um botão em uma toolbar, nem passa pela minha mente como se faz isso, penso que naum deve ser tão difÃcil, mas eu até agora naum consegui, por favor se alguém poder me ajudar, agradeço muitão... Abraço à  toda galera aà do VBMANIA.
Private Sub barraferramentas_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case Is = "mnu_cad_cliente"
mnu_cad_cliente_Click
Case Is = "mnu_cad_fornecedor"
mnu_cad_fornecedor_Click
Screen.MousePointer = vbArrow
end sub
Entre na propriedade da barra e utilize a propriedade key de cada botão. Coloque tudo minúsculo.
Select Case Button.Key
Case Is = "mnu_cad_cliente"
mnu_cad_cliente_Click
Case Is = "mnu_cad_fornecedor"
mnu_cad_fornecedor_Click
Screen.MousePointer = vbArrow
end sub
Entre na propriedade da barra e utilize a propriedade key de cada botão. Coloque tudo minúsculo.
se não funcionar com o button.key mude para button.index
Private Sub barraferramentas_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.index
case 1
rotina1
case 2
rotina2
case 3
rotina3
end select
end sub
Private Sub barraferramentas_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.index
case 1
rotina1
case 2
rotina2
case 3
rotina3
end select
end sub
Tópico encerrado , respostas não são mais permitidas