process.frm

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

VERSION 5.00
Object = "*\A..\SOURCE\FAST2003.vbp"
Object = "*\A..\SOURCE\FAST2003.vbp"
Begin VB.Form frmProcess 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Process"
   ClientHeight    =   3915
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7605
   Icon            =   "process.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3915
   ScaleWidth      =   7605
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtInfo 
      Height          =   1815
      Left            =   90
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   2
      Top             =   1980
      Width           =   4740
   End
   Begin VB.ListBox lstProcess 
      Height          =   1815
      Left            =   90
      TabIndex        =   1
      Top             =   90
      Width           =   7440
   End
   Begin VB.CommandButton cmdRefresh 
      Caption         =   "Refresh"
      Height          =   510
      Left            =   5265
      TabIndex        =   0
      Top             =   3285
      Width           =   1995
   End
   Begin FLWSystem.FWSysInfo objSysInfo 
      Left            =   5565
      Top             =   2385
      _ExtentX        =   820
      _ExtentY        =   820
   End
End
Attribute VB_Name = "frmProcess"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Dim objProcesses As New FLWSystem.FWProcesses


Private Sub cmdRefresh_Click()
  Dim objProcess As FLWSystem.IFWProcess
  
  Call objProcesses.Refresh
  
  Call lstProcess.Clear
  For Each objProcess In objProcesses.Processes
    Call lstProcess.AddItem(objProcess.FileName)
  Next
  lstProcess.ListIndex = 0
End Sub


Private Sub Form_Load()
  If objSysInfo.WinPlatform = FLWSystem.flwPlatformWin98 Or _
     objSysInfo.WinPlatform = FLWSystem.flwPlatformWin95 Then
    cmdRefresh.Value = True
  Else
    Call MsgBox("Only available in Windows 95/98", vbCritical)
    cmdRefresh.Enabled = False
  End If
End Sub

Private Sub lstProcess_Click()
  Dim objProcess As FLWSystem.IFWProcess
  
  If lstProcess.ListIndex >= 0 Then
    Set objProcess = objProcesses.Process(lstProcess.ListIndex + 1)
    With objProcess
      txtInfo = .CountUsage & " references" & vbCrLf & _
                "Number of threads " & .Threads & vbCrLf & _
                "Process ID " & Hex(.ProcessID) & vbCrLf & _
                "Module ID " & Hex(.ModuleID) & vbCrLf & _
                "Default heap ID " & Hex(.DefaultHeapID) & vbCrLf & _
                "Parent process ID " & Hex(.ParentProcessID) & vbCrLf & _
                "Flags " & .Flags & vbCrLf & _
                "Priority class base " & .PriorityClassBase
    End With
    Set objProcess = Nothing
  Else
    txtInfo = "No selected"
  End If
End Sub