home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / favori / favorit4.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  2.8 KB  |  88 lines
  1. VERSION 2.00
  2. Begin Form Form4 
  3.    BackColor       =   &H00E0FFFF&
  4.    Caption         =   "File Browser"
  5.    ClientHeight    =   4470
  6.    ClientLeft      =   1350
  7.    ClientTop       =   1740
  8.    ClientWidth     =   5775
  9.    ControlBox      =   0   'False
  10.    Height          =   4875
  11.    Left            =   1290
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form4"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4470
  17.    ScaleWidth      =   5775
  18.    Top             =   1395
  19.    Width           =   5895
  20.    Begin Frame Frame1 
  21.       Height          =   4095
  22.       Left            =   240
  23.       TabIndex        =   0
  24.       Top             =   240
  25.       Width           =   5535
  26.       Begin CommandButton Command2 
  27.          Caption         =   "Cancel"
  28.          Height          =   495
  29.          Left            =   2280
  30.          TabIndex        =   5
  31.          Top             =   3480
  32.          Width           =   855
  33.       End
  34.       Begin DirListBox Dir1 
  35.          Height          =   1815
  36.          Left            =   120
  37.          TabIndex        =   2
  38.          Top             =   600
  39.          Width           =   2535
  40.       End
  41.       Begin FileListBox File1 
  42.          Height          =   2175
  43.          Left            =   2880
  44.          TabIndex        =   3
  45.          Top             =   240
  46.          Width           =   2535
  47.       End
  48.       Begin DriveListBox Drive1 
  49.          Height          =   315
  50.          Left            =   120
  51.          TabIndex        =   1
  52.          Top             =   240
  53.          Width           =   2535
  54.       End
  55.       Begin Label Label1 
  56.          BorderStyle     =   1  'Fixed Single
  57.          Caption         =   "Double-click the filename (right hand box) that you want to be used when your program is run.  Remember, it must be the file that Window's Program Manager Uses and it must end in PIF, EXE, COM, or BAT."
  58.          Height          =   855
  59.          Left            =   120
  60.          TabIndex        =   4
  61.          Top             =   2520
  62.          Width           =   5295
  63.       End
  64.    End
  65. ' user has chosen to cancel choice of filename
  66. Sub Command2_Click ()
  67.  RUNFILENAME$ = ""         'clear global
  68.  Unload form4             'unload file from memory
  69.  form1.petname.SetFocus      'set focus to form1
  70. End Sub
  71. Sub Dir1_Change ()
  72.  file1.path = dir1.path
  73. End Sub
  74. Sub Drive1_Change ()
  75.     dir1.path = drive1.drive
  76. End Sub
  77. ' user selects the filename that they want to use
  78. Sub File1_DblClick ()
  79.  If Right$(file1.path, 1) = "\" Then
  80.     RUNFILENAME$ = file1.path + file1.filename
  81.  Else
  82.     RUNFILENAME$ = file1.path + "\" + file1.filename
  83.  End If
  84.  form1.filenamelabel.caption = RUNFILENAME$ + String$(50, " ")
  85.  Unload form4               'unload from memory
  86.  form1.commandlinename.SetFocus    'focust to form1
  87. End Sub
  88.