home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 53 / IOPROG_53.ISO / soft / c++ / xceedbkp.exe / Recovery Wizard / Sources / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-02  |  5.7 KB  |  182 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Xceed Recovery Wizard"
  5.    ClientHeight    =   4290
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   7425
  9.    Icon            =   "frmMain.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   4290
  13.    ScaleWidth      =   7425
  14.    Begin VB.CommandButton cmdTemp 
  15.       Caption         =   "Restore"
  16.       Enabled         =   0   'False
  17.       Height          =   375
  18.       Left            =   4560
  19.       TabIndex        =   4
  20.       Top             =   3720
  21.       Width           =   1215
  22.    End
  23.    Begin VB.CommandButton cmdBack 
  24.       Caption         =   "<  Previous"
  25.       Enabled         =   0   'False
  26.       Height          =   375
  27.       Left            =   1920
  28.       TabIndex        =   3
  29.       Top             =   3720
  30.       Width           =   1215
  31.    End
  32.    Begin VB.CommandButton cmdCancel 
  33.       Caption         =   "Cancel"
  34.       Height          =   375
  35.       Left            =   6000
  36.       TabIndex        =   1
  37.       Top             =   3720
  38.       Width           =   1215
  39.    End
  40.    Begin VB.CommandButton cmdNext 
  41.       Caption         =   "Next  >"
  42.       Height          =   375
  43.       Left            =   3120
  44.       TabIndex        =   0
  45.       Top             =   3720
  46.       Width           =   1215
  47.    End
  48.    Begin VB.Label Label4 
  49.       Caption         =   "For more information regarding the Xceed Backup Libary or any other Xceed Software product, please visit our web site at: "
  50.       Height          =   495
  51.       Left            =   1920
  52.       TabIndex        =   9
  53.       Top             =   1680
  54.       Width           =   5055
  55.    End
  56.    Begin VB.Label Label3 
  57.       Caption         =   $"frmMain.frx":0BC2
  58.       Height          =   615
  59.       Left            =   1920
  60.       TabIndex        =   8
  61.       Top             =   960
  62.       Width           =   4935
  63.    End
  64.    Begin VB.Label Label1 
  65.       Caption         =   "This program will help you restore backups that were created by applications that use the Xceed Backup Library. "
  66.       Height          =   495
  67.       Left            =   1920
  68.       TabIndex        =   7
  69.       Top             =   480
  70.       Width           =   4695
  71.    End
  72.    Begin VB.Label lblHome 
  73.       Caption         =   "http://www.xceedsoft.com"
  74.       BeginProperty Font 
  75.          Name            =   "MS Sans Serif"
  76.          Size            =   8.25
  77.          Charset         =   0
  78.          Weight          =   700
  79.          Underline       =   -1  'True
  80.          Italic          =   0   'False
  81.          Strikethrough   =   0   'False
  82.       EndProperty
  83.       Height          =   255
  84.       Left            =   1920
  85.       MouseIcon       =   "frmMain.frx":0C67
  86.       MousePointer    =   99  'Custom
  87.       TabIndex        =   6
  88.       Top             =   2520
  89.       Width           =   2415
  90.    End
  91.    Begin VB.Label Label2 
  92.       Caption         =   "Click on ""Next"" to begin restoring files."
  93.       Height          =   255
  94.       Left            =   1920
  95.       TabIndex        =   5
  96.       Top             =   3120
  97.       Width           =   4215
  98.    End
  99.    Begin VB.Line Line1 
  100.       BorderColor     =   &H80000009&
  101.       Index           =   1
  102.       X1              =   1680
  103.       X2              =   1680
  104.       Y1              =   120
  105.       Y2              =   4080
  106.    End
  107.    Begin VB.Line Line1 
  108.       BorderColor     =   &H80000011&
  109.       Index           =   0
  110.       X1              =   1665
  111.       X2              =   1665
  112.       Y1              =   120
  113.       Y2              =   4080
  114.    End
  115.    Begin VB.Image Image1 
  116.       Height          =   1260
  117.       Left            =   120
  118.       Picture         =   "frmMain.frx":0F71
  119.       Top             =   120
  120.       Width           =   1410
  121.    End
  122.    Begin VB.Label lblIntro 
  123.       Caption         =   "Welcome to the Xceed Recovery Wizard"
  124.       BeginProperty Font 
  125.          Name            =   "MS Sans Serif"
  126.          Size            =   8.25
  127.          Charset         =   0
  128.          Weight          =   700
  129.          Underline       =   -1  'True
  130.          Italic          =   0   'False
  131.          Strikethrough   =   0   'False
  132.       EndProperty
  133.       Height          =   255
  134.       Left            =   1920
  135.       TabIndex        =   2
  136.       Top             =   120
  137.       Width           =   3615
  138.    End
  139. Attribute VB_Name = "frmMain"
  140. Attribute VB_GlobalNameSpace = False
  141. Attribute VB_Creatable = False
  142. Attribute VB_PredeclaredId = True
  143. Attribute VB_Exposed = False
  144. Option Explicit
  145. Dim xClass As clsXceed
  146. Dim ExitInc As Integer
  147. Public Function ShowForm(xObjects As clsXceed) As Integer
  148.     'This is where you will fill in the fields on your forms with the values
  149.     'in xObjects.
  150.     Set xClass = xObjects
  151.     Me.Left = xClass.PositionLeft
  152.     Me.Top = xClass.PositionTop
  153.         
  154.     Me.Show vbModal
  155.     xClass.PositionLeft = Me.Left
  156.     xClass.PositionTop = Me.Top
  157.     Set xClass = Nothing
  158.     'At this point, the form is now hidden and ExitInc contains the increment.
  159.     'If ExitInc is not 0 then set xobjects to the field values.
  160.         
  161.     ShowForm = ExitInc
  162. End Function
  163. Private Sub cmdCancel_Click()
  164.      ExitInc = 0
  165.      Me.Hide
  166.          
  167. End Sub
  168. Private Sub cmdNext_Click()
  169.     ExitInc = 1
  170.     Me.Hide
  171. End Sub
  172. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  173.     If UnloadMode <> vbFormCode Then
  174.         Cancel = True
  175.         Call cmdCancel_Click
  176.     End If
  177. End Sub
  178. Private Sub lblHome_Click()
  179.     Dim lhwnd As Long
  180.     Call ShellExecute(lhwnd, "OPEN", "http://www.xceedsoft.com", "", "", 0)
  181. End Sub
  182.