migrationanalysis/src/wizard/Wizard.Dsr

   1 VERSION 5.00\r
   2 Begin {AC0714F6-3D04-11D1-AE7D-00A0C90F26F4} Wizard \r
   3    ClientHeight    =   7470\r
   4    ClientLeft      =   1740\r
   5    ClientTop       =   1545\r
   6    ClientWidth     =   6585\r
   7    _ExtentX        =   11615\r
   8    _ExtentY        =   13176\r
   9    _Version        =   393216\r
  10    DisplayName     =   "AnalysisWizard"\r
  11    AppName         =   "Visual Basic"\r
  12    AppVer          =   "Visual Basic 6.0"\r
  13    LoadName        =   "Command Line / Startup"\r
  14    LoadBehavior    =   5\r
  15    RegLocation     =   "HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\6.0"\r
  16    CmdLineSupport  =   -1  'True\r
  17 End\r
  18 Attribute VB_Name = "Wizard"\r
  19 Attribute VB_GlobalNameSpace = False\r
  20 Attribute VB_Creatable = True\r
  21 Attribute VB_PredeclaredId = False\r
  22 Attribute VB_Exposed = False\r
  23 Option Explicit\r
  24 \r
  25 Dim mcbMenuCommandBar         As Office.CommandBarControl  'command bar object\r
  26 Public WithEvents MenuHandler As CommandBarEvents          'command bar event handler\r
  27 Attribute MenuHandler.VB_VarHelpID = -1\r
  28 Dim mfrmWizard As frmWizard\r
  29 Dim VBInstance As VBIDE.VBE\r
  30 \r
  31 \r
  32 '------------------------------------------------------\r
  33 'this method adds the Add-In to the VB menu\r
  34 'it is called by the VB addin manager\r
  35 '------------------------------------------------------\r
  36 Private Sub AddinInstance_OnConnection(ByVal application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)\r
  37    On Error GoTo error_handler\r
  38    \r
  39    Set VBInstance = application\r
  40    \r
  41    If ConnectMode = ext_cm_External Then\r
  42        'Used by the wizard toolbar to start this wizard\r
  43        LoadMe\r
  44    Else\r
  45        Set mcbMenuCommandBar = AddToAddInCommandBar(VBInstance, LoadResString(15), LoadResPicture(5000, 0))\r
  46        'sink the event\r
  47        Set Me.MenuHandler = VBInstance.Events.CommandBarEvents(mcbMenuCommandBar)\r
  48    End If\r
  49   \r
  50    Exit Sub\r
  51      \r
  52 error_handler:\r
  53    MsgBox Err.Description\r
  54 End Sub\r
  55 \r
  56 '------------------------------------------------------\r
  57 'this method removes the Add-In from the VB menu\r
  58 'it is called by the VB addin manager\r
  59 '------------------------------------------------------\r
  60 Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)\r
  61     'delete the command bar entry\r
  62     mcbMenuCommandBar.Delete\r
  63 End Sub\r
  64 \r
  65 'this event fires when the menu is clicked in the IDE\r
  66 Private Sub MenuHandler_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)\r
  67     LoadMe\r
  68 End Sub\r
  69 \r
  70 Private Sub LoadMe()\r
  71     Set mfrmWizard = New frmWizard\r
  72     'pass the vb instance to the wizard module\r
  73     Set mfrmWizard.VBInst = VBInstance\r
  74     'load and show the form\r
  75     mfrmWizard.Show vbModal\r
  76     Set mfrmWizard = Nothing\r
  77 End Sub\r
  78 \r
  79 \r