📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
Caption = "调色程序"
ClientHeight = 5520
ClientLeft = 165
ClientTop = 855
ClientWidth = 6555
ClipControls = 0 'False
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5520
ScaleWidth = 6555
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdSalir
Caption = "退出程序"
Height = 435
Left = 2400
TabIndex = 14
Top = 4920
Width = 1590
End
Begin VB.Frame Frame2
Height = 3270
Left = 120
TabIndex = 4
Top = 1440
Width = 6132
Begin VB.HScrollBar hscrRojo
Height = 375
Left = 180
TabIndex = 10
Top = 570
Width = 3912
End
Begin VB.HScrollBar hscrVerde
Height = 375
Left = 180
TabIndex = 9
Top = 1530
Width = 3912
End
Begin VB.HScrollBar hscrAzul
Height = 375
Left = 180
TabIndex = 8
Top = 2520
Width = 3912
End
Begin VB.TextBox txtRojo
Height = 375
Left = 4320
TabIndex = 7
Top = 570
Width = 735
End
Begin VB.TextBox txtVerde
Height = 375
Left = 4320
TabIndex = 6
Top = 1530
Width = 735
End
Begin VB.TextBox txtAzul
Height = 375
Left = 4320
TabIndex = 5
Top = 2520
Width = 735
End
Begin VB.Label lblAzul
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 336
Left = 5280
TabIndex = 17
Top = 2520
Width = 648
End
Begin VB.Label lblVerde
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 336
Left = 5280
TabIndex = 16
Top = 1560
Width = 648
End
Begin VB.Label lblRojo
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 336
Left = 5280
TabIndex = 15
Top = 600
Width = 648
End
Begin VB.Label Label2
Caption = "红色"
Height = 252
Left = 180
TabIndex = 13
Top = 216
Width = 852
End
Begin VB.Label Label3
Caption = "绿色"
Height = 252
Left = 180
TabIndex = 12
Top = 1176
Width = 852
End
Begin VB.Label Label4
Caption = "蓝色"
Height = 252
Left = 180
TabIndex = 11
Top = 2136
Width = 972
End
End
Begin VB.Frame Frame1
Caption = "设置内容"
Height = 1212
Left = 4680
TabIndex = 1
Top = 0
Width = 1488
Begin VB.OptionButton optTexto
Caption = "文本颜色"
Height = 255
Left = 240
TabIndex = 3
Top = 720
Width = 975
End
Begin VB.OptionButton optFondo
Caption = "背景颜色"
Height = 255
Left = 240
TabIndex = 2
Top = 360
Width = 975
End
End
Begin VB.Label lblTexto
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "调制颜色"
BeginProperty Font
Name = "Times New Roman"
Size = 48
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1236
Left = 108
TabIndex = 0
Top = 0
Width = 4308
End
Begin VB.Menu mnuFile
Caption = "菜单"
Begin VB.Menu mnuFileExit
Caption = "退出"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mFondoRojo As Integer
Private mFondoVerde As Integer
Private mFondoAzul As Integer
Private mTextoRojo As Integer
Private mTextoVerde As Integer
Private mTextoAzul As Integer
Private mValorRojo As Integer
Private mValorVerde As Integer
Private mValorAzul As Integer
Private mValorColorTexto As Long
Private mValorColorFondo As Long
Private Sub cmdSalir_Click()
Unload Me
End Sub
Private Sub Form_Load()
On Error GoTo errorHandler
Me.ScaleMode = vbPixels
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
hscrRojo.Min = 0
hscrRojo.Max = 255
hscrVerde.Min = 0
hscrVerde.Max = 255
hscrAzul.Min = 0
hscrAzul.Max = 255
hscrRojo.SmallChange = 1
hscrRojo.LargeChange = 20
hscrVerde.SmallChange = 1
hscrVerde.LargeChange = 20
hscrAzul.SmallChange = 1
hscrAzul.LargeChange = 20
txtRojo.BackColor = RGB(hscrRojo.Value, 0, 0)
txtVerde.BackColor = RGB(0, hscrVerde.Value, 0)
txtAzul.BackColor = RGB(0, 0, hscrAzul.Value)
lblRojo.Caption = hscrRojo.Value
lblVerde.Caption = hscrVerde.Value
lblAzul.Caption = hscrAzul.Value
mValorRojo = hscrRojo.Value
mValorVerde = hscrVerde.Value
mValorAzul = hscrAzul.Value
mValorColorTexto = RGB(mValorRojo, mValorVerde, mValorAzul)
mValorColorFondo = RGB(255, 255, 255)
mFondoRojo = 255
mFondoVerde = 255
mFondoAzul = 255
mTextoRojo = 0
mTextoRojo = 0
mTextoRojo = 0
' mColorFondo = RGB(mFondoRojo, mFondoVerde, mFondoAzul)
' mColorTexto = RGB(mTextoRojo, mTextoVerde, mTextoAzul)
' optLong.Value = True
' lblValorTexto.Caption = mValorColorTexto
' lblValorFondo.Caption = mValorColorFondo
optTexto.Value = True
Exit Sub
errorHandler:
MsgBox "Error en frmMain.Form_Load ; " & Err.Number & vbCrLf & _
Err.Description
End Sub
Private Sub hscrAzul_Change()
On Error GoTo errorHandler
mValorAzul = hscrAzul.Value
lblAzul.Caption = hscrAzul.Value
txtAzul.BackColor = RGB(0, 0, hscrAzul.Value)
If optTexto = True Then
mTextoAzul = hscrAzul.Value
lblTexto.ForeColor = RGB(mTextoRojo, mTextoVerde, mTextoAzul)
Else
mFondoAzul = hscrAzul.Value
lblTexto.BackColor = RGB(mFondoRojo, mFondoVerde, mFondoAzul)
End If
Exit Sub
errorHandler:
MsgBox "Error en frmMain.hscrAzul_Change ; " & Err.Number & vbCrLf & _
Err.Description
End Sub
Private Sub hscrRojo_Change()
On Error GoTo errorHandler
mValorRojo = hscrRojo.Value
lblRojo.Caption = hscrRojo.Value
txtRojo.BackColor = RGB(hscrRojo.Value, 0, 0)
If optTexto = True Then
mTextoRojo = hscrRojo.Value
lblTexto.ForeColor = RGB(mTextoRojo, mTextoVerde, mTextoAzul)
Else
mFondoRojo = hscrRojo.Value
lblTexto.BackColor = RGB(mFondoRojo, mFondoVerde, mFondoAzul)
End If
Exit Sub
errorHandler:
MsgBox "Error en frmMain.hscrRojo_Change ; " & Err.Number & vbCrLf & _
Err.Description
End Sub
Private Sub hscrVerde_Change()
On Error GoTo errorHandler
mValorVerde = hscrVerde.Value
lblVerde.Caption = hscrVerde.Value
txtVerde.BackColor = RGB(0, hscrVerde.Value, 0)
If optTexto = True Then
mTextoVerde = hscrVerde.Value
lblTexto.ForeColor = RGB(mTextoRojo, mTextoVerde, mTextoAzul)
Else
mFondoVerde = hscrVerde.Value
lblTexto.BackColor = RGB(mFondoRojo, mFondoVerde, mFondoAzul)
End If
Exit Sub
errorHandler:
MsgBox "Error en frmMain.hscrVerde_Change ; " & Err.Number & vbCrLf & _
Err.Description
End Sub
Private Sub mnuFileExit_Click()
Unload Me
End Sub
Private Sub optFondo_Click()
hscrRojo.Value = mFondoRojo
hscrVerde.Value = mFondoVerde
hscrAzul.Value = mFondoAzul
End Sub
Private Sub optTexto_Click()
hscrRojo.Value = mTextoRojo
hscrVerde.Value = mTextoVerde
hscrAzul.Value = mTextoAzul
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -