home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / VOL_SER / VOLSERNO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-05  |  2.1 KB  |  73 lines
  1. VERSION 2.00
  2. Begin Form frmStartUp 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Read Volume Serial Number"
  5.    ClientHeight    =   2970
  6.    ClientLeft      =   2055
  7.    ClientTop       =   1620
  8.    ClientWidth     =   6105
  9.    Height          =   3435
  10.    Left            =   1965
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2970
  13.    ScaleWidth      =   6105
  14.    Top             =   1245
  15.    Width           =   6285
  16.    Begin DriveListBox drvDriveList 
  17.       BackColor       =   &H00FFFFFF&
  18.       Height          =   315
  19.       Left            =   1785
  20.       TabIndex        =   1
  21.       Top             =   915
  22.       Width           =   2550
  23.    End
  24.    Begin CommandButton cmdExit 
  25.       Cancel          =   -1  'True
  26.       Caption         =   "E&xit"
  27.       Height          =   450
  28.       Left            =   2460
  29.       TabIndex        =   0
  30.       Top             =   2220
  31.       Width           =   1005
  32.    End
  33.    Begin Label lblSerialNo 
  34.       Alignment       =   2  'Center
  35.       BorderStyle     =   1  'Fixed Single
  36.       Height          =   255
  37.       Left            =   3555
  38.       TabIndex        =   4
  39.       Top             =   1605
  40.       Width           =   1185
  41.    End
  42.    Begin Label lblLabel 
  43.       BackColor       =   &H00C0C0C0&
  44.       Caption         =   "The Volume Serial Number is:"
  45.       Height          =   255
  46.       Index           =   1
  47.       Left            =   930
  48.       TabIndex        =   3
  49.       Top             =   1620
  50.       Width           =   2580
  51.    End
  52.    Begin Label lblLabel 
  53.       BackColor       =   &H00C0C0C0&
  54.       Caption         =   "Select a drive for which you want to know the volume serial number:"
  55.       Height          =   585
  56.       Index           =   0
  57.       Left            =   1800
  58.       TabIndex        =   2
  59.       Top             =   195
  60.       Width           =   2520
  61.    End
  62. Option Explicit
  63. Sub cmdExit_Click ()
  64.     Unload Me
  65. End Sub
  66. Sub drvDriveList_Change ()
  67.     lblSerialNo = VolSerialNo(Left$(drvDriveList.List(drvDriveList.ListIndex), 1))
  68.     DoEvents
  69. End Sub
  70. Sub Form_Load ()
  71.     drvDriveList.ListIndex = 2  'Set to an assumed hard drive
  72. End Sub
  73.