home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / source / vbsource / makedisk / path.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-11-16  |  4.4 KB  |  148 lines
  1. VERSION 2.00
  2. Begin Form PathDlg 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "PathDlg"
  6.    ClientHeight    =   2865
  7.    ClientLeft      =   3705
  8.    ClientTop       =   6165
  9.    ClientWidth     =   6825
  10.    ControlBox      =   0   'False
  11.    Height          =   3270
  12.    Left            =   3645
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2865
  18.    ScaleWidth      =   6825
  19.    Top             =   5820
  20.    Width           =   6945
  21.    Begin PictureBox diskpict 
  22.       AutoSize        =   -1  'True
  23.       BackColor       =   &H00C0C0C0&
  24.       BorderStyle     =   0  'None
  25.       Height          =   480
  26.       Left            =   270
  27.       Picture         =   PATH.FRX:0000
  28.       ScaleHeight     =   480
  29.       ScaleWidth      =   480
  30.       TabIndex        =   9
  31.       TabStop         =   0   'False
  32.       Top             =   180
  33.       Visible         =   0   'False
  34.       Width           =   480
  35.    End
  36.    Begin PictureBox hddpict 
  37.       AutoSize        =   -1  'True
  38.       BorderStyle     =   0  'None
  39.       Height          =   480
  40.       Left            =   270
  41.       Picture         =   PATH.FRX:0302
  42.       ScaleHeight     =   480
  43.       ScaleWidth      =   480
  44.       TabIndex        =   6
  45.       TabStop         =   0   'False
  46.       Top             =   180
  47.       Visible         =   0   'False
  48.       Width           =   480
  49.    End
  50.    Begin TextBox Text1 
  51.       Height          =   285
  52.       Left            =   1350
  53.       TabIndex        =   0
  54.       Top             =   1530
  55.       Width           =   4185
  56.    End
  57.    Begin CommandButton Command1 
  58.       Caption         =   "&Weiter"
  59.       Default         =   -1  'True
  60.       Height          =   375
  61.       Left            =   1665
  62.       TabIndex        =   1
  63.       Top             =   2115
  64.       Width           =   1710
  65.    End
  66.    Begin CommandButton Command2 
  67.       Caption         =   "Setup &abbrechen"
  68.       Height          =   375
  69.       Left            =   3510
  70.       TabIndex        =   2
  71.       Top             =   2115
  72.       Width           =   1710
  73.    End
  74.    Begin Label Label1 
  75.       BackColor       =   &H00C0C0C0&
  76.       Height          =   975
  77.       Left            =   1395
  78.       TabIndex        =   3
  79.       Top             =   225
  80.       Width           =   5370
  81.    End
  82.    Begin Label Label2 
  83.       BackColor       =   &H00C0C0C0&
  84.       Caption         =   "Installieren in:"
  85.       ForeColor       =   &H00000000&
  86.       Height          =   255
  87.       Left            =   1395
  88.       TabIndex        =   4
  89.       Top             =   1260
  90.       Width           =   1575
  91.    End
  92.    Begin Label inDrive 
  93.       Caption         =   "inDrive"
  94.       Height          =   255
  95.       Left            =   135
  96.       TabIndex        =   7
  97.       Top             =   855
  98.       Visible         =   0   'False
  99.       Width           =   735
  100.    End
  101.    Begin Label outButton 
  102.       Caption         =   "outButton"
  103.       Height          =   255
  104.       Left            =   120
  105.       TabIndex        =   5
  106.       Top             =   1200
  107.       Visible         =   0   'False
  108.       Width           =   975
  109.    End
  110.    Begin Label outPath 
  111.       Caption         =   "outPath"
  112.       Height          =   255
  113.       Left            =   120
  114.       TabIndex        =   8
  115.       Top             =   1530
  116.       Visible         =   0   'False
  117.       Width           =   855
  118.    End
  119. Dim DestPath$
  120. Sub Command1_Click ()
  121.     DestPath$ = text1.Text
  122.     inDrive.Tag = Left$(DestPath$, 2)
  123.     '-------------------------------------------
  124.     ' The IsValidPath function not only returns
  125.     ' True/False as to whether or not it is a valid
  126.     ' path, but also reformats the path variable
  127.     ' into the format, "X:\dir\dir\dir\"
  128.     '-------------------------------------------
  129.     If IsValidPath(DestPath$, (inDrive.Tag)) Then
  130.         OutPath.Tag = DestPath$
  131.         OutButton.Tag = "continue"
  132.         PathDlg.Hide
  133.     Else
  134.         MsgBox "Fehlerhafte oder fehlende Pfadangabe.", 48, PathDlg.Caption
  135.         text1.SetFocus
  136.         text1.SelStart = 0
  137.         text1.SelLength = Len(text1.Text)
  138.     End If
  139. End Sub
  140. Sub Command2_Click ()
  141.     OutButton.Tag = "exit"
  142.     PathDlg.Hide
  143.     DoEvents
  144. End Sub
  145. Sub Form_Activate ()
  146.     DoEvents
  147. End Sub
  148.