home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap17 / connect2.cls < prev    next >
Text File  |  1995-09-24  |  916b  |  32 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 2"
  9. ' This class connects the add-in to the VB menu.
  10.  
  11. Dim clickHandler As AddInClass
  12. Dim NewMenu As VBIDE.SubMenu
  13. Dim MenuLines As VBIDE.MenuLine
  14. Dim ConnectID As Long
  15. Dim thisInstance As VBIDE.Application
  16.  
  17. Sub ConnectAddIn(VBInstance As VBIDE.Application)
  18.  
  19.     Set thisInstance = VBInstance
  20.     Set clickHandler = New AddInClass
  21.  
  22.     Set NewMenu = thisInstance.AddInMenu.MenuItems.AddMenu("&New Menu")
  23.     Set MenuLines = NewMenu.MenuItems.Add("&First Option")
  24.     CConnectID = MenuLines.ConnectEvents(clickHandler)
  25. End Sub
  26.  
  27. Sub DisconnectAddIn(Mode As Integer)
  28.     MenuLines.DisconnectEvents ConnectID
  29.     NewMenu.MenuItems.Remove MenuLines
  30.     thisInstance.AddInMenu.MenuItems.Remove NewMenu
  31. End Sub
  32.