sysinfo.frm

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

VERSION 5.00
Object = "{75D4F148-8785-11D3-93AD-0000832EF44D}#3.2#0"; "fast2003.ocx"
Begin VB.Form frmSysInfo 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Windows System Information"
   ClientHeight    =   5325
   ClientLeft      =   2835
   ClientTop       =   1560
   ClientWidth     =   9450
   ClipControls    =   0   'False
   Icon            =   "SysInfo.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5325
   ScaleWidth      =   9450
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.ListBox lstSysInfo 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2460
      Left            =   840
      TabIndex        =   0
      Top             =   255
      Width           =   6435
   End
   Begin FLWSystem.FWSysInfo objSysInfo 
      Left            =   120
      Top             =   390
      _ExtentX        =   820
      _ExtentY        =   820
   End
End
Attribute VB_Name = "frmSysInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
  Dim strLevel As String
  
  With lstSysInfo
    .Top = 0
    .Left = 0
    .Width = Me.Width
    .Height = Me.Height
  
    Select Case objSysInfo.cpuLevel
      Case FLWSystem.flwCPULevel386
        strLevel = "Intel 80386"
      Case FLWSystem.flwCPULevel486
        strLevel = "Intel 80486"
      Case FLWSystem.flwCPULevelPentium
        strLevel = "Intel Pentium"
      Case FLWSystem.flwCPULevelPentiumII
        strLevel = "Intel Pentium Pro or Pentium II"
      Case FLWSystem.flwCPULevelPentiumIII
        strLevel = "Pentium III"
    End Select

    Call .AddItem("CPU Type          " & objSysInfo.CPUType)
    Call .AddItem("CPU Level         " & strLevel)
    Call .AddItem("CPU Revision      Model " & objSysInfo.cpurevisionmodel & ", stepping " & objSysInfo.cpurevisionstepping)
    Call .AddItem("Pentium bug?      " & IIf(objSysInfo.PentiumBug, "Yes", "No"))
    Call .AddItem("")
    Call .AddItem("OS ID             " & objSysInfo.WinPlatform)
    Call .AddItem("Operating system  " & objSysInfo.WinPlatformName)
    Call .AddItem("Windows version   " & objSysInfo.WinVersionId)
    Call .AddItem("ServicePack (CSD) " & objSysInfo.ServicePack)
    Call .AddItem("Product ID        " & objSysInfo.ProductId)
    Call .AddItem("Product name      " & objSysInfo.ProductName)
    Call .AddItem("Version ID        " & objSysInfo.WinVersionId)
    Call .AddItem("Version name      " & objSysInfo.WinVersionName)
    Call .AddItem("Version no.       " & objSysInfo.WinVersionNo)
    Call .AddItem("MSDOS Version no. " & objSysInfo.DOSVersion)
    Call .AddItem("")
    Call .AddItem("System time       " & objSysInfo.SysTime)
    Call .AddItem("")
    Call .AddItem("Register company  " & objSysInfo.RegisteredCompany)
    Call .AddItem("Register user     " & objSysInfo.RegisteredUser)
    Call .AddItem("Computer name     " & objSysInfo.MachineName)
    Call .AddItem("Username          " & objSysInfo.UserName)
    Call .AddItem("")
    Call .AddItem("Real Memory               " & objSysInfo.MemTotalPhys & " Kb")
    Call .AddItem("Real Memory Availables    " & objSysInfo.MemAvailPhys & " Kb")
    Call .AddItem("Virtual Memory            " & objSysInfo.MemTotalVirtual & " Kb")
    Call .AddItem("Virtual Memory Availables " & objSysInfo.MemAvailVirtual & " Kb")
    Call .AddItem("")
    Call .AddItem("GDI Resources  " & objSysInfo.FreeGDIResources & "%")
    Call .AddItem("Resources      " & objSysInfo.FreeResources & "%")
    Call .AddItem("User Resources " & objSysInfo.FreeUserResources & "%")
    Call .AddItem("")
    Call .AddItem("Language ID      " & objSysInfo.LanguageId)
    Call .AddItem("Language Default " & objSysInfo.LanguageDefaultId)
    Call .AddItem("Language name    " & objSysInfo.LanguageName)
    Call .AddItem("Language abrev   " & objSysInfo.LanguageNameAbbrev)
    Call .AddItem("Language English " & objSysInfo.LanguageNameEnglish)
    Call .AddItem("Language Native  " & objSysInfo.LanguageNameNative)
    Call .AddItem("")
    Call .AddItem("List separator   " & objSysInfo.ListSeparator)
    Call .AddItem("Measurure unit   " & objSysInfo.MeasureUnit)
    Call .AddItem("")
    Call .AddItem("Code page default     " & objSysInfo.CodePageDefaultId)
    Call .AddItem("Country code          " & objSysInfo.CountryCode)
    Call .AddItem("Country default id    " & objSysInfo.CountryDefaultId)
    Call .AddItem("Country name          " & objSysInfo.CountryName)
    Call .AddItem("Country name abrev    " & objSysInfo.CountryNameAbbrev)
    Call .AddItem("Country name english  " & objSysInfo.CountryNameEnglish)
    Call .AddItem("Country name native   " & objSysInfo.CountryNameNative)
    Call .AddItem("Currency decimal sep  " & objSysInfo.CurrencyDecimalSep)
    Call .AddItem("Currency digits dec.  " & objSysInfo.CurrencyDigitsDecimal)
    Call .AddItem("Currency digits group " & objSysInfo.CurrencyDigitsGroup)
    Call .AddItem("Currency int. symbol  " & objSysInfo.CurrencyIntSymbol)
    Call .AddItem("Currency local symbol " & objSysInfo.CurrencyLocalSymbol)
    Call .AddItem("Currency thousand sep " & objSysInfo.CurrencyThousandSep)
  End With
End Sub