home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l406 / 1.ddi / OPENFILE.FR_ / OPENFILE.bin (.txt)
Encoding:
Visual Basic Form  |  1992-10-21  |  2.2 KB  |  85 lines
  1. VERSION 2.00
  2. Begin Form OpenFile 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Open File"
  5.    Height          =   4035
  6.    Icon            =   0
  7.    Left            =   1035
  8.    LinkMode        =   1  'Source
  9.    LinkTopic       =   "Form2"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3630
  13.    ScaleMode       =   0  'User
  14.    ScaleWidth      =   4185
  15.    Top             =   1140
  16.    Width           =   4305
  17.    Begin CommandButton Cmd_Cancel 
  18.       Cancel          =   -1  'True
  19.       Caption         =   "Cancel"
  20.       Height          =   369
  21.       Left            =   315
  22.       TabIndex        =   4
  23.       Top             =   3127
  24.       Width           =   1470
  25.    End
  26.    Begin DirListBox Dir1 
  27.       Height          =   2280
  28.       Left            =   120
  29.       TabIndex        =   1
  30.       Top             =   225
  31.       Width           =   1935
  32.    End
  33.    Begin FileListBox File1 
  34.       Height          =   2175
  35.       Left            =   2160
  36.       Pattern         =   "*.bmp"
  37.       TabIndex        =   0
  38.       Top             =   225
  39.       Width           =   1935
  40.    End
  41.    Begin DriveListBox Drive1 
  42.       Height          =   1530
  43.       Left            =   135
  44.       TabIndex        =   2
  45.       Top             =   2655
  46.       Width           =   3975
  47.    End
  48.    Begin CommandButton Cmd_OK 
  49.       Caption         =   "OK"
  50.       Default         =   -1  'True
  51.       Height          =   369
  52.       Left            =   2425
  53.       TabIndex        =   5
  54.       Top             =   3127
  55.       Width           =   1464
  56.    End
  57. Sub Cmd_Cancel_Click ()
  58.     Hide
  59.     OpenFile.Tag = 0
  60. End Sub
  61. Sub Cmd_OK_Click ()
  62.     If OpenFile.File1.ListIndex >= 0 Then
  63.         Hide
  64.         OpenFile.Tag = 1
  65.     End If
  66. End Sub
  67. Sub Dir1_Change ()
  68.     ChDir Dir1.Path
  69.     File1.Path = Dir1.Path
  70. End Sub
  71. Sub Drive1_Change ()
  72.     ChDrive Drive1.Drive
  73.     Dir1.Path = CurDir$
  74. End Sub
  75. Sub File1_DblClick ()
  76.     Hide
  77. End Sub
  78. Sub Form_Load ()
  79.     Remove_Items_From_Sysmenu OpenFile
  80. End Sub
  81. Sub Form_Unload (Cancel As Integer)
  82.     Cancel = True
  83.     Hide
  84. End Sub
  85.