home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch05 / filectrl / filectrl.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  1.8 KB  |  65 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "File Controls Demo"
  4.    ClientHeight    =   4245
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5625
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4245
  10.    ScaleWidth      =   5625
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.ComboBox Combo1 
  13.       Height          =   315
  14.       Left            =   2970
  15.       TabIndex        =   3
  16.       Text            =   "*.*"
  17.       Top             =   3615
  18.       Width           =   1980
  19.    End
  20.    Begin VB.FileListBox File1 
  21.       Height          =   3210
  22.       Left            =   2760
  23.       TabIndex        =   2
  24.       Top             =   270
  25.       Width           =   2535
  26.    End
  27.    Begin VB.DirListBox Dir1 
  28.       Height          =   2730
  29.       Left            =   270
  30.       TabIndex        =   1
  31.       Top             =   735
  32.       Width           =   2370
  33.    End
  34.    Begin VB.DriveListBox Drive1 
  35.       Height          =   315
  36.       Left            =   270
  37.       TabIndex        =   0
  38.       Top             =   300
  39.       Width           =   2355
  40.    End
  41. Attribute VB_Name = "Form1"
  42. Attribute VB_GlobalNameSpace = False
  43. Attribute VB_Creatable = False
  44. Attribute VB_PredeclaredId = True
  45. Attribute VB_Exposed = False
  46. Option Explicit
  47. Private Sub Combo1_Change()
  48.     File1.Pattern = Combo1.Text
  49. End Sub
  50. Private Sub Combo1_Click()
  51.     File1.Pattern = Combo1.Text
  52. End Sub
  53. Private Sub Dir1_Change()
  54.     File1.Path = Dir1.Path
  55. End Sub
  56. Private Sub Drive1_Change()
  57.     Dir1.Path = Drive1.Drive
  58. End Sub
  59. Private Sub Form_Load()
  60.     Combo1.AddItem "*.*"
  61.     Combo1.AddItem "*.TXT"
  62.     Combo1.AddItem "*.BMP;*.GIF;*.JPG"
  63.     Combo1.AddItem "*.BAK;*.TMP"
  64. End Sub
  65.