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