画板实现字写字源码

.版本 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.清除 (, , , )

.子程序 __启动窗口_创建完毕

@刘通