GDI+第五课画笔之实战篇

GDI+第五课画笔之实战篇，不用计时器自动绘制图像，这是画笔篇的高级应用

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 标志, 整数型
.程序集变量 g, GP图形
.程序集变量 笔1, GP画笔
.程序集变量 笔2, GP画笔
.程序集变量 x, 整数型
.程序集变量 y, 整数型
.程序集变量 画刷, GP纯色画刷

.子程序 _按钮1_被单击
.局部变量 笔, GP画笔

标志 ＝ Gdiplus初始化 ()
g.创建自窗口句柄 (取窗口句柄 ())
画刷.创建 (RGB到ARGB (#白色))
g.填充矩形 (画刷, 0, 0, 宽度, 高度)
笔1.创建自颜色 (RGB到ARGB (#蓝色), 1)
笔2.创建自颜色 (RGB到ARGB (#红色), 1)
x ＝ 256
y ＝ 0
.变量循环首 (y, 256, y ＋ 5, y)
    g.画直线 (笔1, 0, x, y, 0)
    g.画直线 (笔2, 256, y, x, 256)
    x ＝ x － 5
    延时 (120)
.变量循环尾 ()
x ＝ 0
.变量循环首 (x, 256, 1, x)
    笔.创建自颜色 (RGB到ARGB (#绿色, x), 1)
    g.画直线 (笔, 0, x, 256, x)
    延时 (20)
.变量循环尾 ()
y ＝ 0
.变量循环首 (y, 256, 1, y)
    笔.创建自颜色 (RGB到ARGB (取颜色值 (#红色, 0, #蓝色), y), 1)
    g.画直线 (笔, y, 100, y, 200)
    延时 (20)
.变量循环尾 ()

.子程序 __启动窗口_将被销毁

Gdiplus关闭 (标志)

@spctomp