home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD76567102000.psc / ModMenu.bas < prev    next >
Encoding:
BASIC Source File  |  2000-07-03  |  1.2 KB  |  51 lines
  1. Attribute VB_Name = "ModMenu"
  2. Declare Function GetMenu Lib "user32" _
  3.     (ByVal hwnd As Long) As Long
  4.  
  5.  
  6. Declare Function GetSubMenu Lib "user32" _
  7.     (ByVal hMenu As Long, ByVal nPos As Long) As Long
  8.  
  9.  
  10. Declare Function GetMenuItemID Lib "user32" _
  11.     (ByVal hMenu As Long, ByVal nPos As Long) As Long
  12.  
  13.  
  14. Declare Function SetMenuItemBitmaps Lib "user32" _
  15.     (ByVal hMenu As Long, ByVal nPosition As Long, _
  16.     ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, _
  17.     ByVal hBitmapChecked As Long) As Long
  18.     Public Const MF_BITMAP = &H4&
  19.  
  20.  
  21. Type MENUITEMINFO
  22.     cbSize As Long
  23.     fMask As Long
  24.     fType As Long
  25.     fState As Long
  26.     wID As Long
  27.     hSubMenu As Long
  28.     hbmpChecked As Long
  29.     hbmpUnchecked As Long
  30.     dwItemData As Long
  31.     dwTypeData As String
  32.     cch As Long
  33.     End Type
  34.  
  35.  
  36. Declare Function GetMenuItemCount Lib "user32" _
  37.     (ByVal hMenu As Long) As Long
  38.  
  39.  
  40. Declare Function GetMenuItemInfo Lib "user32" _
  41.     Alias "GetMenuItemInfoA" (ByVal hMenu As Long, _
  42.     ByVal un As Long, ByVal b As Boolean, _
  43.     lpMenuItemInfo As MENUITEMINFO) As Boolean
  44.     Public Const MIIM_ID = &H2
  45.     Public Const MIIM_TYPE = &H10
  46.     Public Const MFT_STRING = &H0&
  47.  
  48.  
  49.  
  50.  
  51.