/ Snippet Library - View Code

Visual Basic / Menus / Popup Menu

Snippet details

ID: 384

Viewed: 1379

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Origin: http://www.vbforums.com
Purpose: Create a Popup Menu
Version: VB5+

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Megatron

Snippet By:	Megatron
Declarations
Highlight AllPrivate Declare Function AppendMenu Lib "user32" _ Alias "AppendMenuA" (ByVal hMenu As Long, ByVal _ wFlags As Long, ByVal wIDNewItem As Long, ByVal _ lpNewItem As Any) As Long Private Declare Function CreatePopupMenu Lib "user32" _ () As Long Private Declare Function DestroyMenu Lib "user32" _ (ByVal hMenu As Long) As Long Private Declare Function GetCursorPos Lib "user32" _ (lpPoint As POINTAPI) As Long Private Declare Function TrackPopupMenu Lib "user32" _ (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As _ Long, ByVal y As Long, ByVal nReserved As Long, ByVal _ hwnd As Long, ByVal lprc As Any) As Long Const MF_STRING = &H0& Private Type POINTAPI x As Long y As Long End Type Private hMenu As Long Private PT As POINTAPI
Code
Highlight AllPrivate Sub Form_Load() hMenu = CreatePopupMenu() AppendMenu hMenu, MF_STRING, 0, "New Menu" End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Call GetCursorPos(PT) If Button = 2 Then TrackPopupMenu hMenu, 0, PT.x, PT.y, 0, hwnd, 0& End If End Sub Private Sub Form_Unload(Cancel As Integer) DestroyMenu hMenu End Sub

No Reviews to show