产生渐层的Form背景


【实例说明】
    让窗体分层,Form背景颜色从深到浅显示。

【编程思路】
    Line方法绘图。

【设计步骤】
    1.新建一个标准工程,创建一个新窗体,命名为Form1。
    2.源程序  [素材源程序下载]

Option Explicit

Private Sub Form_Load()
        Dim i As Long, j As Long
        Dim x As Long, y As Long

        '使 Form 物件的自动重绘有效
        Form1.AutoRedraw = True
        '直线的样式为内实线 (6-vbInsideSolid)
        Form1.DrawStyle = 6
        'copy Pen-由 ForeColor 属性指定的颜色。(13-vbCopyPen)
        Form1.DrawMode = 13
        '输出的线宽为 2 像素 (Pixel)
        Form1.DrawWidth = 2

        '为绘图或列印建立一自订的座标比例尺
        '图形像素为显示器或印表机解析度的最小单位

        '设定物件座标的量测单位为像素 (3-VbPixels)
        Form1.ScaleMode = 3
        '设定垂直量测单位值为 512
        Form1.ScaleHeight = (256 * 2)

        'RGB(red, green, blue)
        'B : 使一方块用一指定方块对角的座标画出
        'F : 指定此方块系以用来画方块的色彩来加以填满 (有B才可用F)
        For i = 0 To 255
                Form1.Line (0, y)-(Form1.Width, y + 2), RGB(0, 0, i), BF
                y = y + 2
        Next i
End Sub