Ayuda con SmartMenuXP1
Os cuento me he creado un menu con dicha utilidad observando algunos ejemplos, pero ninguno explica como llamar a un menú si le he insertado imagen. Os pongo el codigo a ver si se entiende más claro.
'este código crea el menu
Private Sub pBuildMenus()
With SmartMenuXP1.MenuItems
' Menu > File...
.Add 0, "mnuFile", , "&File"
.Add "mnuFile", , smiPicture, "Load Data File", pGetPicture("OpenFile"), vbCtrlMask + vbShiftMask, vbKeyL
.Add "mnuFile", , smiSeparator
.Add "mnuFile", "keyExit", , "Exit", , vbAltMask, vbKeyQ
End With
SmartMenuXP1.Font.Name = "Ms Sans Serif"
SmartMenuXP1.Font.Size = 9
End Sub
' con este codigo le digo que ha de hacer cada cosa pero no se que keyid tengo que poner para que este menu .Add "mnuFile", , smiPicture, "Load Data File", pGetPicture("OpenFile"), vbCtrlMask + vbShiftMask, vbKeyL me haga una llamada a otro formulario
Private Sub SmartMenuXP1_Click(ByVal ID As Long)
With SmartMenuXP1.MenuItems
Select Case .Key(ID)
Case "keyExit"
Unload Me
Case "keyAbout"
frmAbout.Show vbModal
End Select
End With
End Sub
'este código crea el menu
Private Sub pBuildMenus()
With SmartMenuXP1.MenuItems
' Menu > File...
.Add 0, "mnuFile", , "&File"
.Add "mnuFile", , smiPicture, "Load Data File", pGetPicture("OpenFile"), vbCtrlMask + vbShiftMask, vbKeyL
.Add "mnuFile", , smiSeparator
.Add "mnuFile", "keyExit", , "Exit", , vbAltMask, vbKeyQ
End With
SmartMenuXP1.Font.Name = "Ms Sans Serif"
SmartMenuXP1.Font.Size = 9
End Sub
' con este codigo le digo que ha de hacer cada cosa pero no se que keyid tengo que poner para que este menu .Add "mnuFile", , smiPicture, "Load Data File", pGetPicture("OpenFile"), vbCtrlMask + vbShiftMask, vbKeyL me haga una llamada a otro formulario
Private Sub SmartMenuXP1_Click(ByVal ID As Long)
With SmartMenuXP1.MenuItems
Select Case .Key(ID)
Case "keyExit"
Unload Me
Case "keyAbout"
frmAbout.Show vbModal
End Select
End With
End Sub