.版本 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关闭 (标志)