用vb做出七彩过度渐变色的效果？

VB可用Line方法循简闭枝环调用RGB函数实现七彩过渡渐变色效果。

1）Line 方法，在对象上画直线和矩形。

2）RGB 函数，返回一个 Long整数，用来表态配示一个 RGB 颜色值。

3）实现代码如下：

Option Explicit

    Dim w, h, a, i, c

Private Sub Form_Click()

    ScaleMode = 3

    w = 600 '宽度

    h = 300 '高度

    a = w / 6 '图像分六部分

    For i = 0 To a

        c = i * 255 / a

        Line (i + a * 0, 0)-(i + a * 0, h), RGB(255, 0, 255 - c)

        Line (i + a * 1, 0)-(i + a * 1, h), RGB(255, c, 0)

        Line (i + a * 2, 0)-(i + a * 2, h), RGB(255 - c, 255, 0)

        拦敏Line (i + a * 3, 0)-(i + a * 3, h), RGB(0, 255, c)

        Line (i + a * 4, 0)-(i + a * 4, h), RGB(0, 255 - c, 255)

        Line (i + a * 5, 0)-(i + a * 5, h), RGB(c, 0, 255)

    Next i

End Sub

Private Sub Form_Load()

    Me.Width = 9270

End Sub

效果：

这个问题可大可小，

用三种红绿蓝可以混合色各种颜色，这个程序是吧，每个颜色分成200级（实际是201级），所以值就是0到200，然后用PWM输出控制各色的亮行团度，混合出七彩，如R=200、G=200、B=200就是碧凳白色，但档慧橘不是纯正的白。（纯白色时RGB的值是不相等的）

户外的超大LED广告屏就是这样的，每个像素点就是一个全色LED灯。

1、首先开机技嘉rgb后侍培按DEL进去BIOS设置。

2、其次按右方向键两次选到老友唯peripherals集成外设。

3、最后在RGBFusionOnboardLED环境灯中选择On即可调成告岩七彩光。

---