用VB！！设置3个Hscroll分别用于调整picture里 红、绿、蓝三原色的值。 怎么编代码

用VB！！设置3个Hscroll分别用于调整picture里 红、绿、蓝三原色的值。 怎么编代码

dim a%,b%,c%
private Hscroll1_click(value as integer)
a=value
picture1.backcolor=RGB(a,b,c)
end sub
private Hscroll2_click(value as integer)
a=hscroll2.value
picture1.backcolor=RGB(a,b,c)
end sub
private Hscroll3_click(value as integer)
c=hscroll3.value
picture1.backcolor=RGB(a,b,c)
end sub

Private Sub Form_Load() HScroll1.Min = 0: HScroll1.Max = 255 HScroll2.Min = 0: HScroll2.Max = 255 HScroll3.Min = 0: HScroll3.Max = 255 Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll1_Change() Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Change() Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change() Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub

比较简单的办法是，在窗体上放入一个HScroll控件，然后右键单击它，选择复制，再在窗体上粘贴两个，这样3个HScroll就成为了一个控件组，这样可以简化编程的代码，程序代码如下： Dim R, G, B As Integer Private Sub Form_Load() For i = 0 To 2 HScroll1(i).Min = 0 HScroll1(i).Max = 255 Next End Sub Private Sub HScroll1_Change(Index As Integer) R = HScroll1(0).Value G = HScroll1(1).Value B = HScroll1(2).Value Picture1.BackColor = RGB(R, G, B) End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息