.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 x, 整数型
.局部变量 y, 整数型
取文本长度 (编辑框1.内容)
' 注意一点,画板必须设置为无边框 否则写出时候会把边框也画出来
画板1.定位写出 (1, 1, 编辑框1.内容)
.计次循环首 (30, y)
.计次循环首 (150, x)
.如果 (画板1.取点 (x, y) = #白色)
编辑框3.加入文本 (“ ”)
.否则
编辑框3.加入文本 (编辑框2.内容)
.如果结束
.计次循环尾 ()
编辑框3.加入文本 (#换行符)
.计次循环尾 ()
.子程序 _按钮2_被单击
编辑框2.内容 = “”
编辑框3.内容 = “”
画板1.清除 (, , , )
.子程序 __启动窗口_创建完毕
画板源代码