home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_4_94 / vbwin / vbsetup / path.frm < prev    next >
Text File  |  1994-09-23  |  5KB  |  166 lines
  1. VERSION 2.00
  2. Begin Form frm_PathDlg 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   2610
  6.    ClientLeft      =   1335
  7.    ClientTop       =   2310
  8.    ClientWidth     =   6855
  9.    ControlBox      =   0   'False
  10.    Height          =   3015
  11.    Left            =   1275
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2610
  17.    ScaleWidth      =   6855
  18.    Top             =   1965
  19.    Width           =   6975
  20.    Begin PictureBox pic_Icon 
  21.       AutoSize        =   -1  'True
  22.       BackColor       =   &H00C0C0C0&
  23.       BorderStyle     =   0  'None
  24.       Height          =   480
  25.       Left            =   180
  26.       Picture         =   PATH.FRX:0000
  27.       ScaleHeight     =   480
  28.       ScaleWidth      =   480
  29.       TabIndex        =   6
  30.       TabStop         =   0   'False
  31.       Top             =   120
  32.       Width           =   480
  33.    End
  34.    Begin TextBox txt_Path 
  35.       Height          =   285
  36.       Left            =   2520
  37.       TabIndex        =   0
  38.       Top             =   1080
  39.       Width           =   4095
  40.    End
  41.    Begin CommandButton cmd_Continue 
  42.       Caption         =   "&Weiter"
  43.       Default         =   -1  'True
  44.       Height          =   435
  45.       Left            =   1620
  46.       TabIndex        =   1
  47.       Top             =   1860
  48.       Width           =   1575
  49.    End
  50.    Begin CommandButton cmd_Exit 
  51.       Caption         =   "Setup be&enden"
  52.       Height          =   435
  53.       Left            =   3840
  54.       TabIndex        =   2
  55.       Top             =   1860
  56.       Width           =   1575
  57.    End
  58.    Begin Label lab_Info 
  59.       BackStyle       =   0  'Transparent
  60.       Height          =   675
  61.       Left            =   1020
  62.       TabIndex        =   3
  63.       Top             =   180
  64.       Width           =   5595
  65.    End
  66.    Begin Label lab_Path 
  67.       Alignment       =   1  'Right Justify
  68.       BackStyle       =   0  'Transparent
  69.       Height          =   195
  70.       Left            =   840
  71.       TabIndex        =   4
  72.       Top             =   1140
  73.       Width           =   1575
  74.    End
  75.    Begin Label lab_Drive 
  76.       Caption         =   "lab_InDrive"
  77.       Height          =   255
  78.       Left            =   120
  79.       TabIndex        =   7
  80.       Top             =   1620
  81.       Visible         =   0   'False
  82.       Width           =   1275
  83.    End
  84.    Begin Label lab_OutButton 
  85.       Caption         =   "lab_OutButton"
  86.       Height          =   255
  87.       Left            =   120
  88.       TabIndex        =   5
  89.       Top             =   1920
  90.       Visible         =   0   'False
  91.       Width           =   1275
  92.    End
  93.    Begin Label lab_OutPath 
  94.       Caption         =   "lab_OutPath"
  95.       Height          =   255
  96.       Left            =   120
  97.       TabIndex        =   8
  98.       Top             =   2220
  99.       Visible         =   0   'False
  100.       Width           =   1275
  101.    End
  102. End
  103. '============================================================
  104. ' Projekt        : Setup-Steuerung mit Hilfe von Makros
  105. ' Formname       : PATH.FRM
  106. ' Aufgabe        : Dialogfenster fⁿr die Eingabe eines Pfades
  107. '                  (z.B. Installationspfad)
  108. ' Copyright      : Arthur Burda
  109. ' Compiler       : Visual Basic 3.0 fⁿr Windows
  110. '============================================================
  111. ' l. ─nderung am : 27.07.1994
  112. ' Version        : 1.00
  113. ' Bemerkungen    : Erste Implementierung
  114. '------------------------------------------------------------
  115.  
  116. Option Explicit
  117.  
  118. Dim Path$
  119.  
  120. '============================================================
  121. ' Routine : cmd_Continue_Click
  122. '============================================================
  123. ' Aufgabe : ▄berprⁿft die Gⁿltigkeit des eingegebenen Pfades,
  124. '           setzt ggf. das Tag-Feld in lab_OutButton auf "Con-
  125. '           tinue" und blendet das Dialogfenster aus.
  126. ' Eingabe : keine
  127. ' Ausgabe : keine
  128. '------------------------------------------------------------
  129. '
  130. Sub cmd_Continue_Click ()
  131.  
  132.     Path$ = txt_Path.Text
  133.     lab_Drive.Tag = Left$(Path$, 2)
  134.  
  135.     If IsValidPath(Path$, (lab_Drive.Tag)) Then
  136.         lab_OutPath.Tag = Path$
  137.         lab_OutButton.Tag = "Continue"
  138.         frm_PathDlg.Hide
  139.     Else
  140.         ShowErrorBox2 "Kein gⁿltiger Pfad"
  141.         txt_Path.SetFocus
  142.         txt_Path.SelStart = 0
  143.         txt_Path.SelLength = Len(txt_Path.Text)
  144.     End If
  145.  
  146. End Sub
  147.  
  148. '============================================================
  149. ' Routine : cmd_Exit_Click
  150. '============================================================
  151. ' Aufgabe : Setzt das Tag-Feld in lab_OutButton auf "Exit" und
  152. '           blendet das Dialogfenster aus.
  153. ' Eingabe : keine
  154. ' Ausgabe : keine
  155. '------------------------------------------------------------
  156. '
  157. Sub cmd_Exit_Click ()
  158.  
  159.     If ShowYesNoBox(QuestionBoxCaption$, "Wollen Sie das Setup-Programm wirklich beenden?", 2) = IDYES Then
  160.         lab_OutButton.Tag = "Exit"
  161.         frm_PathDlg.Hide
  162.     End If
  163.  
  164. End Sub
  165.  
  166.