📄 gta3colorpicker.ctl
字号:
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00835A39&
Height = 480
Index = 87
Left = 4320
TabIndex = 90
TooltipText = "Bright Blue Poly"
Top = 2880
Width = 480
End
Begin VB.Label lblColors
BackColor = &H0037286D&
Height = 480
Index = 88
Left = 4800
TabIndex = 91
TooltipText = "Bright Red"
Top = 2880
Width = 480
End
Begin VB.Label lblColors
BackColor = &H008FA2A7&
Height = 480
Index = 89
Left = 5280
TabIndex = 92
TooltipText = "Lt.Champagne Poly"
Top = 2880
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00B1B1AF&
Height = 480
Index = 90
Left = 5760
TabIndex = 93
TooltipText = "Silver Poly"
Top = 2880
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00554136&
Height = 480
Index = 91
Left = 0
TabIndex = 94
TooltipText = "Steel Blue Poly"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H006E6C6D&
Height = 480
Index = 92
Left = 480
TabIndex = 95
TooltipText = "Medium Gray Poly"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00896A0F&
Height = 480
Index = 93
Left = 960
TabIndex = 96
TooltipText = "Arctic Pearl"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H006B4B20&
Height = 480
Index = 94
Left = 1440
TabIndex = 97
TooltipText = "Nassau Blue Poly"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00573E2B&
Height = 480
Index = 95
Left = 1920
TabIndex = 98
TooltipText = "Med.Sapphire Blue Poly"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H009D9F9B&
Height = 480
Index = 96
Left = 2400
TabIndex = 99
TooltipText = "Silver Poly"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H0095846C&
Height = 480
Index = 97
Left = 2880
TabIndex = 100
TooltipText = "Lt.Sapphire Blue Poly"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00605D4D&
Height = 480
Index = 98
Left = 3360
TabIndex = 101
TooltipText = "Malachite Poly"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H007F9BAE&
Height = 480
Index = 99
Left = 3840
TabIndex = 102
TooltipText = "Flax"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H008F6C40&
Height = 480
Index = 100
Left = 4320
TabIndex = 103
TooltipText = "Med.Maui Blue Poly"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H003B251F&
Height = 480
Index = 101
Left = 4800
TabIndex = 104
TooltipText = "Dk.Sapphire Blue Poly"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H007692AB&
Height = 480
Index = 102
Left = 5280
TabIndex = 105
TooltipText = "Copper Beige"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00734513&
Height = 480
Index = 103
Left = 5760
TabIndex = 106
TooltipText = "Bright Blue Poly"
Top = 3360
Width = 480
End
Begin VB.Label lblColors
BackColor = &H006C8196&
Height = 480
Index = 104
Left = 0
TabIndex = 107
TooltipText = "Med.Flax"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H006A6864&
Height = 480
Index = 105
Left = 480
TabIndex = 108
TooltipText = "Med.Gray Poly"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00825010&
Height = 480
Index = 106
Left = 960
TabIndex = 109
TooltipText = "Bright Blue Poly"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H008399A1&
Height = 480
Index = 107
Left = 1440
TabIndex = 110
TooltipText = "Lt.Driftwood Poly"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00945638&
Height = 480
Index = 108
Left = 1920
TabIndex = 111
TooltipText = "Blue"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00615652&
Height = 480
Index = 109
Left = 2400
TabIndex = 112
TooltipText = "Steel Gray Poly"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H0056697F&
Height = 480
Index = 110
Left = 2880
TabIndex = 113
TooltipText = "Lt.Beechwood Poly"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H009A928C&
Height = 480
Index = 111
Left = 3360
TabIndex = 114
TooltipText = "Slate Gray"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00876E59&
Height = 480
Index = 112
Left = 3840
TabIndex = 115
TooltipText = "Lt.Sapphire Blue Poly"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00323547&
Height = 480
Index = 113
Left = 4320
TabIndex = 116
TooltipText = "Dk.Beechwood Poly"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H004F6244&
Height = 480
Index = 114
Left = 4800
TabIndex = 117
TooltipText = "Torch Red"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00270A73&
Height = 480
Index = 115
Left = 5280
TabIndex = 118
TooltipText = "Bright Red"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00573422&
Height = 480
Index = 116
Left = 5760
TabIndex = 119
TooltipText = "Med.Sapphire Blue Firemist"
Top = 3840
Width = 480
End
Begin VB.Label lblColors
BackColor = &H001B0D64&
Height = 480
Index = 117
Left = 0
TabIndex = 120
TooltipText = "Med.Garnet Red Poly"
Top = 4320
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00C6ADA3&
Height = 480
Index = 118
Left = 480
TabIndex = 121
TooltipText = "White Diamond Pearl"
Top = 4320
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00535869&
Height = 480
Index = 119
Left = 960
TabIndex = 122
TooltipText = "Dk.Sable Poly"
Top = 4320
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00808B9B&
Height = 480
Index = 120
Left = 1440
TabIndex = 123
TooltipText = "Antelope Beige"
Top = 4320
Width = 480
End
Begin VB.Label lblColors
BackColor = &H001C0B62&
Height = 480
Index = 121
Left = 1920
TabIndex = 124
TooltipText = "Brilliant Red Poly"
Top = 4320
Width = 480
End
Begin VB.Label lblColors
BackColor = &H005E5D5B&
Height = 480
Index = 122
Left = 2400
TabIndex = 125
TooltipText = "Gun Metal Poly"
Top = 4320
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00284462&
Height = 480
Index = 123
Left = 2880
TabIndex = 126
TooltipText = "Med.Beechwood Poly"
Top = 4320
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00271873&
Height = 480
Index = 124
Left = 3360
TabIndex = 127
TooltipText = "Brilliant Red Poly"
Top = 4320
Width = 480
End
Begin VB.Label lblColors
BackColor = &H006D371B&
Height = 480
Index = 125
Left = 3840
TabIndex = 128
TooltipText = "Bright Blue Poly"
Top = 4320
Width = 480
End
Begin VB.Label lblColors
BackColor = &H00AE6AEC&
Height = 480
Index = 126
Left = 4320
TabIndex = 129
TooltipText = "Pink"
Top = 4320
Width = 480
End
End
End
Attribute VB_Name = "GTA3ColorPicker"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Public intSelectedColorIndex As Integer
Event ColorPicked(ByVal isSelected As Boolean, ByVal intColorOrdinal As Integer)
Private Sub cmdColorPicker_Click(Index As Integer)
On Error Resume Next
Select Case Index
Case 0 'OK
RaiseEvent ColorPicked(True, intSelectedColorIndex)
Case 1 'Cancel
RaiseEvent ColorPicked(False, intSelectedColorIndex)
End Select
Err.Clear
End Sub
Private Sub lblColors_Click(Index As Integer)
On Error Resume Next
UserControl.BackColor = lblColors(Index).BackColor
intSelectedColorIndex = Index
Err.Clear
End Sub
Private Sub lblColors_DblClick(Index As Integer)
On Error Resume Next
UserControl.BackColor = lblColors(Index).BackColor
intSelectedColorIndex = Index
Call cmdColorPicker_Click(0)
Err.Clear
End Sub
Public Function SetLabelColor(ByVal intLabelIndex As Integer, ByVal lngColorCode As Long, ByVal strToolTip As String) As Boolean
On Error GoTo errSetLabelColor
SetLabelColor = False
lblColors(intLabelIndex).BackColor = lngColorCode
lblColors(intLabelIndex).ToolTipText = strToolTip
SetLabelColor = True
Exit Function
errSetLabelColor:
Err.Clear
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -