home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / vol_ser / volserno.frm < prev    next >
Text File  |  1993-07-04  |  2KB  |  78 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. End
  63. Option Explicit
  64.  
  65. Sub cmdExit_Click ()
  66.     Unload Me
  67. End Sub
  68.  
  69. Sub drvDriveList_Change ()
  70.     lblSerialNo = VolSerialNo(Left$(drvDriveList.List(drvDriveList.ListIndex), 1))
  71.     DoEvents
  72. End Sub
  73.  
  74. Sub Form_Load ()
  75.     drvDriveList.ListIndex = 2  'Set to an assumed hard drive
  76. End Sub
  77.  
  78.