|
SmartMenuXP
Reference
Occurs when a menu item is selected by either using the mouse, the keyboard,
an access key or a shortcut.
Syntax
Private Sub object_Click (ByVal ID As Long)
The Click event syntax has these parts:
| Part |
Description |
| object |
An object expression that evaluates to a SmartMenuXP object. |
| ID |
A Long that determines the selected menu item. |
Remarks
The Click event returns the ID of the selected menu item.
Private Sub
SmartMenuXP1_Click(ByVal ID As Long)
With SmartMenuXP1.MenuItems
Select Case .Key(ID)
Case
"keyOpen"
'
- Open a file...
Case
"keySave"
'
- Save a file...
Case
"keyExit"
'
- Exit the application...
End
Select
End With
End Sub
|