📄 frmcolors.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmColors
AutoRedraw = -1 'True
BorderStyle = 0 'None
Caption = "Color Settings"
ClientHeight = 6180
ClientLeft = 0
ClientTop = 0
ClientWidth = 11370
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Picture = "frmColors.frx":0000
ScaleHeight = 6180
ScaleWidth = 11370
ShowInTaskbar = 0 'False
Begin VB.CommandButton btnColors
Caption = "&C"
Height = 240
Left = 7425
TabIndex = 20
Top = 2160
Width = 915
End
Begin VB.CheckBox chkAutoApply
Height = 195
Left = 3540
TabIndex = 17
Top = 3390
Value = 1 'Checked
Width = 195
End
Begin MSComDlg.CommonDialog Dialog
Left = 9570
Top = 150
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.CheckBox chkShowHideSolidColors
Height = 195
Left = 270
TabIndex = 13
Top = 3850
Value = 1 'Checked
Width = 195
End
Begin VB.PictureBox picColorPalette
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 3000
Left = 270
MouseIcon = "frmColors.frx":62BC2
Picture = "frmColors.frx":62D14
ScaleHeight = 196
ScaleMode = 3 'Pixel
ScaleWidth = 196
TabIndex = 3
Top = 630
Width = 3000
Begin VB.PictureBox picColorsSquare
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 1605
Left = 420
MouseIcon = "frmColors.frx":7EF86
Picture = "frmColors.frx":7F0D8
ScaleHeight = 103
ScaleMode = 3 'Pixel
ScaleWidth = 137
TabIndex = 12
Top = 660
Width = 2115
End
End
Begin VB.Timer Timer1
Interval = 500
Left = 9030
Top = 180
End
Begin VB.PictureBox picOptionsPanel
BackColor = &H00404040&
Height = 2325
Left = 3540
ScaleHeight = 2265
ScaleWidth = 3075
TabIndex = 4
ToolTipText = "Click on an item to select it"
Top = 930
Width = 3135
Begin VB.ComboBox lstListBoxBackGroundColor
Height = 315
ItemData = "frmColors.frx":896DE
Left = 570
List = "frmColors.frx":896F1
Locked = -1 'True
TabIndex = 16
Text = "Listbox Background Color"
Top = 1800
Width = 2295
End
Begin VB.TextBox txtTextBoxForeGroundColor
Height = 285
Left = 570
Locked = -1 'True
TabIndex = 8
Text = "Textbox Foreground Color"
Top = 1380
Width = 2295
End
Begin VB.TextBox txtTextBoxBackGroundColor
Height = 285
Left = 570
Locked = -1 'True
TabIndex = 5
Text = "Textbox Background Color"
Top = 960
Width = 2295
End
Begin VB.Image imgLights
Height = 210
Index = 4
Left = 120
Picture = "frmColors.frx":89777
Top = 1830
Width = 150
End
Begin VB.Image imgLights
Height = 210
Index = 3
Left = 120
Picture = "frmColors.frx":89979
Top = 1410
Width = 150
End
Begin VB.Image imgLights
Height = 210
Index = 2
Left = 120
Picture = "frmColors.frx":89B7B
Top = 990
Width = 150
End
Begin VB.Image imgLights
Height = 210
Index = 0
Left = 120
Picture = "frmColors.frx":89D7D
Top = 180
Width = 150
End
Begin VB.Image imgLights
Height = 210
Index = 1
Left = 120
Picture = "frmColors.frx":89F7F
Top = 570
Width = 150
End
Begin VB.Label lblLabelColor
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label Color"
ForeColor = &H00FFFFC0&
Height = 195
Left = 600
TabIndex = 7
Tag = "Label"
Top = 165
Width = 795
End
Begin VB.Label lblButtonLabelColor
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Button Text Color"
ForeColor = &H00C0FFC0&
Height = 195
Left = 720
TabIndex = 6
Tag = "ButtonLabel"
Top = 570
Width = 1230
End
Begin VB.Image Image1
Height = 375
Left = 570
Picture = "frmColors.frx":8A181
Stretch = -1 'True
Top = 480
Width = 1515
End
Begin VB.Image imgOptionsPanel
Height = 2250
Index = 0
Left = 0
Picture = "frmColors.frx":8BBA3
Stretch = -1 'True
Top = 0
Width = 420
End
End
Begin VB.Label lblHelp
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Help..."
ForeColor = &H00C0FFC0&
Height = 195
Left = 6090
TabIndex = 19
Tag = "ButtonLabel"
Top = 3510
Width = 495
End
Begin VB.Label lblAutoApply
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Auto Apply"
ForeColor = &H00C0E0FF&
Height = 195
Left = 3810
TabIndex = 18
Top = 3390
Width = 765
End
Begin VB.Image imgRedLight
Height = 210
Index = 1
Left = 8970
Picture = "frmColors.frx":93665
Top = 1530
Visible = 0 'False
Width = 150
End
Begin VB.Image imgRedLight
Height = 210
Index = 0
Left = 9210
Picture = "frmColors.frx":93867
Top = 1530
Visible = 0 'False
Width = 150
End
Begin VB.Label lblWindowsColors
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Windows Colors..."
ForeColor = &H00C0FFC0&
Height = 195
Left = 2580
TabIndex = 15
Tag = "ButtonLabel"
Top = 3870
Width = 1275
End
Begin VB.Label lblHideSolidColors
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "&Show / Hide Solid Colors"
ForeColor = &H00C0E0FF&
Height = 195
Left = 540
TabIndex = 14
Top = 3850
Width = 1785
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Item:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 3630
TabIndex = 11
Top = 675
Width = 435
End
Begin VB.Label lblControlSelected
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label Color"
ForeColor = &H00000000&
Height = 195
Left = 4110
TabIndex = 10
Top = 675
Width = 795
End
Begin VB.Label lblApply
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Apply"
Enabled = 0 'False
ForeColor = &H00C0FFC0&
Height = 195
Left = 6150
TabIndex = 9
Tag = "ButtonLabel"
Top = 3870
Width = 390
End
Begin VB.Label lblCategories
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Color Settings"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 330
TabIndex = 2
Top = 60
Width = 1365
End
Begin VB.Image imgOKPicture
Height = 375
Index = 1
Left = 8970
Picture = "frmColors.frx":93A69
Top = 1080
Visible = 0 'False
Width = 1155
End
Begin VB.Image imgOKPicture
Height = 360
Index = 0
Left = 8970
Picture = "frmColors.frx":95153
Stretch = -1 'True
Top = 690
Visible = 0 'False
Width = 1155
End
Begin VB.Label lblSave
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "OK"
Enabled = 0 'False
ForeColor = &H00C0FFC0&
Height = 195
Left = 4350
TabIndex = 1
Tag = "ButtonLabel"
Top = 3870
Width = 225
End
Begin VB.Label lblExit
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -