home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 53 / IOPROG_53.ISO / soft / c++ / xceedbkp.exe / Recovery Wizard / Sources / frmStatus.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-02  |  4.8 KB  |  166 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.Form frmStatus 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Recovery Wizard"
  6.    ClientHeight    =   4515
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   7605
  10.    Icon            =   "frmStatus.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4515
  15.    ScaleWidth      =   7605
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   1  'CenterOwner
  18.    Begin ComctlLib.ProgressBar stbProgFile 
  19.       Height          =   255
  20.       Left            =   120
  21.       TabIndex        =   5
  22.       Top             =   2880
  23.       Width           =   7335
  24.       _ExtentX        =   12938
  25.       _ExtentY        =   450
  26.       _Version        =   327682
  27.       Appearance      =   1
  28.    End
  29.    Begin VB.ListBox lstSkipped 
  30.       Height          =   1815
  31.       Left            =   120
  32.       TabIndex        =   2
  33.       Top             =   360
  34.       Width           =   7335
  35.    End
  36.    Begin VB.CommandButton cmdAbort 
  37.       Caption         =   "Abort"
  38.       Height          =   375
  39.       Left            =   6240
  40.       TabIndex        =   1
  41.       Top             =   3960
  42.       Width           =   1215
  43.    End
  44.    Begin ComctlLib.ProgressBar stbProg 
  45.       Height          =   255
  46.       Left            =   120
  47.       TabIndex        =   0
  48.       Top             =   3480
  49.       Width           =   7335
  50.       _ExtentX        =   12938
  51.       _ExtentY        =   450
  52.       _Version        =   327682
  53.       Appearance      =   1
  54.    End
  55.    Begin VB.Label lblPercent 
  56.       Height          =   255
  57.       Left            =   1320
  58.       TabIndex        =   8
  59.       Top             =   3240
  60.       Width           =   615
  61.    End
  62.    Begin VB.Label lblFileName 
  63.       Height          =   255
  64.       Left            =   120
  65.       TabIndex        =   7
  66.       Top             =   2640
  67.       Width           =   7335
  68.    End
  69.    Begin VB.Label Label3 
  70.       Caption         =   "File being restored: "
  71.       BeginProperty Font 
  72.          Name            =   "MS Sans Serif"
  73.          Size            =   8.25
  74.          Charset         =   0
  75.          Weight          =   700
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       Height          =   255
  81.       Left            =   120
  82.       TabIndex        =   6
  83.       Top             =   2280
  84.       Width           =   2175
  85.    End
  86.    Begin VB.Label Label2 
  87.       Caption         =   "Total Progress:"
  88.       Height          =   255
  89.       Left            =   120
  90.       TabIndex        =   4
  91.       Top             =   3240
  92.       Width           =   1215
  93.    End
  94.    Begin VB.Label Label1 
  95.       Caption         =   "The following have been skipped:"
  96.       BeginProperty Font 
  97.          Name            =   "MS Sans Serif"
  98.          Size            =   8.25
  99.          Charset         =   0
  100.          Weight          =   700
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   255
  106.       Left            =   120
  107.       TabIndex        =   3
  108.       Top             =   120
  109.       Width           =   3615
  110.    End
  111. Attribute VB_Name = "frmStatus"
  112. Attribute VB_GlobalNameSpace = False
  113. Attribute VB_Creatable = False
  114. Attribute VB_PredeclaredId = True
  115. Attribute VB_Exposed = False
  116. Option Explicit
  117. Public Event StartRestore()
  118. Public Event Cancel()
  119. Private bRaised As Boolean
  120. Public Property Get TotalPercent() As Integer
  121.     TotalPercent = stbProg.Value
  122.        
  123. End Property
  124. Public Property Let TotalPercent(Value As Integer)
  125.     stbProg.Value = Value
  126. End Property
  127. Public Property Get ItemPercent() As Integer
  128.     ItemPercent = stbProgFile.Value
  129.        
  130. End Property
  131. Public Property Let ItemPercent(Value As Integer)
  132.     stbProgFile.Value = Value
  133. End Property
  134. Private Sub cmdAbort_Click()
  135.     If bRaised Then
  136.         RaiseEvent Cancel
  137.         cmdAbort.Caption = "Close"
  138.         bRaised = False
  139.     Else
  140.         Me.Hide
  141.     End If
  142. End Sub
  143. Public Sub ShowForm()
  144.     lstSkipped.Clear
  145.     stbProg.Value = 0
  146.     stbProgFile.Value = 0
  147.     lblFileName.Caption = ""
  148.     lblPercent.Caption = ""
  149.     cmdAbort.Caption = "Abort"
  150.     Me.Show vbModal
  151. End Sub
  152. Private Sub Form_Activate()
  153.     If Not bRaised Then
  154.         bRaised = True
  155.         RaiseEvent StartRestore
  156.         cmdAbort.Caption = "Close"
  157.         bRaised = False
  158.     End If
  159. End Sub
  160. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  161.     If UnloadMode <> vbFormCode Then
  162.         Cancel = True
  163.         Call cmdAbort_Click
  164.     End If
  165. End Sub
  166.