读书人

RGB的有关问题

发布时间: 2012-04-03 12:38:19 作者: rapoo

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))

读书人网 >VB Dotnet

热点推荐