home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap17 / connect1.cls < prev    next >
Encoding:
Text File  |  1995-09-24  |  928 b   |  35 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 1"
  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 ConnectID As Long
  14. Dim thisInstance As VBIDE.Application
  15.  
  16. Sub ConnectAddIn(VBInstance As VBIDE.Application)
  17.  
  18.     Set thisInstance = VBInstance
  19.  
  20.     Set NewMenu = thisInstance.AddInMenu.MenuItems.AddMenu("&New Menu")
  21.     Set MenuLines = NewMenu.MenuItems.Add("&First Option")
  22.     ConnectID = MenuLines.ConnectEvents(Me)
  23. End Sub
  24.  
  25. Sub DisconnectAddIn(Mode As Integer)
  26.     MenuLines.DisconnectEvents ConnectID
  27.     NewMenu.MenuItems.Remove MenuLines
  28.     thisInstance.AddInMenu.MenuItems.Remove NewMenu
  29. End Sub
  30.  
  31. Public Sub AfterClick()
  32.     MsgBox "The Add-Ins menu option has been clicked."
  33. End Sub
  34.  
  35.