📄 frmdisk.frm
字号:
VERSION 5.00
Begin VB.Form frmDisk
BorderStyle = 1 'Fixed Single
Caption = "高级硬盘信息获取源代码 Ver 1.0"
ClientHeight = 8850
ClientLeft = 1470
ClientTop = 1020
ClientWidth = 13140
Icon = "frmDisk.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8850
ScaleWidth = 13140
Begin VB.CheckBox chkCASE_SENSITIVE
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 61
Top = 120
Width = 255
End
Begin VB.CheckBox chkUNICODE_STORED_ON_DISK
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 60
Top = 600
Width = 255
End
Begin VB.CheckBox chkPERSISTENT_ACLS
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 59
Top = 2520
Width = 255
End
Begin VB.CheckBox chkFILE_COMPRESSION
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 58
Top = 1200
Width = 255
End
Begin VB.CheckBox chkVOL_IS_COMPRESSED
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 57
Top = 960
Width = 255
End
Begin VB.CheckBox chkCASE_IS_PRESERVED
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 56
Top = 360
Width = 255
End
Begin VB.CheckBox chkNAMED_STREAMS
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 55
Top = 2040
Width = 255
End
Begin VB.CheckBox chkSUPPORTS_ENCRYPTION
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 54
Top = 1800
Width = 255
End
Begin VB.CheckBox chkSUPPORTS_OBJECT_IDS
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 53
Top = 2280
Width = 255
End
Begin VB.CheckBox chkSUPPORTS_REPARSE_POINTS
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 52
Top = 2760
Width = 255
End
Begin VB.CheckBox chkSUPPORTS_SPARSE_FILES
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 51
Top = 3000
Width = 255
End
Begin VB.CheckBox chkVOLUME_QUOTAS
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 12720
TabIndex = 50
Top = 1560
Width = 255
End
Begin VB.CommandButton cmdAboutMe
Caption = "访问枕善居"
Height = 615
Left = 6240
TabIndex = 48
Top = 4560
Width = 1335
End
Begin VB.TextBox txtAdvancedInfo
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2415
Left = 4545
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 47
Top = 6240
Width = 8310
End
Begin VB.ComboBox cboPrimaryMaster
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
TabIndex = 32
Top = 5760
Width = 3255
End
Begin VB.TextBox txtFree
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 8040
TabIndex = 31
Top = 6840
Visible = 0 'False
Width = 255
End
Begin VB.TextBox txtUsed
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 7800
TabIndex = 30
Top = 6600
Visible = 0 'False
Width = 255
End
Begin VB.PictureBox picGraph
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3375
Left = 4440
ScaleHeight = 3375
ScaleWidth = 5055
TabIndex = 29
Top = 120
Width = 5055
End
Begin VB.CommandButton cmdShowInfo
Caption = "显示比例图"
Height = 615
Left = 4680
TabIndex = 1
Top = 4560
Width = 1455
End
Begin VB.ComboBox cboDrives
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
TabIndex = 0
Top = 120
Width = 3255
End
Begin VB.Label Label25
Caption = "反馈信息"
Height = 255
Left = 9720
TabIndex = 82
Top = 5400
Width = 2535
End
Begin VB.Label Label24
Caption = "x"
BeginProperty Font
Name = "Wingdings 2"
Size = 8.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 9480
TabIndex = 81
Top = 5400
Width = 255
End
Begin VB.Label Label23
Caption = "Smartvsd.vxd 擦除"
Height = 255
Left = 9720
TabIndex = 80
Top = 5040
Width = 2535
End
Begin VB.Label Label21
Caption = "w"
BeginProperty Font
Name = "Wingdings 2"
Size = 8.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 9480
TabIndex = 79
Top = 5040
Width = 135
End
Begin VB.Label Label20
Caption = "硬盘扩展信息"
Height = 255
Left = 9720
TabIndex = 78
Top = 4680
Width = 3210
End
Begin VB.Label Label19
Caption = "v"
BeginProperty Font
Name = "Wingdings 2"
Size = 8.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 9480
TabIndex = 77
Top = 4680
Width = 255
End
Begin VB.Label Label18
Caption = "十六进制序列号"
Height = 255
Left = 9720
TabIndex = 76
Top = 4320
Width = 2655
End
Begin VB.Label Label17
Caption = "u"
BeginProperty Font
Name = "Wingdings 2"
Size = 8.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 9480
TabIndex = 75
Top = 4320
Width = 255
End
Begin VB.Label Label10
Caption = "更新:"
Height = 255
Left = 9480
TabIndex = 74
Top = 3960
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -