易语言字符画源码

资源介绍：

源码结合易语言位图操作支持库，实现字符画效果。

.版本 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)

资源作者：

@sanye

资源界面：

资源下载：