Ayuda con ToolBar
Alguien me puede decir como programo los ButtonMenus de un toolbar para que efectuen cualquier accion.
GRACIAS.
Saludos.
GRACIAS.
Saludos.
Con un Select Case, puedes usar su propiedad Index o Key, por ejemplo:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
case "1"
'aquí pones lo que quieres que ejecute el botón 1
case "2"
'aquí pones lo que quieres que ejecute el botón 2
End Select
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
case "1"
'aquí pones lo que quieres que ejecute el botón 1
case "2"
'aquí pones lo que quieres que ejecute el botón 2
End Select
End Sub
