RGB的问题
我想在代码里边自己通过设置某控件背景色改咋作?
Dim r, g, b As Integer
Private Sub VScrollBar_changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VScrollBar3.ValueChanged, VScrollBar2.ValueChanged, VScrollBar1.ValueChanged
r = VScrollBar1.Value
g = VScrollBar2.Value
b = VScrollBar3.Value
Dim CurColor As Color = Color.FromArgb(RGB(r, g, b))
Panel1.BackColor = CurColor
End Sub
上面这代码是用3个VScrollBar分别拉动出来RGB(r, g, b),颜色显示在Panel上
3个VScrollBar都放在一GroupBox里,VScrollBar的最大值是255,步长是1.
这样的代码,拉动VScrollBar,Panel1的BackColor 没反应,我刚学vb.net,麻烦那位给指点下这咋回事?谢谢
[解决办法]
Color.FromArgb(RGB(r, g, b))这里出的问题，具体查msdn
解决办法：
1.
Dim CurColor As Color = Color.FromArgb(90, r, g, b)
FromArgb第一个参数是透明度
2.
Dim CurColor As Color = Drawing.ColorTranslator.FromWin32(RGB(r, g, b))
