.版本 2 .程序集 窗口程序集1 .程序集变量 集画笔, GP画笔 .程序集变量 集图形, GP图形 .程序集变量 集字体, GP字体 .程序集变量 集画刷, GP纯色画刷 .程序集变量 集坐标, 坐标F, , "3" .子程序 _窗口1_创建完毕 Gdiplus初始化 () 集画笔.创建自颜色 (RGB到ARGB (#黄褐), 20) 集图形.创建自窗口句柄 (画板2.取窗口句柄 ()) 集字体.创建自名称 (“宋体”, 12) 集画刷.创建 (RGB到ARGB (#红色)) 集坐标 [1].x ＝ 90 集坐标 [1].y ＝ 80 集坐标 [2].x ＝ 240 集坐标 [2].y ＝ 30 集坐标 [3].x ＝ 240 集坐标 [3].y ＝ 80 集画笔.置斜接限制 (0) .子程序 _窗口1_将被销毁 Gdiplus关闭 () .子程序 _画板1_绘画 .参数 重画区左边, 整数型 .参数 重画区上边, 整数型 .参数 重画区右边, 整数型 .参数 重画区下边, 整数型 .局部变量 hdc, 整数型 .局部变量 图形, GP图形 .局部变量 画笔, GP画笔 .局部变量 字体, GP字体 .局部变量 画刷, GP纯色画刷 .局部变量 坐标, 坐标F, , "3" hdc ＝ 画板1.取设备句柄 () 图形.创建自DC (hdc) 画笔.创建自颜色 (RGB到ARGB (#红色), 20) 坐标 [1].x ＝ 90 坐标 [1].y ＝ 80 坐标 [2].x ＝ 240 坐标 [2].y ＝ 30 坐标 [3].x ＝ 240 坐标 [3].y ＝ 80 字体.创建自名称 (“宋体”, 12) 画刷.创建 (RGB到ARGB (#红色)) 图形.画文本 (“连线方式：”, 字体, 画刷) 画笔.置连线方式 (#连线方式_斜接) ' 默认 图形.画多边形 (画笔, 坐标) 图形.变形平移 (0, 80) 画笔.置连线方式 (#连线方式_斜角) 图形.画多边形 (画笔, 坐标) 图形.变形平移 (0, 80) 画笔.置连线方式 (#连线方式_圆角) 图形.画多边形 (画笔, 坐标) .子程序 _画板2_绘画 .参数 重画区左边, 整数型 .参数 重画区上边, 整数型 .参数 重画区右边, 整数型 .参数 重画区下边, 整数型 集图形.画文本 (“斜接限制：”, 集字体, 集画刷) 集图形.画多边形 (集画笔, 集坐标) .子程序 _滑块条1_位置被改变 集画笔.置斜接限制 (滑块条1.位置 ÷ 10) 画板2.重画 ()