vb 编程 用三个滚动条控制红绿蓝色量,改变一个图片框的背景色 红绿蓝的色量值分别在上部的标签中显示

Question

如题所述

Answer 1

1个label1 1个picture1 3个 HScroll1 HScroll2 HScroll3

Private Sub Form_Load()
Picture1.BackColor = RGB(0, 0, 0)
HScroll1.Max = 255
HScroll2.Max = 255
HScroll3.Max = 255
Label1.AutoSize = True
Label1.Caption = ""
End Sub

Private Sub HScroll1_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label1.Caption = "红:" & HScroll1.Value & vbCrLf & "绿:" & HScroll2.Value & vbCrLf & "蓝:" & HScroll3.Value
End Sub
Private Sub HScroll2_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label1.Caption = "红:" & HScroll1.Value & vbCrLf & "绿:" & HScroll2.Value & vbCrLf & "蓝:" & HScroll3.Value
End Sub
Private Sub HScroll3_Change()
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label1.Caption = "红:" & HScroll1.Value & vbCrLf & "绿:" & HScroll2.Value & vbCrLf & "蓝:" & HScroll3.Value
End Sub追问

红绿蓝的色量值分别在上部的标签中显示 这个怎么弄 就是滚动条在变的时候 标签中会显示那个颜色的值在变

本回答被提问者采纳