Private
Declare
FunctionCreatePopupMenu Lib <VAR>"user32"</VAR> () As Long
Private
Declare
FunctionInsertMenuItem Lib <VAR>"user32.dll"</VAR> Alias <VAR>"InsertMenuItemA"</VAR> (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPosition As Long, lpmii As MENUITEMINFO) As Long
Private
Declare
FunctionTrackPopupMenuEx Lib <VAR>"user32"</VAR> (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal hwnd As Long, ByVal lptpm As Any) As Long
Private
Declare
FunctionGetCursorPos Lib <VAR>"user32"</VAR> (lpPoint As POINTAPI) As Long
Private
Declare
FunctionDestroyMenu Lib <VAR>"user32"</VAR> (ByVal hMenu As Long) As Long </LI></OL>
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question