home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / equaflip / connect.dsr < prev    next >
Encoding:
Text File  |  1999-10-06  |  1.6 KB  |  46 lines
  1. VERSION 5.00
  2. Begin {AC0714F6-3D04-11D1-AE7D-00A0C90F26F4} Connect 
  3.    ClientHeight    =   9765
  4.    ClientLeft      =   1740
  5.    ClientTop       =   1545
  6.    ClientWidth     =   8985
  7.    _ExtentX        =   15849
  8.    _ExtentY        =   17224
  9.    _Version        =   393216
  10.    Description     =   $"Connect.dsx":0000
  11.    DisplayName     =   "EquaFlip"
  12.    AppName         =   "Visual Basic"
  13.    AppVer          =   "Visual Basic 98 (ver 6.0)"
  14.    LoadName        =   "Command Line / Startup"
  15.    LoadBehavior    =   5
  16.    RegLocation     =   "HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0"
  17.    CmdLineSupport  =   -1  'True
  18. End
  19. Attribute VB_Name = "Connect"
  20. Attribute VB_GlobalNameSpace = False
  21. Attribute VB_Creatable = True
  22. Attribute VB_PredeclaredId = False
  23. Attribute VB_Exposed = True
  24. Option Explicit
  25.  
  26. Private mWin As Window
  27. Private mobjDoc As axdUserDoc
  28.  
  29. Const guidMyTool$ = "(4244B234-E45F-12dg-8O3f-04884)"
  30.  
  31. Private Sub AddinInstance_OnConnection(ByVal VBInst As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
  32.  
  33.     'Create the dockable window
  34.     Set mWin = AddInInst.VBE.Windows.CreateToolWindow(AddInInst, "EquaFlip.axdUserDoc", _
  35.                                                                                             "EquaFlip", guidMyTool, mobjDoc)
  36.     mWin.Visible = True
  37.     Set VBInstance = VBInst
  38.         
  39. End Sub
  40.  
  41. Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
  42.     Set VBInstance = Nothing
  43.     Set mobjDoc = Nothing
  44. End Sub
  45.  
  46.