📄 frmoptions.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmOptions
BorderStyle = 1 'Fixed Single
Caption = "选项"
ClientHeight = 5250
ClientLeft = 45
ClientTop = 330
ClientWidth = 7410
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5250
ScaleWidth = 7410
StartUpPosition = 3 '窗口缺省
Begin VB.Frame frameOptions
Caption = "程序选项"
Height = 1815
Left = 120
TabIndex = 4
Top = 2760
Width = 7095
Begin VB.OptionButton optDoWhat
Caption = "关闭"
Height = 255
Index = 2
Left = 5040
TabIndex = 13
Top = 1320
Width = 1815
End
Begin VB.OptionButton optDoWhat
Caption = "注销"
Height = 255
Index = 1
Left = 2520
TabIndex = 12
Top = 1335
Width = 1815
End
Begin VB.OptionButton optDoWhat
Caption = "挂起系统"
Height = 255
Index = 0
Left = 480
TabIndex = 11
Top = 1320
Width = 1815
End
Begin VB.ComboBox cmbSeconds
Height = 315
Left = 6120
TabIndex = 9
Top = 360
Width = 735
End
Begin VB.ComboBox cmbMinutes
Height = 315
Left = 5280
TabIndex = 8
Top = 360
Width = 735
End
Begin VB.ComboBox cmbHours
Height = 315
Left = 4440
TabIndex = 7
Top = 360
Width = 735
End
Begin VB.CheckBox chkAutoStart
Caption = "随Windows一起启动"
Height = 255
Left = 360
TabIndex = 5
Top = 360
Width = 1935
End
Begin VB.Line Line1
X1 = 120
X2 = 6840
Y1 = 1080
Y2 = 1080
End
Begin VB.Label lblWhatToDo
Caption = "动作?"
Height = 255
Left = 120
TabIndex = 10
Top = 840
Width = 3015
End
Begin VB.Label Label1
Caption = "全部检查... HH/MM/SS"
Height = 255
Left = 2325
TabIndex = 6
Top = 435
Width = 2055
End
End
Begin deviceLock.isButton btnRefresh
Height = 495
Left = 5160
TabIndex = 2
Top = 2040
Width = 2175
_ExtentX = 3836
_ExtentY = 873
Icon = "frmOptions.frx":0000
Style = 8
Caption = "刷新"
IconAlign = 1
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.PictureBox Picture1
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 0
ScaleHeight = 195
ScaleWidth = 165
TabIndex = 1
Top = 0
Visible = 0 'False
Width = 225
End
Begin MSComctlLib.ListView listv
Height = 1965
Left = 0
TabIndex = 0
Top = 0
Width = 7395
_ExtentX = 13044
_ExtentY = 3466
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
_Version = 393217
Icons = "imgAll"
SmallIcons = "imgAll"
ColHdrIcons = "imgAll"
ForeColor = -2147483640
BackColor = 16777215
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin MSComctlLib.ImageList imgAll
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOptions.frx":001C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOptions.frx":0176
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOptions.frx":02D0
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmOptions.frx":086A
Key = ""
EndProperty
EndProperty
End
Begin deviceLock.isButton btnUpdate
Height = 495
Left = 120
TabIndex = 3
Top = 2040
Width = 2175
_ExtentX = 3836
_ExtentY = 873
Icon = "frmOptions.frx":1744
Style = 8
Caption = "更新"
IconAlign = 1
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin deviceLock.isButton btnClose
Height = 495
Left = 5160
TabIndex = 14
Top = 4680
Width = 2175
_ExtentX = 3836
_ExtentY = 873
Icon = "frmOptions.frx":1760
Style = 8
Caption = "关闭选项"
IconAlign = 1
iNonThemeStyle = 0
Tooltiptitle = ""
ToolTipIcon = 0
ToolTipType = 0
ttForeColor = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public Enum ImageSizingTypes
[sizeNone] = 0
[sizeCheckBox]
[sizeIcon]
End Enum
Public Enum LedgerColours
vbledgerWhite = &HF9FEFF
vbLedgerGreen = &HD0FFCC
vbLedgerYellow = &HE1FAFF
vbLedgerRed = &HE1E1FF
vbLedgerGrey = &HE0E0E0
vbLedgerBeige = &HD9F2F7
vbLedgerSoftWhite = &HF7F7F7
vbledgerPureWhite = &HFFFFFF
End Enum
Private Const LVM_FIRST As Long = &H1000
Private Const LVM_SETCOLUMNWIDTH As Long = (LVM_FIRST + 30)
Private Const LVSCW_AUTOSIZE As Long = -1
Private Const LVSCW_AUTOSIZE_USEHEADER As Long = -2
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private orderedBy As String
Private m_cHdrIcons As cLVHeaderSortIcons
Private Const SM_CXVSCROLL = 2
Private Const SM_CYHSCROLL = 3
Private Const SM_CYVSCROLL = 20
Private Const SM_CXHSCROLL = 21
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Reg As clsReg
Private Function getFolders(strWhere As String) As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -