vb.net 随机颜色 可追加分数！！！

来源：百度知道 编辑：UC知道 时间：2024/06/02 08:19:48
选取按钮的背景颜色，然后要求其每个r,g,b分量在-10~10的范围内随机波动。
颜色没有波动时是：
pen.Color = Button1.BackColor

我试过
i = Rnd()
pen.Color = Color.FromArgb(Button1.BackColor.ToArgb + i*200)
但是只有b分量的颜色改了。

求助！

如果可以帮我解决这个问题，你要几分随你说。

Dim c As Color '新生成的颜色

Dim r As Byte 'RED
Dim g As Byte 'Green
Dim b As Byte 'Blue
Dim a As Byte 'Alpha 分量值

a = Button1.BackColor.A
r = Button1.BackColor.R
g = Button1.BackColor.G
b = Button1.BackColor.B

Dim rnd As New Random '生成随机数
Dim i As Integer

i = rnd.Next(-10, 10)
r = r + IIf(r + i > 255, -i, i)

i = rnd.Next(-10, 10)
g = g + IIf(g + i > 255, -i, i)

i = rnd.Next(-10, 10)
b = b + IIf(b + i > 255, -i, i)

c = Color.FromArgb(a, r, g, b)