📄 hidedrive.frm
字号:
VERSION 5.00
Begin VB.Form HideDrive
BorderStyle = 3 'Fixed Dialog
Caption = "HideDrive"
ClientHeight = 5655
ClientLeft = 45
ClientTop = 330
ClientWidth = 5160
Icon = "HideDrive.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5655
ScaleWidth = 5160
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame1
Caption = "磁盘信息："
Height = 2415
Left = 0
TabIndex = 33
Top = 3240
Width = 5175
Begin VB.TextBox TxtAvailablePer
Height = 270
Left = 2640
Locked = -1 'True
TabIndex = 51
Top = 2040
Width = 1695
End
Begin VB.TextBox TxtUsedPer
Height = 270
Left = 120
Locked = -1 'True
TabIndex = 49
Top = 2040
Width = 1695
End
Begin VB.TextBox TxtUsed
Height = 270
Left = 2640
Locked = -1 'True
TabIndex = 42
Top = 1440
Width = 1695
End
Begin VB.TextBox TxtAvailable
Height = 270
Left = 120
Locked = -1 'True
TabIndex = 40
Top = 1440
Width = 1695
End
Begin VB.TextBox TxtFree
Height = 270
Left = 2640
Locked = -1 'True
TabIndex = 38
Top = 840
Width = 1695
End
Begin VB.TextBox TxtTotal
Height = 270
Left = 120
Locked = -1 'True
TabIndex = 36
Top = 840
Width = 1695
End
Begin VB.DriveListBox Drive1
Height = 300
Left = 120
TabIndex = 34
Top = 240
Width = 1695
End
Begin VB.Label LabAvailablePerUnit
AutoSize = -1 'True
Caption = "%"
Height = 180
Left = 4440
TabIndex = 53
Top = 2040
Width = 90
End
Begin VB.Label LabUsedPerUnit
AutoSize = -1 'True
Caption = "%"
Height = 180
Left = 1920
TabIndex = 52
Top = 2040
Width = 90
End
Begin VB.Label LabFreePer
Caption = "此盘可用空间占："
Height = 255
Left = 2640
TabIndex = 50
Top = 1800
Width = 1575
End
Begin VB.Label LabUsedPer
AutoSize = -1 'True
Caption = "此盘已经使用："
Height = 180
Left = 120
TabIndex = 48
Top = 1800
Width = 1260
End
Begin VB.Label LabHead
Alignment = 2 'Center
Caption = "磁盘信息"
Height = 255
Left = 2040
TabIndex = 47
Top = 240
Width = 2895
End
Begin VB.Label LabUsedUnit
AutoSize = -1 'True
Caption = "MBytes"
Height = 180
Left = 4440
TabIndex = 46
Top = 1440
Width = 540
End
Begin VB.Label LabFreeUnit
AutoSize = -1 'True
Caption = "MBytes"
Height = 180
Left = 4440
TabIndex = 45
Top = 840
Width = 540
End
Begin VB.Label LabAvailableUnit
AutoSize = -1 'True
Caption = "MBytes"
Height = 180
Left = 1920
TabIndex = 44
Top = 1440
Width = 540
End
Begin VB.Label LabTotalUnit
AutoSize = -1 'True
Caption = "MBytes"
Height = 180
Left = 1920
TabIndex = 43
Top = 840
Width = 540
End
Begin VB.Label LabUsed
AutoSize = -1 'True
Caption = "磁盘的已用空间为："
Height = 180
Left = 2640
TabIndex = 41
Top = 1200
Width = 1620
End
Begin VB.Label LabAvailable
AutoSize = -1 'True
Caption = "磁盘有效可用空间为："
Height = 180
Left = 120
TabIndex = 39
Top = 1200
Width = 1800
End
Begin VB.Label LabFree
AutoSize = -1 'True
Caption = "磁盘的剩余空间为："
Height = 180
Left = 2640
TabIndex = 37
Top = 600
Width = 1620
End
Begin VB.Label LabTotal
AutoSize = -1 'True
Caption = "磁盘总共空间为："
Height = 180
Left = 120
TabIndex = 35
Top = 600
Width = 1440
End
End
Begin VB.Frame Frame9
Caption = "隐藏磁盘："
Height = 3135
Left = 0
TabIndex = 0
Top = 0
Width = 5175
Begin VB.CommandButton CmdCancel
Caption = "返 回"
Height = 420
Left = 3960
TabIndex = 32
Top = 2640
Width = 975
End
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H80000000&
Height = 270
Left = 120
Locked = -1 'True
TabIndex = 31
Top = 2760
Width = 3735
End
Begin VB.CheckBox CheckDrive
BackColor = &H8000000B&
Caption = "A:"
Height = 255
Index = 0
Left = 240
TabIndex = 29
ToolTipText = "1"
Top = 240
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "B:"
Height = 255
Index = 1
Left = 240
TabIndex = 28
ToolTipText = "2"
Top = 600
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "C:"
Height = 255
Index = 2
Left = 240
TabIndex = 27
ToolTipText = "4"
Top = 960
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "D:"
Height = 255
Index = 3
Left = 240
TabIndex = 26
ToolTipText = "8"
Top = 1320
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "E:"
Height = 255
Index = 4
Left = 240
TabIndex = 25
ToolTipText = "16"
Top = 1680
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "F:"
Height = 255
Index = 5
Left = 240
TabIndex = 24
ToolTipText = "32"
Top = 2040
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "G:"
Height = 255
Index = 6
Left = 240
TabIndex = 23
ToolTipText = "64"
Top = 2400
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "H:"
Height = 255
Index = 7
Left = 960
TabIndex = 22
ToolTipText = "128"
Top = 240
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "I:"
Height = 255
Index = 8
Left = 960
TabIndex = 21
ToolTipText = "256"
Top = 600
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "J:"
Height = 255
Index = 9
Left = 960
TabIndex = 20
ToolTipText = "512"
Top = 960
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "K:"
Height = 255
Index = 10
Left = 960
TabIndex = 19
ToolTipText = "1024"
Top = 1320
Width = 615
End
Begin VB.CheckBox CheckDrive
Caption = "L:"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -