diskinfo.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Object = "{75D4F666-8785-11D3-93AD-0000832EF44D}#3.1#0"; "FAST2006.ocx"
Begin VB.Form frmDiskInfo 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Disk Information"
   ClientHeight    =   5190
   ClientLeft      =   3210
   ClientTop       =   3015
   ClientWidth     =   5190
   Icon            =   "DiskInfo.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5190
   ScaleWidth      =   5190
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdProperties 
      Caption         =   "Properties..."
      Height          =   420
      Left            =   2790
      TabIndex        =   4
      Top             =   4635
      Width           =   1545
   End
   Begin VB.CommandButton cmdFormat 
      Caption         =   "Format Drive..."
      Height          =   420
      Left            =   900
      TabIndex        =   3
      Top             =   4635
      Width           =   1545
   End
   Begin VB.ComboBox cboDisks 
      Height          =   315
      Left            =   90
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   90
      Width           =   4965
   End
   Begin FLWDiskFile.FWDisks objDisks 
      Left            =   4650
      Top             =   4620
      _ExtentX        =   820
      _ExtentY        =   820
   End
   Begin VB.Label lblCDROM 
      Height          =   285
      Left            =   90
      TabIndex        =   1
      Top             =   4230
      Width           =   4965
   End
   Begin VB.Label lblInfo 
      AutoSize        =   -1  'True
      Caption         =   "x"
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3570
      Left            =   90
      TabIndex        =   0
      Top             =   540
      Width           =   4980
      WordWrap        =   -1  'True
   End
End
Attribute VB_Name = "frmDiskInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim objDisk As FLWDiskFile.IFWDisk

Private Sub Form_Load()
  Dim strLetter As String
  
  For Each objDisk In objDisks.Disks
    Call cboDisks.AddItem("Drive " & objDisk.Unit & " " & objDisk.TypeName)
  Next
  
  strLetter = objDisks.DetectCD
  If Len(strLetter) > 0 Then
    lblCDROM = "CD-ROM present on drive " & strLetter
  Else
    lblCDROM = "CD-ROM not present"
  End If
  cboDisks.ListIndex = 0
End Sub

Private Sub cboDisks_Click()
  Set objDisk = objDisks.Disk(cboDisks.ListIndex + 1)
    
  With objDisk
    lblInfo = _
        "Disk Name              : " & .VolumeName & vbCrLf & _
        "Serial Number          : " & .SerialNumber & vbCrLf & _
        "File System            : " & .FileSystem & vbCrLf & _
        "Max File Length        : " & .MaxFileNameLen & vbCrLf & _
        "Support UPPER/lower    : " & IIf(.SupportCapital, "Yes", "No") & vbCrLf & _
        "Difference UPPER/lower : " & IIf(.CaseSensitive, "Yes", "No") & vbCrLf & _
        "Support Unicode        : " & IIf(.SupportUnicode, "Yes", "No") & vbCrLf & _
        "Uses File List (ACLS)  : " & IIf(.HasACLS, "Yes", "No") & vbCrLf & _
        "Disk Size (kb)         : " & Format(.DiskSize, "###,###,###,##0") & vbCrLf & _
        "Disk Used (kb)         : " & Format(.DiskUsed, "###,###,###,##0") & vbCrLf & _
        "Used Percent           : " & .UsedPercent & "%" & vbCrLf & _
        "Disk Free (kb)         : " & Format(.DiskFree, "###,###,###,##0") & vbCrLf & _
        "Free Percent           : " & .FreePercent & "%" & vbCrLf & _
        "Media Type             : " & .DiskType & vbCrLf & _
        "Media Type description : " & .TypeName
  End With
End Sub

Private Sub cmdProperties_Click()
  Set objDisk = objDisks.Disk(cboDisks.ListIndex + 1)
    
  Call objDisk.ShowProperties(Me.hWnd)
End Sub

Private Sub cmdFormat_Click()
  Set objDisk = objDisks.Disk(cboDisks.ListIndex + 1)
    
  Call objDisk.ShowFormatDialog(Me.hWnd, _
                                FLWDiskFile.flwDiskCapacityDefault, _
                                FLWDiskFile.flwDiskFormatFull)
End Sub