home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / menubutn / module1.bas < prev   
Encoding:
BASIC Source File  |  1997-07-09  |  864 b   |  34 lines
  1. Attribute VB_Name = "Module1"
  2. Public Const MIIM_STATE = &H1
  3. Public Const MIIM_ID = &H2
  4. Public Const MIIM_SUBMENU = &H4
  5. Public Const MIIM_CHECKMARKS = &H8
  6. Public Const MIIM_TYPE = &H10
  7. Public Const MIIM_DATA = &H20
  8. Public Const MFT_RADIOCHECK = &H200&
  9.  
  10. Public Type MENUITEMINFO
  11. cbSize As Long
  12. fMask As Long
  13. fType As Long
  14. fState As Long
  15. wID As Long
  16. hSubMenu As Long
  17. hbmpChecked As Long
  18. hbmpUnchecked As Long
  19. dwItemData As Long
  20. dwTypeData As String
  21. cch As Long
  22. End Type
  23.  
  24. Public Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" _
  25. (ByVal hMenu As Long, ByVal uItem As Long, _
  26. ByVal fByPosition As Long, lpmii As MENUITEMINFO) As Long
  27.  
  28. Public Declare Function GetMenu Lib "user32" _
  29. (ByVal hwnd As Long) As Long
  30.  
  31. Public Declare Function GetSubMenu Lib "user32" _
  32. (ByVal hMenu As Long, _
  33. ByVal nPos As Long) As Long
  34.