Pregunta: | 67096 - TOOLBAR VISUAL BASIC 6 |
Autor: | alex delgado |
Ante todo gracias por compartir el conocimiento. Tengo con un problema con el control toolbar. Veran si yo tengo digamos 3 botones, cuando yo necesita programar en ellos los referenciaré por el key así: Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key 'Determina el botón que se pulsa. Case "USUARIOS" Case "clientes" case "proveedores" End Select End Sub mi problema surge porque en cada botón tengo submenús de tres opciones y no se como ingresar código en ellos. pues a mi en la función 'Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) 'End Sub no me deja escoger un botón específico. sino que aparentemente es como si considerara que solo tengo un botón con varias opciones (submenu). ¿cómo hago para referenciar a un bótón específico? he intentado lo siguiente pero no funciona Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Key = USUARIOS Case "nuevo" 'me vinculo con una opción Case "modificar" 'otra opció Case "eliminar" 'otra opción Case "salir" End End Select End Sub perdónpor alargar la pregunta, pero quería ser lo suficiente preciso. Saludos y gracias de antemano. |