home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD142681292001.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2000-12-14  |  1.9 KB  |  48 lines
  1. Attribute VB_Name = "basAPI"
  2. 'Declaration section
  3. Public Declare Function CreatePopupMenu Lib "User32.dll" () As Long
  4. Public Declare Function DestroyMenu Lib "User32.dll" (ByVal hMenu As Long) As Long
  5. Public Type MENUITEMINFO
  6.     cbSize As Long
  7.     fMask As Long
  8.     fType As Long
  9.     fState As Long
  10.     wID As Long
  11.     hSubMenu As Long
  12.     hbmpChecked As Long
  13.     hbmpUnchecked As Long
  14.     dwItemData As Long
  15.     dwTypeData As String
  16.     cch As Long
  17. End Type
  18. Public Const MIIM_STATE = &H1
  19. Public Const MIIM_ID = &H2
  20. Public Const MIIM_SUBMENU = &H4
  21. Public Const MIIM_CHECKMARKS = &H8
  22. Public Const MIIM_DATA = &H20
  23. Public Const MIIM_TYPE = &H10
  24.  
  25. Public Declare Function InsertMenuItem Lib "User32.dll" Alias "InsertMenuItemA" _
  26.         (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPosition As Long, lpmii As MENUITEMINFO) As Long
  27. Public Declare Function TrackPopupMenu Lib "User32.dll" _
  28.         (ByVal hMenu As Long, ByVal uFlags As Long, ByVal x As Long, ByVal y As Long, _
  29.         ByVal nReserved As Long, ByVal hwnd As Long, ByVal prcRect As Long) As Long
  30. Public Const TPM_RIGHTALIGN = &H8&
  31. Public Const TPM_CENTERALIGN = &H4&
  32. Public Const TPM_LEFTALIGN = &H0
  33. Public Const TPM_TOPALIGN = &H0
  34. Public Const TPM_NONOTIFY = &H80
  35. Public Const TPM_RETURNCMD = &H100
  36. Public Const TPM_LEFTBUTTON = &H0
  37. Public Const TPM_RIGHTBUTTON = &H2&
  38. Public Type POINT_TYPE
  39.     x As Long
  40.     y As Long
  41. End Type
  42. Public Declare Function GetCursorPos Lib "User32.dll" (lpPoint As POINT_TYPE) As Long
  43. Public 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
  44. Public Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
  45.  
  46. Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
  47.  
  48.