易语言入门例程之通过编辑框与快照子程序实现文字转图片的转换功能

QAQ

1. 
   
2. .版本 2
   
3. .支持库 BmpOperate
   
4. .程序集 窗口程序集_启动窗口
   
5. .子程序 __启动窗口_创建完毕
   
6. .局部变量 X, 整数型
   
7. .局部变量 位图, 位图
   
8. .局部变量 Y, 整数型
   
9. .局部变量 颜色, 整数型
   
10. 可视 ＝ 真  ' 不加这行否则什么都快照不到
    
11. 编辑框1.禁止 ＝ 真  ' 转换过程禁止快照到光标
    
12. 编辑框1.内容 ＝ “要转换成图片的文字”  ' 要转换成图片的文字
    
13. 编辑框1.是否允许多行 ＝ 真  ' 允许编辑框多行
    
14. 位图.载入数据 (快照 (编辑框1.取窗口句柄 (), 编辑框1.宽度, 编辑框1.高度))  ' 导入快照数据到位图
    
15. .变量循环首 (0, 位图.取宽度 () － 1, 1, X)  ' 像素二值化处理程序，变量X等于0到位图宽度减1
    
16.     .变量循环首 (0, 位图.取高度 () － 1, 1, Y)  ' 由于位图的坐标是从0开始的，所以Y等于0到位图宽高减1
    
17.         颜色 ＝ 位图.取某点颜色 (X, Y)  ' 取当前点颜色数据
    
18.         .如果真 (颜色 ≠ #白色 且 颜色 ≠ #黑色)  ' 不是白色也不是黑色
    
19.             位图.置某点颜色 (X, Y, #黑色)  ' 像素转换为黑色
    
20.         .如果真结束
    
21.     .变量循环尾 ()
    
22. .变量循环尾 ()
    
23. 位图 ＝ 位图.转换位深度 (1)  ' 转换为单色位图
    
24. 写到文件 (“转换结果.bmp”, 位图.取位图数据 ())  ' 写位图数据到文件
    
25. 运行 (“cmd /c start 转换结果.bmp”, 假, 1)  ' 打开转换成的文件
    
26. 结束 ()  ' 退出、结束程序运行
    
27. 
    

复制代码

demon

呃，路过。