
易语言52版以后的版本已经更新了,支持png格式的了。你直接下载就行了。不过以前的版本如果是置外形的话,后面有一个参数是可以设置透明颜色的不知道你是不是找的这样的。
下面是52版更新日志
使用真彩模块,创建真彩窗口,或者使用,GDIPlus类版本 2
程序集 GP画布场景, , 公开
程序集变量 EXSTYLE, 整数型
程序集变量 是否已创建, 逻辑型
程序集变量 画布图形, GP内存图形, , , 用于场景刷新显示
程序集变量 句柄, 整数型
程序集变量 画布透明度, 整数型, , , 0-255
子程序 _初始化, , , 当基于本类的对象被创建后,此方法会被自动调用
子程序 _销毁, , , 当基于本类的对象被销毁前,此方法会被自动调用
子程序 创建, 逻辑型, 公开, 必须先进行创建。成功返回真,失败返回假。
参数 窗口句柄, 整数型, , 指定窗口句柄,子句柄无效。
局部变量 尺寸, 尺寸L
局部变量 坐标, 坐标L
如果真 (是否已创建 = 真)
返回 (假)
如果真结束
是否已创建 = 真
句柄 = 窗口句柄
EXSTYLE = GetWindowLong (句柄, -20)
SetWindowLong (句柄, -20, 位或 (EXSTYLE, 524288))
画布透明度 = 255
取尺寸 (尺寸宽度, 尺寸高度)
画布图形创建 (尺寸宽度, 尺寸高度)
取坐标 (坐标x, 坐标y)
画布图形复制图层窗口 (句柄, 坐标x, 坐标y, 尺寸宽度, 尺寸高度, 画布透明度, 0, 0)
返回 (真)
子程序 销毁, 逻辑型, 公开, 成功返回真,失败返回假。
如果真 (是否已创建 = 假)
返回 (假)
如果真结束
画布图形销毁 ()
SetWindowLong (句柄, -20, EXSTYLE)
EXSTYLE = 0
是否已创建 = 假
句柄 = 0
返回 (真)
子程序 复制GP内存图形到画布, 逻辑型, 公开, 成功返回真,失败返回假。
参数 GP内存图形, GP内存图形, , 当此参数为空时,则继续执行其它的参数
参数 左边, 整数型, 可空
参数 顶边, 整数型, 可空
参数 宽度, 整数型, 可空, 为空时,以GP内存图形的宽度来计算
参数 高度, 整数型, 可空, 为空时,以GP内存图形的高度来计算
参数 透明度, 整数型, 可空
局部变量 blendFunc32bpp, 字节集
局部变量 p, 整数型
局部变量 纠正宽度, 整数型
局部变量 纠正高度, 整数型
如果真 (是否已创建 = 假)
返回 (假)
如果真结束
blendFunc32bpp = { 0, 0, 0, 0 }
判断开始 (是否为空 (透明度) = 真)
blendFunc32bpp [3] = 255
默认
blendFunc32bpp [3] = 透明度
判断结束
p = 取字节集数据 (blendFunc32bpp, #整数型, )
判断开始 (是否为空 (宽度) = 真)
纠正宽度 = GP内存图形取宽度 ()
默认
纠正宽度 = 宽度
判断结束
判断开始 (是否为空 (高度) = 真)
纠正高度 = GP内存图形取高度 ()
默认
纠正高度 = 高度
判断结束
AlphaBlend (画布图形获取mdc (), 左边, 顶边, 纠正宽度, 纠正高度, GP内存图形获取mdc (), 0, 0, GP内存图形取宽度 (), GP内存图形取高度 (), p)
' -----------------------------------------------------------
' StretchBlt (屏幕图形获取mdc (), 物体图形取左边 (), 物体图形取顶边 (), 物体图形取宽度 (), 物体图形取高度 (), 物体图形获取mdc (), 0, 0, 物体图形取宽度 (), 物体图形取高度 (), 13369376)
' GdiTransparentBlt (屏幕图形获取mdc (), 物体图形取左边 (), 物体图形取顶边 (), 物体图形取宽度 (), 物体图形取高度 (), 物体图形获取mdc (), 0, 0, 物体图形取宽度 (), 物体图形取高度 (), 物体图形取透明度 ())
返回 (真)
子程序 刷新画布, 逻辑型, 公开, 成功返回真,失败返回假。
局部变量 左边, 整数型
局部变量 顶边, 整数型
局部变量 宽度, 整数型
局部变量 高度, 整数型
如果真 (是否已创建 = 假)
返回 (假)
如果真结束
取坐标 (左边, 顶边)
取尺寸 (宽度, 高度)
画布图形复制图层窗口 (句柄, 左边, 顶边, 宽度, 高度, 画布透明度, 0, 0)
返回 (真)
子程序 更新尺寸, 逻辑型, 公开, 成功返回真,失败返回假。注意:将清除画布的所有内容。
参数 宽度, 整数型
参数 高度, 整数型
如果真 (是否已创建 = 假)
返回 (假)
如果真结束
画布图形销毁 ()
画布图形创建 (宽度, 高度)
返回 (真)
子程序 获取mdc, 整数型, 公开
返回 (画布图形获取mdc ())
子程序 置透明度, 逻辑型, 公开, 透明度:0-255
参数 透明度, 整数型, , 0-255
如果真 (是否已创建 = 假)
返回 (假)
如果真结束
画布透明度 = 透明度
返回 (真)
子程序 取透明度, 整数型, 公开, 透明度:0-255(-1=失败)
如果真 (是否已创建 = 假)
返回 (-1)
如果真结束
返回 (画布透明度)
子程序 取尺寸, 逻辑型, 公开, 包过带样式的窗口边框
参数 宽度, 整数型, 参考 可空
参数 高度, 整数型, 参考 可空
局部变量 矩形位置, 矩形坐标
局部变量 返回左边, 整数型
局部变量 返回顶边, 整数型
局部变量 返回右边, 整数型
局部变量 返回底边, 整数型
局部变量 返回, 逻辑型
如果真 (是否已创建 = 假)
返回 (假)
如果真结束
返回 = 取窗口矩形坐标 (句柄, 矩形位置)
返回左边 = 矩形位置左边
返回顶边 = 矩形位置顶边
返回右边 = 矩形位置右边
返回底边 = 矩形位置底边
宽度 = 返回右边 - 返回左边
高度 = 返回底边 - 返回顶边
返回 (返回)
子程序 取大小, 逻辑型, 公开, 不包过带窗口样式的边框。
参数 宽度, 整数型, 参考 可空
参数 高度, 整数型, 参考 可空
局部变量 矩形尺寸, 矩形尺寸
局部变量 返回宽度, 整数型
局部变量 返回高度, 整数型
局部变量 返回左边, 整数型
局部变量 返回顶边, 整数型
局部变量 值, 整数型
如果真 (是否已创建 = 假)
返回 (假)
如果真结束
值 = 取窗口矩形尺寸 (句柄, 矩形尺寸)
返回左边 = 矩形尺寸左边
返回顶边 = 矩形尺寸顶边
返回宽度 = 矩形尺寸宽度
返回高度 = 矩形尺寸高度
宽度 = 矩形尺寸宽度
高度 = 矩形尺寸高度
如果真 (值 = 0)
返回 (假)
如果真结束
返回 (真)
子程序 取坐标, 逻辑型, 公开
参数 左边, 整数型, 参考 可空
参数 顶边, 整数型, 参考 可空
局部变量 位置, 矩形坐标
局部变量 返回, 逻辑型
如果真 (是否已创建 = 假)
返回 (假)
如果真结束
返回 = 取窗口矩形坐标 (句柄, 位置)
左边 = 位置左边
顶边 = 位置顶边
返回 (返回)
子程序 取句柄, 整数型, 公开
返回 (句柄)
子程序 清除所有, 逻辑型, 公开
如果真 (是否已创建 = 假)
返回 (假)
如果真结束
画布图形清除 ()
返回 (真)
一个很简单的方法将png转化为jpg
右击png,选择预览,下面有个复制到的按钮,复制到桌面,选择保存类型就OK!!
就是我上传的中从右面数第三个就是,类似于软盘的按钮
品红色的地方用置外形()
版本 2
子程序 __启动窗口_创建完毕
置外形 (_启动窗口底图, #品红)
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)