SoloCodigo

Saludos foro..

Fijense, tengo unos buttonsmenu en un toolbar, ok. el problema como referencio los menu contextuales de los buttonMenu...

Lo he intentado de esta manera:

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ComctlLib.ButtonMenu)
   Select Case ButtonMenu.Index
   Case 1
      MsgBox "Haga clic en el botón."
   Case 2
      MsgBox "Ofrece algunas opciones"
   End Select

pero me genera errores tales como "no se ha definido el tipo ButtonMenu"...

Gracias...

Hola carlosjrey.

En la definición del evento hay un gazapo... donde dice

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ComctlLib.ButtonMenu)

debería decir...

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MsComctlLib.ButtonMenu)

Suerte.

Muchas gracias! Semejante nimiedad nos complican  a veces las cosas..

Gracias!