home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 53 / IOPROG_53.ISO / soft / c++ / xceedbkp.exe / Recovery Wizard / Sources / frmMessage.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-02  |  3.5 KB  |  122 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMessage 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Xceed Recovery Wizard"
  5.    ClientHeight    =   2310
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5625
  9.    Icon            =   "frmMessage.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2310
  14.    ScaleWidth      =   5625
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin VB.CommandButton cmdAbort 
  18.       Caption         =   "Abort"
  19.       Height          =   375
  20.       Left            =   4200
  21.       TabIndex        =   5
  22.       Top             =   1440
  23.       Width           =   1215
  24.    End
  25.    Begin VB.CheckBox chkAll 
  26.       Caption         =   "Apply to ALL"
  27.       Height          =   255
  28.       Left            =   240
  29.       TabIndex        =   3
  30.       Top             =   1920
  31.       Width           =   1215
  32.    End
  33.    Begin VB.CommandButton cmdSkip 
  34.       Caption         =   "Skip"
  35.       Height          =   375
  36.       Left            =   2880
  37.       TabIndex        =   2
  38.       Top             =   1440
  39.       Width           =   1215
  40.    End
  41.    Begin VB.CommandButton cmdMerge 
  42.       Caption         =   "Merge"
  43.       Height          =   375
  44.       Left            =   1560
  45.       TabIndex        =   1
  46.       Top             =   1440
  47.       Width           =   1215
  48.    End
  49.    Begin VB.CommandButton cmdOverwrite 
  50.       Caption         =   "Overwrite"
  51.       Height          =   375
  52.       Left            =   240
  53.       TabIndex        =   0
  54.       Top             =   1440
  55.       Width           =   1215
  56.    End
  57.    Begin VB.Label lblRegKey 
  58.       Height          =   495
  59.       Left            =   120
  60.       TabIndex        =   6
  61.       Top             =   840
  62.       Width           =   5295
  63.    End
  64.    Begin VB.Label Label1 
  65.       Caption         =   $"frmMessage.frx":0BC2
  66.       BeginProperty Font 
  67.          Name            =   "MS Sans Serif"
  68.          Size            =   8.25
  69.          Charset         =   0
  70.          Weight          =   700
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   615
  76.       Left            =   120
  77.       TabIndex        =   4
  78.       Top             =   120
  79.       Width           =   5175
  80.    End
  81. Attribute VB_Name = "frmMessage"
  82. Attribute VB_GlobalNameSpace = False
  83. Attribute VB_Creatable = False
  84. Attribute VB_PredeclaredId = True
  85. Attribute VB_Exposed = False
  86. Option Explicit
  87. Public Enum enuActionMessage
  88.     maMerge = braMerge
  89.     maOverwrite = braOverwrite
  90.     maSkip = braSkip
  91.     maAbort = 666
  92. End Enum
  93. Dim xAction As enuActionMessage
  94. Public Function ShowForm() As enuActionMessage
  95.        
  96.     If chkAll.Value = vbUnchecked Then
  97.         Me.Show vbModal
  98.     End If
  99.     ShowForm = xAction
  100. End Function
  101. Private Sub cmdAbort_Click()
  102.     Dim Answer As VbMsgBoxResult
  103.     Answer = MsgBox("Are you sure you want to abort the restoration?", vbYesNo + vbQuestion)
  104.     If Answer = vbYes Then
  105.         Me.Hide
  106.         xAction = maAbort
  107.     End If
  108.        
  109. End Sub
  110. Private Sub cmdMerge_Click()
  111.     xAction = maMerge
  112.     Call Me.Hide
  113. End Sub
  114. Private Sub cmdOverwrite_Click()
  115.     xAction = maOverwrite
  116.     Call Me.Hide
  117. End Sub
  118. Private Sub cmdSkip_Click()
  119.     xAction = maSkip
  120.     Call Me.Hide
  121. End Sub
  122.