📄 frmmain.frm
字号:
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 225
Index = 1
Left = 2400
TabIndex = 23
Top = 5745
Width = 1095
End
Begin VB.Label lbl
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "n/a"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 225
Index = 0
Left = 2400
TabIndex = 22
Top = 5520
Width = 1095
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "可用内存页"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 225
Left = 360
TabIndex = 21
Top = 6645
Width = 1935
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "总内存页"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 225
Left = 960
TabIndex = 20
Top = 6420
Width = 1335
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "虚拟内存"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 225
Left = 480
TabIndex = 19
Top = 5970
Width = 1815
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "可用内存"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 225
Left = 360
TabIndex = 18
Top = 5745
Width = 1935
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "物理内存"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 225
Left = 600
TabIndex = 17
Top = 5520
Width = 1695
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Left = 3885
TabIndex = 16
Top = 6570
Width = 510
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "系统"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Left = 3840
TabIndex = 15
Top = 6360
Width = 510
End
End
Begin VB.PictureBox Applets
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 495
Left = 3310
ScaleHeight = 495
ScaleWidth = 8385
TabIndex = 10
Top = 8160
Width = 8390
Begin VB.Timer tmrUpdate
Interval = 1000
Left = 3360
Top = 0
End
Begin VB.Label StatusMessage
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 12
Top = 135
Width = 6735
End
Begin VB.Label Clock
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6960
TabIndex = 11
Top = 140
Width = 1455
End
End
Begin VB.PictureBox titleBar
BorderStyle = 0 'None
Height = 375
Left = 120
ScaleHeight = 375
ScaleWidth = 11655
TabIndex = 6
Top = 90
Width = 11655
Begin VB.PictureBox Closed
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 280
Left = 0
MouseIcon = "frmMain.frx":0000
MousePointer = 99 'Custom
ScaleHeight = 285
ScaleWidth = 315
TabIndex = 9
Top = 60
Width = 315
End
Begin VB.PictureBox Minimized
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 280
Left = 11335
MouseIcon = "frmMain.frx":030A
MousePointer = 99 'Custom
ScaleHeight = 285
ScaleWidth = 315
TabIndex = 8
Top = 60
Width = 315
End
Begin VB.PictureBox Maximized
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 280
Left = 11065
MouseIcon = "frmMain.frx":0614
MousePointer = 99 'Custom
ScaleHeight = 285
ScaleWidth = 315
TabIndex = 7
Top = 60
Width = 315
End
End
Begin VB.PictureBox MenuContainer
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 8055
Left = 240
ScaleHeight = 8055
ScaleWidth = 3015
TabIndex = 1
Top = 600
Width = 3015
Begin VB.Timer Timer1
Interval = 1000
Left = 2040
Top = 0
End
Begin VB.PictureBox cmdAbout
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Left = 360
MouseIcon = "frmMain.frx":091E
MousePointer = 99 'Custom
ScaleHeight = 450
ScaleWidth = 2355
TabIndex = 14
Top = 6840
Width = 2355
End
Begin VB.PictureBox cmdShutdown
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Left = 360
MouseIcon = "frmMain.frx":0C28
MousePointer = 99 'Custom
ScaleHeight = 450
ScaleWidth = 2355
TabIndex = 5
Top = 7440
Width = 2355
End
Begin VB.PictureBox cmdChangeUser
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00CCCCCC&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 450
Left = 360
MouseIcon = "frmMain.frx":0F32
MousePointer = 99 'Custom
ScaleHeight = 450
ScaleWidth = 2355
TabIndex = 4
Top = 6240
Width = 2355
End
Begin VB.ListBox MenuList
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5325
Left = 240
TabIndex = 3
Top = 600
Width = 2535
End
Begin VB.PictureBox MenuHeader
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 375
Left = 120
ScaleHeight = 375
ScaleWidth = 2775
TabIndex = 2
Top = 90
Width = 2775
End
End
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Height = 8985
Left = 20
Top = 20
Width = 11990
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -