怎样用VB的RGB调各种颜色?

应该是用三个滚动条,代表R,G,B.然后调出各种颜色。
2025-03-18 10:43:03
推荐回答(1个)
回答1:

Private Sub Command1_Click()
Dim x As String, y As String, z As String
x = Hex(HScroll1.Value)
y = Hex(HScroll2.Value)
z = Hex(HScroll3.Value)
Text1.Text = x & y & z
Form1.BackColor = CLng("&h" & x & y & z)
End Sub
Private Sub HScroll1_Change()
Command1_Click
End Sub
Private Sub HScroll2_Change()
Command1_Click
End Sub
Private Sub HScroll3_Change()
Command1_Click
End Sub