Popup menus
VB allows you to easily create a popup menu like those you see in Explorer
when you right click. All you need to do is create a menu, containing all the items
you want displayed on the popup menu. Then, set the menus visible property to
false, so it is not displayed on the forms menu bar. Now add the following code
to the MouseUp event of any control on which you want the popup menu to be displayed
when it is right clicked.
If Button = vbRightButton Then
' Set the flags
vFlags = vbPopupMenuRightButton
' Display the menu
PopupMenu mnuEdit, vFlags
End If
The popupmenu function has the following parameters:
PopupMenu PopupMenu, Flags, X, Y, DefaultMenu
There are a few flags which you can set
before displaying the menu. These are described below:
|
vbPopupMenuRightButton
|
Popup menu disappears when whether the left or right mouse button is
clicked off the menu
|
|
vbPopupMenuLeftButton
|
Popup menu only disappears when the left
mouse button is clicked off the menu
|
|
vbPopupMenuCenterAlign
|
Aligns the menu in the middle of where
the mouse is clicked
|
|
vbPopupMenuLeftAlign
|
Aligns the menu to the left of where the
mouse is clicked.
|
|
vbPopupMenuRightAlign
|
Aligns the menu to the right of where
the mouse is clicked.
|
The X and Y parameters are optional, but you could use them to display the
menu at a fixed point (ie next to a button that is clicked to display it).
You can also display a default item in bold, by passing the menu item you want
in its DefaultMenu parameter.