如何用易语言生成图片

李靖武 · 发表于 2025-9-2 16:15:38

能不能用易语言写代码生成类似这三张图片的，图片大小是720*1280，里面的几何图形和颜色不固定，背景是渐变色

zainex · 发表于 2025-9-2 16:15:39

用 GDIPlus类模块写的:

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
生成图片	字节集
参数名	类型	参考	可空	数组	备注
宽	整数型
高	整数型

变量名	类型	静态	数组	备注
位图	GP位图
图形	GP图形
结果	字节集
纯色画刷	GP纯色画刷
矩形	矩形F
线性渐变画刷	GP线性渐变画刷
标记	整数型

标记＝ Gdiplus初始化 ()
置随机数种子 ()
位图.创建自像素格式 (宽, 高)
图形.创建自图像 (位图)
矩形.宽度＝宽
矩形.高度＝高
线性渐变画刷.创建自矩形角度 (矩形, RGB到ARGB (取随机数 (0, 16777215)), RGB到ARGB (取随机数 (0, 16777215)), 45)
图形.填充矩形 (线性渐变画刷, 0, 0, 宽, 高)

计次循环首 (取随机数 (10, 30), )

置随机数种子 ()

循环判断首 ()

矩形.宽度＝取随机数 (20, 宽 ÷ 2)

循环判断尾 (矩形.宽度＞宽或矩形.宽度＞高)

循环判断首 ()

矩形.左边＝取随机数 (矩形.宽度 ÷ 2, 宽－矩形.宽度)

循环判断尾 (矩形.左边＋矩形.宽度＞宽)

矩形.顶边＝取随机数 (0, 高－矩形.宽度)

纯色画刷.创建 (RGB到ARGB (取随机数 (0, 16777215)))

判断 (取随机数 (0, 1) ＝ 0)

图形.填充椭圆 (纯色画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.宽度)

图形.填充矩形 (纯色画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.宽度)

计次循环尾 ()
结果＝位图.保存到字节集 ( #图像格式_PNG )
位图.销毁 ()
图形.销毁 ()
纯色画刷.销毁 ()
线性渐变画刷.销毁 ()
Gdiplus关闭 (标记)
返回 (结果)

子程序名	返回值类型	公开	备注
_按钮1_被单击

图片框1.图片＝生成图片 (到整数 (编辑框1.内容), 到整数 (编辑框2.内容))

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 生成图片, 字节集<br />
.参数 宽, 整数型<br />
.参数 高, 整数型<br />
.局部变量 位图, GP位图<br />
.局部变量 图形, GP图形<br />
.局部变量 结果, 字节集<br />
.局部变量 纯色画刷, GP纯色画刷<br />
.局部变量 矩形, 矩形F<br />
.局部变量 线性渐变画刷, GP线性渐变画刷<br />
.局部变量 标记, 整数型<br />
<br />
标记 ＝ Gdiplus初始化 ()<br />
置随机数种子 ()<br />
位图.创建自像素格式 (宽, 高)<br />
图形.创建自图像 (位图)<br />
矩形.宽度 ＝ 宽<br />
矩形.高度 ＝ 高<br />
线性渐变画刷.创建自矩形角度 (矩形, RGB到ARGB (取随机数 (0, 16777215)), RGB到ARGB (取随机数 (0, 16777215)), 45)<br />
图形.填充矩形 (线性渐变画刷, 0, 0, 宽, 高)<br />
.计次循环首 (取随机数 (10, 30), )<br />
    置随机数种子 ()<br />
    .循环判断首 ()<br />
        矩形.宽度 ＝ 取随机数 (20, 宽 ÷ 2)<br />
    .循环判断尾 (矩形.宽度 ＞ 宽 或 矩形.宽度 ＞ 高)<br />
    .循环判断首 ()<br />
        矩形.左边 ＝ 取随机数 (矩形.宽度 ÷ 2, 宽 － 矩形.宽度)<br />
    .循环判断尾 (矩形.左边 ＋ 矩形.宽度 ＞ 宽)<br />
    矩形.顶边 ＝ 取随机数 (0, 高 － 矩形.宽度)<br />
    纯色画刷.创建 (RGB到ARGB (取随机数 (0, 16777215)))<br />
    .判断开始 (取随机数 (0, 1) ＝ 0)<br />
        图形.填充椭圆 (纯色画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.宽度)<br />
    .默认<br />
        图形.填充矩形 (纯色画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.宽度)<br />
    .判断结束<br />
<br />
.计次循环尾 ()<br />
结果 ＝ 位图.保存到字节集 (#图像格式_PNG)<br />
位图.销毁 ()<br />
图形.销毁 ()<br />
纯色画刷.销毁 ()<br />
线性渐变画刷.销毁 ()<br />
Gdiplus关闭 (标记)<br />
返回 (结果)<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
图片框1.图片 ＝ 生成图片 (到整数 (编辑框1.内容), 到整数 (编辑框2.内容))

效果:

完整例子.zip (356.63 KB, 下载次数: 3)