用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.打开ps，点击渐变工具，点击渐变编辑器。

2.在渐变编辑器调好七彩色。

3.在舞台上画好渐变后，点击菜单基扒栏的滤镜，选择扭曲，选择极坐标。

4.在极坐标竖尘d出框点击平面坐标到极坐标，确定。

5.点击菜单栏的滤镜，选择扭曲，选旋转扭曲。

6.在旋转扭曲里将余锋禅角度设置为合适数值，确定。

7.得到七彩的漩涡渐变。

---