7,765
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Form_Load()
lblColor.Caption = "" '显示设置颜色的标签控件
hscR.Min = 0 '红色滚动条,最小值 HScrollBar
hscG.Min = 0 '绿色滚动条,最小值 HScrollBar
hscB.Min = 0 '蓝色滚动条,最小值 HScrollBar
hscR.Max = 255 '红色滚动条,最大值 HScrollBar
hscG.Max = 255 '绿色滚动条,最大值 HScrollBar
hscB.Max = 255 '蓝色滚动条,最大值 HScrollBar
hscR.Value = 0 '红色元素当前值
hscG.Value = 0 '绿色元素当前值
hscB.Value = 0 '蓝色元素当前值
lblRValue.Caption = "0" '显示红色元素当前值
lblGValue.Caption = "0" '显示绿色元素当前值
lblBValue.Caption = "0" '显示蓝色元素当前值
lblColor.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value) '显示设定好的颜色
End Sub
Private Sub hscB_Change()
lblColor.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)
lblBValue.Caption = CStr(hscB.Value)
End Sub
Private Sub hscG_Change()
lblColor.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)
lblGValue.Caption = CStr(hscG.Value)
End Sub
Private Sub hscR_Change()
lblColor.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)
lblRValue.Caption = CStr(hscR.Value)
End Sub