home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap17 / connect3.cls < prev    next >
Encoding:
Text File  |  1995-09-24  |  1.2 KB  |  42 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CONNECTOR"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Attribute VB_Description = "AddIn Example 3"
  9. ' This class connects the add-in to the VB menu.
  10. '
  11. Dim NewMenu As VBIDE.SubMenu
  12. Dim MenuLines As VBIDE.MenuLine
  13. Dim MenuLines2 As VBIDE.MenuLine
  14. Dim clickHandler As AddInClass
  15. Dim clickHandler2 As AddInClass2
  16. Dim ConnectID As Long
  17. Dim ConnectID2 As Long
  18. Dim thisInstance As VBIDE.Application
  19.  
  20. Sub ConnectAddIn(VBInstance As VBIDE.Application)
  21.  
  22.     Set thisInstance = VBInstance
  23.  
  24.     Set clickHandler = New AddInClass
  25.     Set clickHandler2 = New AddInClass2
  26.  
  27.     Set NewMenu = thisInstance.AddInMenu.MenuItems.AddMenu("&New Menu")
  28.     Set MenuLines = NewMenu.MenuItems.Add("&First Option")
  29.     Set MenuLines2 = NewMenu.MenuItems.Add("&Second Option")
  30.     ConnectID = MenuLines.ConnectEvents(clickHandler)
  31.     ConnectID2 = MenuLines2.ConnectEvents(clickHandler2)
  32. End Sub
  33.  
  34. Sub DisconnectAddIn(Mode As Integer)
  35.     MenuLines.DisconnectEvents ConnectID
  36.     MenuLines2.DisconnectEvents ConnectID2
  37.     NewMenu.MenuItems.Remove MenuLines
  38.     NewMenu.MenuItems.Remove MenuLines2
  39.     thisInstance.AddInMenu.MenuItems.Remove NewMenu
  40. End Sub
  41.  
  42.