migrationanalysis/src/wizard/Terminate.frm

   1 VERSION 5.00\r
   2 Begin VB.Form TerminateMSO \r
   3    BorderStyle     =   3  'Fixed Dialog\r
   4    Caption         =   "Dialog Caption"\r
   5    ClientHeight    =   2280\r
   6    ClientLeft      =   3165\r
   7    ClientTop       =   2835\r
   8    ClientWidth     =   6030\r
   9    ControlBox      =   0   'False\r
  10    LinkTopic       =   "Form1"\r
  11    MaxButton       =   0   'False\r
  12    MinButton       =   0   'False\r
  13    ScaleHeight     =   2280\r
  14    ScaleWidth      =   6030\r
  15    ShowInTaskbar   =   0   'False\r
  16    Begin VB.CommandButton NoButton \r
  17       Cancel          =   -1  'True\r
  18       Caption         =   "No"\r
  19       CausesValidation=   0   'False\r
  20       Default         =   -1  'True\r
  21       Height          =   375\r
  22       Left            =   4560\r
  23       TabIndex        =   0\r
  24       Top             =   1800\r
  25       Width           =   1215\r
  26    End\r
  27    Begin VB.CommandButton YesButton \r
  28       Caption         =   "Yes"\r
  29       CausesValidation=   0   'False\r
  30       Height          =   375\r
  31       Left            =   3120\r
  32       TabIndex        =   1\r
  33       Top             =   1800\r
  34       Width           =   1215\r
  35    End\r
  36    Begin VB.Label Info \r
  37       Caption         =   "Label1"\r
  38       Height          =   1455\r
  39       Left            =   120\r
  40       TabIndex        =   2\r
  41       Top             =   120\r
  42       Width           =   5775\r
  43    End\r
  44 End\r
  45 Attribute VB_Name = "TerminateMSO"\r
  46 Attribute VB_GlobalNameSpace = False\r
  47 Attribute VB_Creatable = False\r
  48 Attribute VB_PredeclaredId = True\r
  49 Attribute VB_Exposed = False\r
  50 Option Explicit\r
  51 \r
  52 Const CR_STR = "<CR>"\r
  53 \r
  54 Private Sub Form_Activate()\r
  55     NoButton.Default = True\r
  56 End Sub\r
  57 \r
  58 Private Sub Form_Load()\r
  59     \r
  60     TerminateMSO.Top = frmWizard.Top + 3000\r
  61     TerminateMSO.Left = frmWizard.Left + 1000\r
  62     \r
  63     TerminateMSO.Caption = GetResString(TERMINATE_CAPTION)\r
  64     Info.Caption = ReplaceTopicTokens(GetResString(TERMINATE_INFO), CR_STR, Chr(13))\r
  65     YesButton.Caption = GetResString(TERMINATE_YES)\r
  66     NoButton.Caption = GetResString(TERMINATE_NO)\r
  67     NoButton.Default = True\r
  68 End Sub\r
  69 \r
  70 Private Sub YesButton_Click()\r
  71     Dim fso As New FileSystemObject\r
  72     TerminateOfficeApps fso, " --kill"\r
  73     TerminateMSO.Hide\r
  74     Set fso = Nothing\r
  75 End Sub\r
  76 \r
  77 Private Sub NoButton_Click()\r
  78     TerminateMSO.Hide\r
  79 End Sub\r
  80 \r
  81 \r