home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 13 / VOL15N11.ZIP / TBWIZ.ZIP / CONNECT.CLS next >
Text File  |  1996-02-24  |  2KB  |  73 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "ConnectClass"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Attribute VB_Description = "Toolbar Saver"
  9. Option Explicit
  10.  
  11. Private VBInstance As Object
  12. '___VBIDE menu objects
  13. Dim tbWizMenu As VBIDE.SubMenu
  14. Dim tbWizLoadItem As VBIDE.MenuLine
  15. Dim tbWizSaveItem As VBIDE.MenuLine
  16.  
  17. '___toolbar wiz menu item objects to receive AfterClick events
  18. Dim tbWizLoadItemEventHandler As New tbMenuItem
  19. Dim tbWizSaveItemEventHandler As New tbMenuItem
  20. '___vars to track connection to AfterClick events
  21. Dim tbWizLoadItemConnectID As Long
  22. Dim tbWizSaveItemConnectID As Long
  23.  
  24.  
  25. Public Sub ConnectAddIn(NewVBInstance As VBIDE.Application)
  26.  
  27.     On Error GoTo errConnectAddIn
  28.     Set VBInstance = NewVBInstance
  29.     Set gobjIDEAppInst = NewVBInstance
  30.     
  31. '___Add custom items to Add-In menu
  32.     Set tbWizMenu = VBInstance.AddInMenu.MenuItems.AddMenu("&Toolbar Wizard")
  33.     With tbWizMenu.MenuItems
  34.         Set tbWizLoadItem = .Add("&Save current toolbar...")
  35.         Set tbWizSaveItem = .Add("&Load toolbar...")
  36.     End With
  37.     
  38. '___identify menuLine event handlers
  39.     tbWizLoadItemConnectID = tbWizLoadItem.ConnectEvents(tbWizLoadItemEventHandler)
  40.     tbWizSaveItemConnectID = tbWizSaveItem.ConnectEvents(tbWizSaveItemEventHandler)
  41. '___tell event handlers what events they are to handle
  42.     tbWizLoadItemEventHandler.Operation = opSave
  43.     tbWizSaveItemEventHandler.Operation = opLoad
  44.     Set tbWizLoadItemEventHandler.VBInstance = VBInstance
  45.     Set tbWizSaveItemEventHandler.VBInstance = VBInstance
  46.     Exit Sub
  47.  
  48. errConnectAddIn:
  49.     MsgBox ("An error occured while connecting the tbWiz Add-in.  " & Error$)
  50.     Exit Sub
  51.  
  52. End Sub
  53.  
  54. Public Sub DisconnectAddIn(Mode As Integer)
  55.  
  56.     On Error GoTo errDisconnectAddIn
  57. '___disconnect event handlers
  58.     tbWizLoadItem.DisconnectEvents tbWizLoadItemConnectID
  59.     tbWizSaveItem.DisconnectEvents tbWizSaveItemConnectID
  60.  
  61. '___remove custom menu itesm
  62.     VBInstance.AddInMenu.MenuItems.Remove tbWizMenu
  63.     Set gobjIDEAppInst = Nothing
  64.  
  65.     Exit Sub
  66.  
  67. errDisconnectAddIn:
  68.     Alert "An error occured while disconnecting the tbWiz Add-In.  " & Error$
  69.     Exit Sub
  70.  
  71. End Sub
  72.  
  73.