.版本 2 .程序集 窗口程序集1 .程序集变量 路径, GP路径, , "2" .程序集变量 区域, GP区域 .程序集变量 图形, GP内存图形 .程序集变量 画笔, GP画笔 .程序集变量 刷子, GP纯色画刷 .程序集变量 hRgn, 整数型 .程序集变量 cj, 整数型 .程序集变量 坐标F, 坐标F, , "3" .程序集变量 字体, GP字体 .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 ' 本源码来自三叶资源网(www.sanye.cx) SetClassLong (_启动窗口.取窗口句柄 (), -26, 位或 (GetClassLong (_启动窗口.取窗口句柄 (), -26), 131072)) Gdiplus初始化 () cj ＝ API_GetDC (_启动窗口.取窗口句柄 ()) 图形.创建 (500, 500) 刷子.创建 (RGB到ARGB (#天蓝)) 图形.填充矩形 (刷子, 0, 0, 500, 500) ' 本源码来自三叶资源网(www.sanye.cx) 坐标F [1].x ＝ 0 坐标F [1].y ＝ 0 坐标F [2].x ＝ 500 坐标F [2].y ＝ 0 坐标F [3].x ＝ 500 坐标F [3].y ＝ 300 路径 [1].创建 () 路径 [1].添加多边形 (坐标F) 区域.创建自路径 (路径 [1]) 坐标F [1].x ＝ 205 坐标F [1].y ＝ 60 坐标F [2].x ＝ 440 坐标F [2].y ＝ 60 坐标F [3].x ＝ 440 坐标F [3].y ＝ 195 路径 [2].创建 () 路径 [2].添加多边形 (坐标F) 区域.合并路径 (路径 [2], #合并模式_排除新区域) hRgn ＝ 区域.取区域句柄 (图形) 画笔.创建自颜色 (RGB到ARGB (#青蓝), 2) 图形.画路径 (画笔, 路径 [1]) 画笔.销毁 () ' 本源码来自三叶资源网(www.sanye.cx) 画笔.创建自颜色 (RGB到ARGB (#黑色), 1) 字体.创建自名称 (“宋体”, 15, , ) 刷子.销毁 () 刷子.创建 (RGB到ARGB (#黑色)) .计次循环首 (12, i) 图形.画直线 (画笔, 40 × i, 0, 40 × i, 10) 图形.画直线 (画笔, 40 × i － 20, 0, 40 × i － 20, 5) 图形.画文本 (到文本 (i), 字体, 刷子, 制矩形F (40 × i － 6, 12)) .计次循环尾 () .计次循环首 (7, i) 图形.画直线 (画笔, 500, 40 × i, 490, 40 × i) 图形.画直线 (画笔, 500, 40 × i － 20, 495, 40 × i － 20) ' 本源码来自三叶资源网(www.sanye.cx) 图形.画文本 (到文本 (i), 字体, 刷子, 制矩形F (475, 40 × i － 6)) .计次循环尾 () SetWindowRgn (_启动窗口.取窗口句柄 (), hRgn, 真) 画笔.销毁 () 刷子.销毁 () 路径 [1].销毁 () 路径 [2].销毁 () .子程序 _时钟1_周期事件 ' 偷懒了 图形.复制 (图形.获取mdc (), cj, 0, 0, 0, 0, _启动窗口.宽度, _启动窗口.高度, #光栅运算_复制) .子程序 __启动窗口_将被销毁 图形.销毁 () ' 本源码来自三叶资源网(www.sanye.cx) 区域.销毁 () Gdiplus关闭 ()