home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch05 / fcontrols / filecontrols.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-02-27  |  1.2 KB  |  44 lines
  1. VERSION 5.00
  2. Begin VB.Form FileControls 
  3.    Caption         =   "File Control Demo"
  4.    ClientHeight    =   3105
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5460
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3105
  10.    ScaleWidth      =   5460
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.FileListBox File1 
  13.       Height          =   2820
  14.       Left            =   2505
  15.       TabIndex        =   2
  16.       Top             =   120
  17.       Width           =   2835
  18.    End
  19.    Begin VB.DirListBox Dir1 
  20.       Height          =   2340
  21.       Left            =   135
  22.       TabIndex        =   1
  23.       Top             =   615
  24.       Width           =   2175
  25.    End
  26.    Begin VB.DriveListBox Drive1 
  27.       Height          =   315
  28.       Left            =   135
  29.       TabIndex        =   0
  30.       Top             =   150
  31.       Width           =   2190
  32.    End
  33. Attribute VB_Name = "FileControls"
  34. Attribute VB_GlobalNameSpace = False
  35. Attribute VB_Creatable = False
  36. Attribute VB_PredeclaredId = True
  37. Attribute VB_Exposed = False
  38. Private Sub Dir1_Change()
  39.     File1.Path = Dir1.Path
  40. End Sub
  41. Private Sub Drive1_Change()
  42.     Dir1.Path = Drive1.Drive
  43. End Sub
  44.