为编程爱好者分享易语言教程源码的资源网

网站首页 > 易语言相关 > 图形图像源码 正文

红绿3D图片生成器源码

三叶资源网 2017-02-25 01:40:55 图形图像源码 1522 ℃ 0 评论
.版本 2
.支持库 edroptarget
.支持库 BmpOperate
.支持库 eAPI
.支持库 shell
.支持库 eImgConverter

.程序集 窗口程序集_启动窗口

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

拖放对象1.注册拖放控件 (图片框1.取窗口句柄 ())

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 wt1, 位图
.局部变量 wt2, 位图
.局部变量 y, 整数型
.局部变量 x, 整数型
.局部变量 r, 字节集
.局部变量 gb, 字节集
.局部变量 time, 文本型

连续赋值 (取图片宽度 (接收到的文件路径), 画板1.宽度, 画板2.宽度)
连续赋值 (取图片高度 (接收到的文件路径), 画板1.高度, 画板2.高度)
画板1.画图片 (载入图片 (读入文件 (接收到的文件路径)), 6, 0, 取图片宽度 (接收到的文件路径), 取图片高度 (接收到的文件路径), )  ' 正 6 突出感   看不出  -6  画面内部跟随眼镜会晃动而动
画板2.画图片 (载入图片 (读入文件 (接收到的文件路径)), 0, 0, 取图片宽度 (接收到的文件路径), 取图片高度 (接收到的文件路径), )
wt1.载入数据 (画板1.取图片 (, ))
wt2.载入数据 (画板2.取图片 (, ))
' wt3.载入数据 (画板3.取图片 (, ))
.计次循环首 (wt1.取高度 (), y)
    .计次循环首 (wt1.取宽度 (), x)
        r = 到字节集 (wt1.取某点颜色 (x - 1, y - 1))
        gb = 到字节集 (wt2.取某点颜色 (x - 1, y - 1))
        wt1.置某点颜色 (x - 1, y - 1, 取颜色值 (r [1], gb [2], gb [3]))
        处理事件 ()
    .计次循环尾 ()
    处理事件 ()
.计次循环尾 ()
画板1.画图片 (载入图片 (wt1.取位图数据 ()), 0, 0, , , )
画板2.清除 (, , , )
画板2.宽度 = 画板2.宽度 - 6
画板1.复制 (6, 0, 画板1.宽度, 画板1.高度, 画板2, 0, 0, )
图片框1.图片 = 画板2.取图片 (, )  ' wt1.取位图数据 ()
time = 到文本 (取小时 (取现行时间 ())) + 到文本 (取分钟 (取现行时间 ())) + 到文本 (取秒 (取现行时间 ()))
写到文件 (取特定目录 (3) + “红绿3D” + time + “.png”, 画板2.取图片 (, ))  ' wt1.取位图数据 ())
转换到PNG (取特定目录 (3) + “红绿3D” + time + “.png”, 取特定目录 (3) + “红绿3D” + time + “.png”, 24)
标题 = “文件已经写到桌面:” + “红绿3D” + time + “.png”

@汉族

文件下载

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
QQ网页登录多线程进度下载IMAP收信windows安全机制APIE2EE例程软件加密套接字HOOK58t同城桌面透明背景时钟网页填表软件异常重启163邮箱登陆支持库源码色彩识别易包做插件驱动开发教程简单多线程易语言IDE界面界面引擎源码
最新评论