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 / clsSubMenu.cls < prev    next >
Encoding:
Visual Basic class definition  |  2000-12-14  |  1.5 KB  |  47 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cVBSubMenu"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"No"
  16. Option Explicit
  17. Private hPopupMenu As Long 'handle to the popup menu to display
  18. Private MenuInfo As MENUITEMINFO   'describes menu items to add
  19. Private MenuCount As Long
  20. Dim retval As Long        'generic return value
  21.  
  22.  
  23. Friend Function SubMenuPopUp() As Long
  24.     hPopupMenu = CreatePopupMenu()
  25.     With MenuInfo
  26.         .cbSize = Len(MenuInfo) 'The size of this structure.
  27.         .fMask = MIIM_STATE Or MIIM_ID Or MIIM_TYPE Or MIIM_SUBMENU 'Which elements of the structure to use.
  28.     End With
  29.     SubMenuPopUp = hPopupMenu
  30. End Function
  31.  
  32. Public Sub Add(ByVal MenuCaption As String, MenuType As MenuTypeEnum, MenuState As MenuStateEnum, MenuID As Long)
  33.     Dim mPic As StdPicture
  34.     With MenuInfo '(SubMenu/teste)
  35.         .fType = MenuType
  36.         .fState = MenuState
  37.         .wID = MenuID 'Assign this item an item identifier.
  38.         .dwTypeData = MenuCaption
  39.         .cch = Len(MenuCaption)
  40.         .hSubMenu = 0
  41.         
  42.     End With
  43.     retval = InsertMenuItem(hPopupMenu, MenuCount, 1, MenuInfo)
  44.     MenuCount = MenuCount + 1
  45. End Sub
  46.  
  47.