📄 调色板.frm
字号:
VERSION 5.00
Begin VB.Form ts
BorderStyle = 3 'Fixed Dialog
Caption = "调色板"
ClientHeight = 2085
ClientLeft = 4785
ClientTop = 3915
ClientWidth = 3150
ControlBox = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2085
ScaleWidth = 3150
ShowInTaskbar = 0 'False
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 50
Left = 2970
Top = 330
End
Begin VB.CommandButton Command3
Caption = "应用(&A)"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 1153
TabIndex = 14
Top = 1800
Width = 855
End
Begin VB.OptionButton Option2
Caption = "背景"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 1796
TabIndex = 13
Top = 1590
Value = -1 'True
Width = 675
End
Begin VB.OptionButton Option1
Caption = "文字"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 679
TabIndex = 12
Top = 1590
Width = 675
End
Begin VB.HScrollBar HScroll3
Height = 255
LargeChange = 10
Left = 338
Max = 255
TabIndex = 3
Top = 1320
Value = 1
Width = 2385
End
Begin VB.HScrollBar HScroll1
Height = 255
LargeChange = 10
Left = 338
Max = 255
TabIndex = 1
Top = 660
Value = 1
Width = 2385
End
Begin VB.HScrollBar HScroll2
Height = 255
LargeChange = 10
Left = 338
Max = 255
TabIndex = 2
Top = 990
Value = 1
Width = 2385
End
Begin VB.CommandButton Command2
Caption = "关闭(&C)"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 2038
TabIndex = 5
Top = 1800
Width = 855
End
Begin VB.CommandButton Command1
Caption = "确定(&O)"
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 257
TabIndex = 4
Top = 1800
Width = 855
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "蓝"
Height = 225
Left = 8
TabIndex = 11
Top = 1335
Width = 300
End
Begin VB.Label Label7
Alignment = 2 'Center
Height = 255
Left = 2648
TabIndex = 10
Top = 1320
Width = 495
End
Begin VB.Label Label6
Alignment = 2 'Center
Height = 255
Left = 2648
TabIndex = 9
Top = 990
Width = 495
End
Begin VB.Label Label5
Alignment = 2 'Center
Height = 255
Left = 2648
TabIndex = 8
Top = 660
Width = 495
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "红"
Height = 225
Left = 8
TabIndex = 7
Top = 675
Width = 300
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "绿"
Height = 225
Left = 8
TabIndex = 6
Top = 1005
Width = 300
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "示例文字"
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 195
TabIndex = 0
Top = 0
Width = 2760
End
End
Attribute VB_Name = "ts"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public rcolor, gcolor, bcolor, rcolori, gcolori, bcolori As Integer
Public ctname, tzdxname As String
Public lngb, lngf, lngcolor As Long
Public 状态 As Boolean
Private Sub Command1_Click()
If ctname = "XTSJXS" Then
XTSJXS.Show
XTSJXS.Label2.ForeColor = ts.Label1.ForeColor
XTSJXS.Label3.ForeColor = ts.Label1.ForeColor
XTSJXS.Label4.ForeColor = ts.Label1.ForeColor
XTSJXS.BackColor = ts.Label1.BackColor
Else
If ctname = "主窗体" Then
主窗体.Show
主窗体.Label1.ForeColor = ts.Label1.ForeColor
主窗体.Label1.BackColor = ts.Label1.BackColor
End If
End If
Unload ts
End Sub
Private Sub Command2_Click()
Unload Me
If ctname = "XTSJXS" Then
XTSJXS.Show
Else
主窗体.Show
End If
End Sub
Private Sub Command3_Click()
If Command3.Caption = "应用(&A)" Then
HScroll1.Enabled = False
HScroll2.Enabled = False
HScroll3.Enabled = False
Command2.Enabled = False
Command3.Caption = "恢复(&H)"
Select Case ctname
Case "XTSJXS"
XTSJXS.Show
XTSJXS.Label2.ForeColor = ts.Label1.ForeColor
XTSJXS.Label3.ForeColor = ts.Label1.ForeColor
XTSJXS.Label4.ForeColor = ts.Label1.ForeColor
XTSJXS.BackColor = ts.Label1.BackColor
Case "主窗体"
主窗体.Show
主窗体.Label1.ForeColor = ts.Label1.ForeColor
主窗体.Label1.BackColor = ts.Label1.BackColor
End Select
Else
HScroll1.Enabled = True
HScroll2.Enabled = True
HScroll3.Enabled = True
Command3.Caption = "应用(&A)"
Command2.Enabled = True
Select Case ctname
Case "XTSJXS"
XTSJXS.Show
XTSJXS.Label2.ForeColor = lngf
XTSJXS.Label3.ForeColor = lngf
XTSJXS.Label4.ForeColor = lngf
XTSJXS.BackColor = lngb
Case "主窗体"
主窗体.Show
主窗体.Label1.ForeColor = lngf
主窗体.Label1.BackColor = lngb
End Select
Command3.Enabled = False
End If
End Sub
Private Sub Form_Load()
Command3.Enabled = False
状态 = False
Dim sz(1) As String
读取 "ts", "left", sz(0), 主窗体.MyName
If sz(0) = "No" Then
Me.Left = (Screen.Width - Me.Width) / 2
Else
Me.Left = Val(sz(0))
End If
读取 "ts", "top", sz(1), 主窗体.MyName
If sz(1) = "No" Then
Me.Top = (Screen.Height - Me.Height) / 2
Else
Me.Top = Val(sz(1))
End If
Timer1.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
写入创建 "ts", "left", Me.Left, 主窗体.MyName
写入创建 "ts", "top", Me.Top, 主窗体.MyName
End Sub
Private Sub HScroll1_Change()
状态 = True
Command3.Enabled = True
rcolor = HScroll1.Value
Label5.Caption = Str(HScroll1.Value)
If tzdxname = "文字" Then
Label1.ForeColor = RGB(rcolor, gcolor, bcolor)
Else
Label1.BackColor = RGB(rcolor, gcolor, bcolor)
End If
End Sub
Private Sub HScroll2_Change()
状态 = True
Command3.Enabled = True
gcolor = HScroll2.Value
Label6.Caption = Str(HScroll2.Value)
If tzdxname = "文字" Then
Label1.ForeColor = RGB(rcolor, gcolor, bcolor)
Else
Label1.BackColor = RGB(rcolor, gcolor, bcolor)
End If
End Sub
Private Sub HScroll3_Change()
状态 = True
Command3.Enabled = True
bcolor = HScroll3.Value
Label7.Caption = Str(HScroll3.Value)
If tzdxname = "文字" Then
Label1.ForeColor = RGB(rcolor, gcolor, bcolor)
Else
Label1.BackColor = RGB(rcolor, gcolor, bcolor)
End If
End Sub
Private Sub Option1_Click()
tzdxname = "文字"
If 状态 = False Then
Label1.ForeColor = lngf
lngcolor = Label1.ForeColor
Call FanshuanRgb
HScroll1.Value = rcolori
HScroll2.Value = gcolori
HScroll3.Value = bcolori
Else
lngcolor = Label1.ForeColor
Call FanshuanRgb
HScroll1.Value = rcolori
HScroll2.Value = gcolori
HScroll3.Value = bcolori
End If
End Sub
Private Sub Option2_Click()
tzdxname = "背景"
If 状态 = False Then
Label1.BackColor = lngb
lngcolor = Label1.BackColor
Call FanshuanRgb
HScroll1.Value = rcolori
HScroll2.Value = gcolori
HScroll3.Value = bcolori
Else
lngcolor = Label1.BackColor
Call FanshuanRgb
HScroll1.Value = rcolori
HScroll2.Value = gcolori
HScroll3.Value = bcolori
End If
End Sub
Sub FanshuanRgb()
rcolori = lngcolor Mod 256
gcolori = (lngcolor \ 256) Mod 256
bcolori = lngcolor \ 256 \ 256
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = lngf
Label1.BackColor = lngb
lngcolor = Label1.BackColor
Call FanshuanRgb
HScroll1.Value = rcolori
HScroll2.Value = gcolori
HScroll3.Value = bcolori
Timer1.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -