home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / NIVB_SRC / SELDIR.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-06-02  |  3.6 KB  |  124 lines
  1. VERSION 2.00
  2. Begin Form SelectDirForm 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Select Directory"
  5.    ControlBox      =   0   'False
  6.    FontBold        =   -1  'True
  7.    FontItalic      =   0   'False
  8.    FontName        =   "System"
  9.    FontSize        =   9.75
  10.    FontStrikethru  =   0   'False
  11.    FontUnderline   =   0   'False
  12.    Height          =   4575
  13.    Icon            =   0
  14.    Left            =   1875
  15.    LinkMode        =   1  'Source
  16.    LinkTopic       =   "Form1"
  17.    MaxButton       =   0   'False
  18.    MinButton       =   0   'False
  19.    ScaleHeight     =   4170
  20.    ScaleWidth      =   4455
  21.    Top             =   1320
  22.    Width           =   4575
  23.    Begin CommandButton GetDirButton 
  24.       Caption         =   "&Get Dir Info"
  25.       Height          =   495
  26.       Left            =   3000
  27.       TabIndex        =   6
  28.       Top             =   2160
  29.       Width           =   1215
  30.    End
  31.    Begin DriveListBox DriveBox 
  32.       Height          =   315
  33.       Left            =   255
  34.       TabIndex        =   4
  35.       Top             =   3735
  36.       Width           =   2475
  37.    End
  38.    Begin CommandButton CancelButton 
  39.       Cancel          =   -1  'True
  40.       Caption         =   "&Cancel"
  41.       Height          =   465
  42.       Left            =   3000
  43.       TabIndex        =   7
  44.       Top             =   2880
  45.       Width           =   1215
  46.    End
  47.    Begin CommandButton OKButton 
  48.       Caption         =   "Change &Dir"
  49.       Default         =   -1  'True
  50.       Height          =   465
  51.       Left            =   3000
  52.       TabIndex        =   5
  53.       Top             =   1440
  54.       Width           =   1245
  55.    End
  56.    Begin DirListBox DirBox 
  57.       Height          =   1830
  58.       Left            =   270
  59.       TabIndex        =   2
  60.       Top             =   1485
  61.       Width           =   2460
  62.    End
  63.    Begin Label Label1 
  64.       Caption         =   "Current directory:"
  65.       Height          =   255
  66.       Left            =   240
  67.       TabIndex        =   8
  68.       Top             =   720
  69.       Width           =   1815
  70.    End
  71.    Begin Label Label3 
  72.       Caption         =   "Dri&ves:"
  73.       Height          =   255
  74.       Left            =   195
  75.       TabIndex        =   3
  76.       Top             =   3450
  77.       Width           =   765
  78.    End
  79.    Begin Label CurrDirLabel 
  80.       Caption         =   "---"
  81.       Height          =   225
  82.       Left            =   255
  83.       TabIndex        =   1
  84.       Top             =   1080
  85.       Width           =   3960
  86.    End
  87.    Begin Label Label2 
  88.       Caption         =   "Select a directory, then  click Get Dir Info to get information about it."
  89.       Height          =   495
  90.       Left            =   240
  91.       TabIndex        =   0
  92.       Top             =   120
  93.       Width           =   3615
  94.    End
  95. Sub CancelButton_Click ()
  96.     Unload SelectDirForm
  97. End Sub
  98. Sub DirBox_Change ()
  99.     ' propogate directory changes to other controls
  100.     CurrDirLabel.Caption = DirBox.Path
  101.     ChDir DirBox.Path
  102. End Sub
  103. Sub DirBox_Click ()
  104.     DirBox_Change
  105. End Sub
  106. Sub DriveBox_Change ()
  107.     ' change the DirBox control path, it will
  108.     ' pass the change on to the FileListBox control
  109.     DirBox.Path = DriveBox.Drive
  110.     ChDrive (DriveBox.Drive)
  111. End Sub
  112. Sub Form_Load ()
  113.     CurrDirLabel.Caption = DirBox.Path  'Show full path name in a label
  114. End Sub
  115. Sub GetDirButton_Click ()
  116.     CurrDirLabel.Caption = DirBox.Path
  117.     ChDir DirBox.Path
  118.     dirPath$ = CurrDirLabel.Caption
  119.     DirDirForm.Show
  120. End Sub
  121. Sub OKButton_Click ()
  122.     DirBox.Path = DirBox.List(DirBox.ListIndex)
  123. End Sub
  124.