home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jigsaw / openfile.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  1.8 KB  |  72 lines
  1. VERSION 2.00
  2. Begin Form OpenFile 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Open File"
  5.    ClientHeight    =   3540
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   4185
  9.    Height          =   3945
  10.    Icon            =   0
  11.    Left            =   1035
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3540
  17.    ScaleWidth      =   4185
  18.    Top             =   1140
  19.    Width           =   4305
  20.    Begin CommandButton Cmd_OK 
  21.       Caption         =   "OK"
  22.       Default         =   -1  'True
  23.       Height          =   375
  24.       Left            =   120
  25.       TabIndex        =   3
  26.       Top             =   3120
  27.       Width           =   3975
  28.    End
  29.    Begin DriveListBox Drive1 
  30.       Height          =   315
  31.       Left            =   120
  32.       TabIndex        =   2
  33.       Top             =   2760
  34.       Width           =   3975
  35.    End
  36.    Begin FileListBox File1 
  37.       Height          =   2565
  38.       Left            =   2160
  39.       Pattern         =   "*.bmp"
  40.       TabIndex        =   0
  41.       Top             =   120
  42.       Width           =   1935
  43.    End
  44.    Begin DirListBox Dir1 
  45.       Height          =   2535
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   120
  49.       Width           =   1935
  50.    End
  51. Sub Cmd_OK_Click ()
  52.     Hide
  53. End Sub
  54. Sub Dir1_Change ()
  55.     ChDir Dir1.Path
  56.     File1.Path = Dir1.Path
  57. End Sub
  58. Sub Drive1_Change ()
  59.     ChDrive Drive1.Drive
  60.     Dir1.Path = CurDir$
  61. End Sub
  62. Sub File1_DblClick ()
  63.     Hide
  64. End Sub
  65. Sub Form_Load ()
  66.     Remove_Items_From_Sysmenu OpenFile
  67. End Sub
  68. Sub Form_Unload (Cancel As Integer)
  69.     Cancel = True
  70.     Hide
  71. End Sub
  72.