.版本 2 .支持库 BmpOperate .程序集 窗口程序集1 .子程序 _按钮1_被单击 编辑框2.内容 ＝ 生成字符 (编辑框1.取窗口句柄 ()) .子程序 生成字符, 文本型, , ' 本源码来自三叶资源网(www.sanye.cx) .参数 hwnd, 整数型 .参数 结果, 逻辑型, 参考 可空 .局部变量 位图, 位图 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 color, 字节集 .局部变量 ret, 文本型 结果 ＝ 位图.载入数据 (快照 (hwnd, , )) .计次循环首 (位图.取高度 () － 2, x) ' ' 本源码来自三叶资源网(www.sanye.cx) .计次循环首 (位图.取宽度 () － 2, y) 处理事件 () color ＝ 到字节集 (位图.取某点颜色 (y, x)) .判断开始 (color [1] ＜ 200) ret ＝ ret ＋ “ ” .默认 ret ＝ ret ＋ “*” .判断结束 到循环尾 () .计次循环尾 () ret ＝ ret ＋ #换行符 ' ' 本源码来自三叶资源网(www.sanye.cx) .计次循环尾 () 返回 (ret)