ShowPopupMenu Function
Syntax
ShowPopupMenu(StrArray$( )[, PopupStyle][, XPos, YPos])
Group
Description
Show a popup menu and return the number of the item selected. The item number is the index of the StrArray selected minus LBound(StrArray). The value -1 is returned in no menu item is selected.
|
Parameters |
Description |
|
This one-dimensional array of strings establishes the list of choices. All the non-null elements of the array are used. |
|
|
This controls how the popup menu is aligned. Any combination of styles may used together. See the table below. |
|
|
When the menu is put up the alignment will be at this window position. If this is omitted then the current mouse position is used. |
|
|
When the menu is put up the alignment will be at this window position. If this is omitted then the current mouse position is used. |
|
PopupStyle |
Value |
Effect |
|
vbPopupLeftTopAlign |
0 |
Align menu left edge at XPos and top at YPos. (default) |
|
vbPopupUseLeftButton |
1 |
User can select menu choices with the left mouse button only. |
|
vbPopupUseRightButton |
2 |
User can select menu choices with the left or right mouse button. |
|
vbPopupRightAlign |
4 |
Align menu with right edge at the XPos. |
|
vbPopupCenterAlign |
8 |
Align menu center at the XPos. |
|
vbPopupVCenterAlign |
16 |
Align menu center at the YPos. |
|
vbPopupBottomAlign |
32 |
Align menu bottom at the YPos. |
Example
Sub Main
Dim Items(0 To 2) As String
Items(0) = "Item &1"
Items(1) = "Item &2"
Items(2) = "Item &3"
X = ShowPopupMenu(Items) ' show popup menu
Debug.Print X ' item selected
End Sub