📄 frmcolors.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form FrmColors
BackColor = &H00800000&
BorderStyle = 0 'None
Caption = "Color Settings"
ClientHeight = 5370
ClientLeft = 0
ClientTop = 0
ClientWidth = 5370
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
Picture = "FrmColors.frx":0000
ScaleHeight = 5370
ScaleWidth = 5370
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin MSComDlg.CommonDialog Dialog
Left = 2400
Top = 4560
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.Image Image14
Height = 180
Left = 3000
Picture = "FrmColors.frx":35B8
Top = 3000
Width = 180
End
Begin VB.Label Label16
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Auto Apply"
ForeColor = &H00000000&
Height = 225
Left = 3240
TabIndex = 17
Tag = "TitleColor"
Top = 2985
Width = 1005
End
Begin VB.Image Image13
Height = 180
Left = 2160
Picture = "FrmColors.frx":3973
Top = 4560
Visible = 0 'False
Width = 180
End
Begin VB.Image Image12
Height = 180
Left = 2160
Picture = "FrmColors.frx":3D2E
Top = 4920
Visible = 0 'False
Width = 180
End
Begin VB.Label Label15
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Apply"
ForeColor = &H00000000&
Height = 225
Left = 2880
TabIndex = 16
Tag = "TitleColor"
Top = 3525
Width = 1485
End
Begin VB.Label Label7
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Cancel"
ForeColor = &H00000000&
Height = 225
Left = 2880
TabIndex = 15
Tag = "TitleColor"
Top = 3885
Width = 1485
End
Begin VB.Image imgSelected2
Height = 180
Index = 2
Left = 480
Picture = "FrmColors.frx":4107
Top = 3480
Width = 180
End
Begin VB.Image imgSelected2
Height = 180
Index = 1
Left = 480
Picture = "FrmColors.frx":44F4
Top = 3120
Width = 180
End
Begin VB.Image imgSelected2
Height = 180
Index = 0
Left = 480
Picture = "FrmColors.frx":48E1
Top = 2760
Width = 180
End
Begin VB.Image imgSelected1
Height = 180
Index = 1
Left = 2640
Picture = "FrmColors.frx":4CCE
Top = 1440
Width = 180
End
Begin VB.Image imgSelected1
Height = 180
Index = 0
Left = 2640
Picture = "FrmColors.frx":50BB
Top = 960
Width = 180
End
Begin VB.Image imgSelected
Height = 180
Index = 2
Left = 480
Picture = "FrmColors.frx":54A8
Top = 1560
Width = 180
End
Begin VB.Image imgSelected
Height = 180
Index = 1
Left = 480
Picture = "FrmColors.frx":5895
Top = 1200
Width = 180
End
Begin VB.Image imgSelected
Height = 180
Index = 0
Left = 480
Picture = "FrmColors.frx":5C82
Top = 840
Width = 180
End
Begin VB.Image Image6
Height = 180
Left = 1920
Picture = "FrmColors.frx":606F
Top = 4560
Visible = 0 'False
Width = 180
End
Begin VB.Image Image9
Height = 180
Left = 1920
Picture = "FrmColors.frx":645C
Top = 4920
Visible = 0 'False
Width = 180
End
Begin VB.Image imgClose
Height = 315
Left = 4200
Picture = "FrmColors.frx":6854
Tag = "Close"
ToolTipText = "Close"
Top = 50
Width = 315
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Text Color"
ForeColor = &H00000000&
Height = 225
Left = 840
TabIndex = 14
Tag = "Label"
ToolTipText = "Click here to set the color of all labels"
Top = 3120
Width = 825
End
Begin VB.Shape Shape3
Height = 1575
Left = 240
Top = 2640
Width = 1935
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Bar Color"
ForeColor = &H00000000&
Height = 225
Left = 840
TabIndex = 13
Tag = "Label"
ToolTipText = "Click here to set the color of all labels"
Top = 3480
Width = 750
End
Begin VB.Label Label11
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Title Color"
ForeColor = &H00000000&
Height = 225
Left = 840
TabIndex = 12
Tag = "Label"
ToolTipText = "Click here to set the color of all labels"
Top = 2760
Width = 840
End
Begin VB.Label Label10
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Pick Color"
ForeColor = &H00000000&
Height = 225
Left = 480
TabIndex = 11
Tag = "TitleColor"
Top = 3885
Width = 1485
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Desktop Form"
Height = 225
Left = 240
TabIndex = 10
Top = 2400
Width = 1125
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Text Color"
ForeColor = &H00000000&
Height = 225
Left = 3000
TabIndex = 9
Tag = "Label"
ToolTipText = "Click here to set the color of all labels"
Top = 1440
Width = 825
End
Begin VB.Shape Shape2
Height = 1575
Left = 2400
Top = 720
Width = 1935
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Title Color"
ForeColor = &H00000000&
Height = 225
Left = 3000
TabIndex = 8
Tag = "Label"
ToolTipText = "Click here to set the color of all labels"
Top = 960
Width = 840
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Pick Color"
ForeColor = &H00000000&
Height = 225
Left = 2640
TabIndex = 7
Tag = "TitleColor"
Top = 1965
Width = 1485
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Stats Form"
Height = 225
Left = 2400
TabIndex = 6
Top = 480
Width = 855
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Main Form"
Height = 225
Left = 240
TabIndex = 5
Top = 480
Width = 870
End
Begin VB.Label Label12
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Pick Color"
ForeColor = &H00000000&
Height = 225
Left = 480
TabIndex = 4
Tag = "TitleColor"
Top = 1965
Width = 1485
End
Begin VB.Image Image4
Height = 330
Left = 120
Picture = "FrmColors.frx":6D76
Top = 4560
Visible = 0 'False
Width = 1425
End
Begin VB.Image Image5
Height = 315
Left = 1560
Picture = "FrmColors.frx":7476
Top = 4560
Visible = 0 'False
Width = 315
End
Begin VB.Image Image7
Height = 330
Left = 120
Picture = "FrmColors.frx":796B
Top = 4920
Visible = 0 'False
Width = 1425
End
Begin VB.Image Image8
Height = 315
Left = 1560
Picture = "FrmColors.frx":807A
Top = 4920
Visible = 0 'False
Width = 315
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Title Color"
ForeColor = &H00000000&
Height = 225
Left = 840
TabIndex = 3
Tag = "Label"
ToolTipText = "Click here to set the color of all labels"
Top = 840
Width = 840
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Bar Color"
ForeColor = &H00000000&
Height = 225
Left = 840
TabIndex = 2
Tag = "Label"
ToolTipText = "Click here to set the color of all labels"
Top = 1560
Width = 750
End
Begin VB.Shape Shape1
Height = 1575
Left = 240
Top = 720
Width = 1935
End
Begin VB.Label lblCaption
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Colors"
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -