home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l406 / 3.ddi / PATH.FR_ / PATH.bin (.txt)
Encoding:
Visual Basic Form  |  1992-10-21  |  3.8 KB  |  129 lines
  1. VERSION 2.00
  2. Begin Form PathDlg 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "PathDlg"
  5.    ControlBox      =   0   'False
  6.    Height          =   2640
  7.    Left            =   1260
  8.    LinkMode        =   1  'Source
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2235
  13.    ScaleWidth      =   6825
  14.    Top             =   1920
  15.    Width           =   6945
  16.    Begin PictureBox Picture1 
  17.       AutoSize        =   -1  'True
  18.       BorderStyle     =   0  'None
  19.       Height          =   480
  20.       Left            =   360
  21.       Picture         =   PATH.FRX:0000
  22.       ScaleHeight     =   480
  23.       ScaleWidth      =   480
  24.       TabIndex        =   6
  25.       TabStop         =   0   'False
  26.       Top             =   120
  27.       Width           =   480
  28.    End
  29.    Begin TextBox Text1 
  30.       Height          =   375
  31.       Left            =   2520
  32.       TabIndex        =   0
  33.       Top             =   720
  34.       Width           =   3735
  35.    End
  36.    Begin CommandButton Command1 
  37.       Caption         =   "&Continue"
  38.       Default         =   -1  'True
  39.       Height          =   375
  40.       Left            =   1320
  41.       TabIndex        =   1
  42.       Top             =   1680
  43.       Width           =   1575
  44.    End
  45.    Begin CommandButton Command2 
  46.       Caption         =   "&Exit Setup"
  47.       Height          =   375
  48.       Left            =   3480
  49.       TabIndex        =   2
  50.       Top             =   1680
  51.       Width           =   1575
  52.    End
  53.    Begin Label Label1 
  54.       Caption         =   ""
  55.       Height          =   495
  56.       Left            =   1320
  57.       TabIndex        =   3
  58.       Top             =   120
  59.       Width           =   5415
  60.    End
  61.    Begin Label Label2 
  62.       Alignment       =   1  'Right Justify
  63.       Caption         =   "Install to:"
  64.       Height          =   255
  65.       Left            =   840
  66.       TabIndex        =   4
  67.       Top             =   780
  68.       Width           =   1575
  69.    End
  70.    Begin Label inDrive 
  71.       Caption         =   "inDrive"
  72.       Height          =   255
  73.       Left            =   120
  74.       TabIndex        =   7
  75.       Top             =   840
  76.       Visible         =   0   'False
  77.       Width           =   735
  78.    End
  79.    Begin Label outButton 
  80.       Caption         =   "outButton"
  81.       Height          =   255
  82.       Left            =   120
  83.       TabIndex        =   9
  84.       Top             =   1200
  85.       Visible         =   0   'False
  86.       Width           =   975
  87.    End
  88.    Begin Label Label3 
  89.       Caption         =   "To quit Setup, choose the Exit button."
  90.       Height          =   255
  91.       Left            =   1320
  92.       TabIndex        =   5
  93.       Top             =   1200
  94.       Width           =   3615
  95.    End
  96.    Begin Label outPath 
  97.       Caption         =   "outPath"
  98.       Height          =   255
  99.       Left            =   120
  100.       TabIndex        =   8
  101.       Top             =   1560
  102.       Visible         =   0   'False
  103.       Width           =   855
  104.    End
  105. Dim DestPath$
  106. Sub Command1_Click ()
  107.     DestPath$ = text1.text
  108.     '-------------------------------------------
  109.     ' The IsValidPath function not only returns
  110.     ' True/False as to whether or not it is a valid
  111.     ' path, but also reformats the path variable
  112.     ' into the format, "X:\dir\dir\dir\"
  113.     '-------------------------------------------
  114.     If IsValidPath(DestPath$, (inDrive.tag)) Then
  115.         OutPath.tag = DestPath$
  116.         OutButton.tag = "continue"
  117.         PathDlg.Hide
  118.     Else
  119.         MsgBox "Not a valid path.", 48, PathDlg.caption
  120.         text1.SetFocus
  121.         text1.selStart = 0
  122.         text1.selLength = Len(text1.text)
  123.     End If
  124. End Sub
  125. Sub Command2_Click ()
  126.     OutButton.tag = "exit"
  127.     PathDlg.Hide
  128. End Sub
  129.