📄 frmmain.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "进程监视器"
ClientHeight = 7290
ClientLeft = 45
ClientTop = 435
ClientWidth = 7440
BeginProperty Font
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7290
ScaleWidth = 7440
StartUpPosition = 2 '屏幕中心
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 2
Top = 0
Width = 7440
_ExtentX = 13123
_ExtentY = 1508
ButtonWidth = 1032
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 6
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "退出"
Key = ""
Description = ""
Object.ToolTipText = "退出程序"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "刷新"
Key = ""
Description = ""
Object.ToolTipText = "刷新进程列表"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "终止"
Key = ""
Description = ""
Object.ToolTipText = "终止进程"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "窗口"
Key = ""
Description = ""
Object.ToolTipText = "窗口信息"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "进程"
Key = ""
Description = ""
Object.ToolTipText = "进程信息"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "关于"
Key = ""
Description = ""
Object.ToolTipText = "关于"
Object.Tag = ""
ImageIndex = 6
EndProperty
EndProperty
End
Begin ComctlLib.ListView ListView2
Height = 3375
Left = 120
TabIndex = 28
Top = 720
Visible = 0 'False
Width = 7215
_ExtentX = 12726
_ExtentY = 5953
View = 3
LabelEdit = 1
SortOrder = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 2
BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "窗口名称"
Object.Width = 8819
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = ""
Object.Tag = ""
Text = "可见性"
Object.Width = 1235
EndProperty
End
Begin VB.Timer Timer2
Interval = 20000
Left = 2040
Top = 1800
End
Begin VB.PictureBox Picture2
BackColor = &H00C0C0C0&
DrawStyle = 1 'Dash
DrawWidth = 32
FillColor = &H0000C000&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 1155
Left = 5760
ScaleHeight = 1095
ScaleWidth = 1455
TabIndex = 23
Top = 5760
Width = 1515
Begin VB.OptionButton optFast
BackColor = &H00C0C0C0&
Caption = "最快"
ForeColor = &H00000000&
Height = 300
Left = 120
TabIndex = 26
Top = 255
Width = 675
End
Begin VB.OptionButton optMedium
BackColor = &H00C0C0C0&
Caption = "中等"
ForeColor = &H00000000&
Height = 225
Left = 120
MaskColor = &H8000000F&
TabIndex = 25
Top = 550
Value = -1 'True
Width = 675
End
Begin VB.OptionButton optSlow
BackColor = &H00C0C0C0&
Caption = "慢速"
ForeColor = &H00000000&
Height = 300
Left = 120
MaskColor = &H8000000F&
TabIndex = 24
Top = 760
Width = 915
End
Begin VB.Label Label6
Alignment = 2 'Center
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "刷新速率"
ForeColor = &H00000000&
Height = 195
Left = 120
TabIndex = 27
Top = 0
Width = 1215
End
End
Begin VB.PictureBox Picture3
BackColor = &H00C0C0C0&
DrawStyle = 1 'Dash
DrawWidth = 32
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1155
Left = 4800
ScaleHeight = 1095
ScaleWidth = 975
TabIndex = 19
Top = 5760
Width = 1035
Begin VB.Label lblPercPhysical
Alignment = 2 'Center
BackColor = &H8000000E&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 195
Left = 120
TabIndex = 22
Top = 240
Width = 735
End
Begin VB.Label lblPercPage
Alignment = 2 'Center
BackColor = &H8000000E&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 195
Left = 120
TabIndex = 21
Top = 480
Width = 735
End
Begin VB.Label lblPercVirtual
Alignment = 2 'Center
BackColor = &H8000000E&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 195
Left = 120
TabIndex = 20
Top = 720
Width = 735
End
End
Begin VB.PictureBox Picture1
BackColor = &H00C0C0C0&
DrawStyle = 1 'Dash
DrawWidth = 32
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1155
Left = 840
ScaleHeight = 1095
ScaleWidth = 3975
TabIndex = 7
Top = 5760
Width = 4035
Begin VB.Label Label5
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "可用(KB)"
ForeColor = &H00000000&
Height = 195
Left = 2820
TabIndex = 18
Top = 0
Width = 1035
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "总数(KB)"
ForeColor = &H00000000&
Height = 195
Left = 1560
TabIndex = 17
Top = 0
Width = 1035
End
Begin VB.Label lblAvailPhys
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 195
Left = 2820
TabIndex = 16
Top = 240
Width = 1035
End
Begin VB.Label lblAvailPageFile
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 195
Left = 2820
TabIndex = 15
Top = 480
Width = 1035
End
Begin VB.Label lblAvailVirtual
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 2820
TabIndex = 14
Top = 720
Width = 1035
End
Begin VB.Label lblTotalVirtual
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 1560
TabIndex = 13
Top = 720
Width = 1035
End
Begin VB.Label lblTotalPageFile
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 195
Left = 1560
TabIndex = 12
Top = 480
Width = 1035
End
Begin VB.Label lblTotPhys
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 195
Left = 1560
TabIndex = 11
Top = 240
Width = 1035
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "物理内存"
ForeColor = &H00000000&
Height = 195
Left = 0
TabIndex = 10
Top = 240
Width = 1275
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -