home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / bitcat / bv2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.0 KB  |  101 lines
  1. VERSION 2.00
  2. Begin Form Browse 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   2940
  6.    ClientLeft      =   3660
  7.    ClientTop       =   2385
  8.    ClientWidth     =   2010
  9.    ControlBox      =   0   'False
  10.    Height          =   3345
  11.    Left            =   3600
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2940
  17.    ScaleWidth      =   2010
  18.    Top             =   2040
  19.    Width           =   2130
  20.    Begin CommandButton Command1 
  21.       Caption         =   "&Abort"
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   330
  29.       Left            =   1005
  30.       TabIndex        =   2
  31.       Top             =   2610
  32.       Width           =   1005
  33.    End
  34.    Begin CommandButton Command2 
  35.       Caption         =   "&Change"
  36.       FontBold        =   0   'False
  37.       FontItalic      =   0   'False
  38.       FontName        =   "MS Sans Serif"
  39.       FontSize        =   8.25
  40.       FontStrikethru  =   0   'False
  41.       FontUnderline   =   0   'False
  42.       Height          =   330
  43.       Left            =   0
  44.       TabIndex        =   3
  45.       Top             =   2610
  46.       Width           =   1005
  47.    End
  48.    Begin DirListBox Dir1 
  49.       BackColor       =   &H00808080&
  50.       FontBold        =   0   'False
  51.       FontItalic      =   0   'False
  52.       FontName        =   "MS Sans Serif"
  53.       FontSize        =   8.25
  54.       FontStrikethru  =   0   'False
  55.       FontUnderline   =   0   'False
  56.       ForeColor       =   &H00FFFFFF&
  57.       Height          =   2295
  58.       Left            =   0
  59.       TabIndex        =   1
  60.       Top             =   315
  61.       Width           =   2010
  62.    End
  63.    Begin DriveListBox Drive1 
  64.       BackColor       =   &H00808080&
  65.       FontBold        =   0   'False
  66.       FontItalic      =   0   'False
  67.       FontName        =   "MS Sans Serif"
  68.       FontSize        =   8.25
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       ForeColor       =   &H00FFFFFF&
  72.       Height          =   315
  73.       Left            =   0
  74.       TabIndex        =   0
  75.       Top             =   0
  76.       Width           =   2010
  77.    End
  78. DefInt A-Z
  79. Sub Command1_Click ()
  80. CNC = 1
  81. Browse.Hide
  82. End Sub
  83. Sub Command2_Click ()
  84. If Left$(Dir1.Path, 1) <> "\" Then FN$ = Dir1.Path + "\" Else FN$ = Dir1.Path
  85. Browse.Hide
  86. End Sub
  87. Sub Drive1_Change ()
  88. On Error GoTo Er:
  89. Dir1.Path = Drive1.Drive
  90. GoTo EANAL:
  91. MsgBox "Drive Unavailable", 48, "Error"
  92. Drive1.Drive = Dir1.Path
  93. Resume Next
  94. EANAL:
  95. End Sub
  96. Sub Form_Load ()
  97. ' Center form on screen
  98. Browse.Left = (Screen.Width / 2) - (Browse.Width / 2)
  99. Browse.Top = (Screen.Height / 2) - (Browse.Height / 2)
  100. End Sub
  101.