EXUI截图取出透明图片和导出透明图片

whb666

源码地址：https://byron.lanzoub.com/i7JKG3321txc
目前只需要最后的目的，实现置剪辑版图片（背景透明），导出文件图片（背景透明）。现在都是不透明的，请教大佬有没有办法实现。

LHL1222

66666666666++++++++

houtian

使用GdiPlus模块

  

子程序名	返回值类型	公开	备 注
子程序

变量名	类 型	静态	数组	备 注
位图1	GP位图
位图2	GP位图
图形	GP图形
尺寸	尺寸F

Gdiplus初始化 ()
位图1.创建自字节集 ( #钟面 )
图形.创建自图像 (位图1)
位图2.创建自字节集 ( #分针 )
尺寸.宽度 ＝ 2000
尺寸.高度 ＝ 2000
位图2.旋转到 (30, 位图2, , , 尺寸)
图形.画图像 (位图2, 0, 0)
位图1.保存到文件 (取运行目录 () ＋ “\1.png”, #图像格式_PNG )

.版本 2<br /> <br /> .子程序 子程序<br /> .局部变量 位图1, GP位图<br /> .局部变量 位图2, GP位图<br /> .局部变量 图形, GP图形<br /> .局部变量 尺寸, 尺寸F<br /> <br /> Gdiplus初始化 ()<br /> 位图1.创建自字节集 (#钟面)<br /> 图形.创建自图像 (位图1)<br /> 位图2.创建自字节集 (#分针)<br /> 尺寸.宽度 ＝ 2000<br /> 尺寸.高度 ＝ 2000<br /> 位图2.旋转到 (30, 位图2, , , 尺寸)<br /> 图形.画图像 (位图2, 0, 0)<br /> 位图1.保存到文件 (取运行目录 () ＋ “\1.png”, #图像格式_PNG)

ren178183

  

子程序名	返回值类型	公开	备 注
子程序
参数名	类 型	参考	可空	数组	备 注
时	整数型
分	整数型

变量名	类 型	静态	数组	备 注
位图1	GP位图
位图2	GP位图
位图3	GP位图
图形	GP图形
尺寸	尺寸F
分针角度	整数型
时针角度	整数型

时针角度 ＝ (时 × 60 ＋ 分) ÷ 2
分针角度 ＝ 分 × 6
Gdiplus初始化 ()
位图1.创建自字节集 ( #表面, )
图形.创建自图像 (位图1)
位图2.创建自字节集 ( #分, )
尺寸.宽度 ＝ 2000
尺寸.高度 ＝ 2000
位图2.旋转到 (分针角度, 位图2, , , 尺寸)
图形.画图像 (位图2, 0, 0)
位图3.创建自字节集 ( #时, )
尺寸.宽度 ＝ 2000
尺寸.高度 ＝ 2000
位图3.旋转到 (时针角度, 位图3, , , 尺寸)
图形.画图像 (位图3, 0, 0)
位图1.保存到文件 (取运行目录 () ＋ “\时钟.png”, #图像格式_PNG, )

.版本 2<br /> <br /> .子程序 子程序<br /> .参数 时, 整数型<br /> .参数 分, 整数型<br /> .局部变量 位图1, GP位图<br /> .局部变量 位图2, GP位图<br /> .局部变量 位图3, GP位图<br /> .局部变量 图形, GP图形<br /> .局部变量 尺寸, 尺寸F<br /> .局部变量 分针角度, 整数型<br /> .局部变量 时针角度, 整数型<br /> <br /> 时针角度 ＝ (时 × 60 ＋ 分) ÷ 2<br /> 分针角度 ＝ 分 × 6<br /> <br /> Gdiplus初始化 ()<br /> 位图1.创建自字节集 (#表面, )<br /> 图形.创建自图像 (位图1)<br /> <br /> 位图2.创建自字节集 (#分, )<br /> 尺寸.宽度 ＝ 2000<br /> 尺寸.高度 ＝ 2000<br /> 位图2.旋转到 (分针角度, 位图2, , , 尺寸)<br /> 图形.画图像 (位图2, 0, 0)<br /> <br /> 位图3.创建自字节集 (#时, )<br /> 尺寸.宽度 ＝ 2000<br /> 尺寸.高度 ＝ 2000<br /> 位图3.旋转到 (时针角度, 位图3, , , 尺寸)<br /> 图形.画图像 (位图3, 0, 0)<br /> <br /> 位图1.保存到文件 (取运行目录 () ＋ “\时钟.png”, #图像格式_PNG, )

汉族

这个模块论坛有开源的，复制这行代码到你的剪贴板那个下面就行了

  

子程序名	返回值类型	公开	备 注
_超级按钮EX1_鼠标左键单击	整数型
参数名	类 型	参考	可空	数组	备 注
坐标x	整数型
坐标y	整数型
保留参数1	整数型
保留参数2	整数型

变量名	类 型	静态	数组	备 注
img	字节集
gp	GP位图
h	整数型
w	整数型
x	整数型
y	整数型

img ＝ 图片_后台区域截图 (取窗口句柄 (), 26, 75, 488, 488)
gp.创建自字节集 (img, )
h ＝ gp.取高度 ()
w ＝ gp.取宽度 ()
计次循环首 (w × h, )
如果真 (gp.取某点颜色 (x, y) ＝ -460294)
gp.置某点颜色 (x, y, 0)
如果真 (x ＝ w)
x ＝ 0
y ＝ y ＋ 1
x ＝ x ＋ 1
计次循环尾 ()
img ＝ gp.保存到字节集 ( #图像格式_PNG, )
剪辑板_置图片 (img)
写到文件 (取特定目录 (3) ＋ “ccc11.png”, img)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 _超级按钮EX1_鼠标左键单击, 整数型<br /> .参数 坐标x, 整数型<br /> .参数 坐标y, 整数型<br /> .参数 保留参数1, 整数型<br /> .参数 保留参数2, 整数型<br /> .局部变量 img, 字节集<br /> .局部变量 gp, GP位图<br /> .局部变量 h, 整数型<br /> .局部变量 w, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> <br /> img ＝ 图片_后台区域截图 (取窗口句柄 (), 26, 75, 488, 488)<br /> gp.创建自字节集 (img, )<br /> h ＝ gp.取高度 ()<br /> w ＝ gp.取宽度 ()<br /> .计次循环首 (w × h, )<br />     .如果真 (gp.取某点颜色 (x, y) ＝ -460294)<br /> <br />         gp.置某点颜色 (x, y, 0)<br />     .如果真结束<br />     .如果真 (x ＝ w)<br />         x ＝ 0<br />         y ＝ y ＋ 1<br />     .如果真结束<br />     x ＝ x ＋ 1<br /> .计次循环尾 ()<br /> img ＝ gp.保存到字节集 (#图像格式_PNG, )<br /> 剪辑板_置图片 (img)<br /> 写到文件 (取特定目录 (3) ＋ “ccc11.png”, img)

具体看生成效果

汉族

汉族 发表于 2025-8-9 19:21
这个模块论坛有开源的，复制这行代码到你的剪贴板那个下面就行了
[e=1].版本 2
.支持库 shell

生成后的效果，原理就是替换颜色



补充内容 (2025-8-9 19:25):
这里表黑色也可以替换