给隔壁求助区问题做的一份源码

憨憨问号 · 发表于 2024-10-19 16:40:56

本帖最后由憨憨问号于 2024-10-19 16:43 编辑
给隔壁求助区问题做的一份源码，感觉应该有点用，发到这里来
要求：图片框中的图片，点一下变成黑白，再点一下复原

我采用了易语言支持库带的命令：转换到JPG
此命令的参数3如果填“真”，则会保存出一份黑白图片
不过只能读取绝对路径并保存至绝对路径，不能达成楼主要求的“图片框中的图片，点一下变成黑白，再点一下复原”
所以我用很笨的方法封装了一下，基础原理是把彩色图片和黑白图片处理好后存到本地，然后点击图片框时切换显示

窗口程序集名	保留	保留	备注
窗口程序集_窗口1
变量名	类型	数组	备注
逻辑	逻辑型
储存初始图片	字节集

子程序名	返回值类型	公开	备注
_窗口1_创建完毕

' 代码作者：bilibili憨憨问号，感谢关注，图片来源于网络，仅作为例子
储存初始图片＝图片框1.图片  ' 图片框要事先放好一个你的图片
逻辑＝假  ' 假则代表图片是彩色，真则代表图片是黑白色，方便后续判断
写到文件 (取当前目录 () ＋ “\彩色.jpg”, 图片框1.图片)  ' 把当前图片框中的文件写出方便转化
wh_图片去色 (取当前目录 () ＋ “\彩色.jpg”, 取当前目录 () ＋ “\黑白.jpg”)  ' 把图片处理成黑白储存在本地

子程序名	返回值类型	公开	备注
wh_图片去色
参数名	类型	参考	可空	数组	备注
目标图片路径	文本型
保存灰白路径	文本型

转换到JPG (目标图片路径, 保存灰白路径, 真, 75, 真, 0) ' 易语言自带的命令，进行简单封装

子程序名	返回值类型	公开	备注
_图片框1_鼠标左键被按下	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

' 此处进行判断和图片改变

如果 (逻辑) ' 真，则执行上半部分，假，则执行下半部分

' 如果是真，代表图片是黑白，要转彩色

图片框1.图片＝读入文件 (取当前目录 () ＋ “\彩色.jpg”) ' 改变图片

逻辑＝假 ' 把判断转换成假

' 如果是假，代表图片是彩色，要转黑白

图片框1.图片＝读入文件 (取当前目录 () ＋ “\黑白.jpg”) ' 改变图片

逻辑＝真 ' 把判断转换成真

i支持库列表	支持库注释
eImgConverter	图像格式转换支持库

效果图：

图片去色例子.e (1.96 MB, 下载次数: 30, 售价: 2 枚精币)

熊不熊 · 发表于 2024-12-4 08:14:56

感谢分享，很给力！~

lm88818 · 发表于 2024-10-29 16:51:37

感谢分享，很给力！~

光影魔术 · 发表于 2024-10-28 12:58:01

感谢分享源码

lxh628 · 发表于 2024-10-28 10:38:45

感谢分享，很给力！~

宇晨CC · 发表于 2024-10-27 02:46:38

楼主，你是一个大好人！！

guyuelintian · 发表于 2024-10-26 21:23:16

感谢分享，很给力！~

gto250 · 发表于 2024-10-26 13:12:26

想知道你的ide用的是什么字体

Eroslp · 发表于 2024-10-26 06:57:28

感谢分享！！！jbnGZlaoDo

goditfkyh · 发表于 2024-10-25 14:23:55

感谢分享，很给力

		自动登录	找回密码
密码			注册

[易语言纯源码] 给隔壁求助区问题做的一份源码

评分

点评