wx爱心九宫图制作易语言PC版开源

1242876632

无聊实在不知道干嘛 看见最近九宫图很火
捉摸着就做了一个
软件由81张图片框组合而成 每个图片框都可以修改图片
输出的九宫图发到QQ空间 朋友圈等都非常的完美
可以加载百度图片 一键修改背景
源码原创绝非转载盗版



QQ空间效果图





下载地址：https://lanzoux.com/i1ltqfc

金火大大

如果能做个 一键导入多少图片 自动平铺就好了

1242876632

金火大大 发表于 2018-8-9 10:01
如果能做个 一键导入多少图片 自动平铺就好了

这个是可以实现的

1242876632

.版本 2  .子程序 _按钮3_被单击 .局部变量 文件名称, 文本型 .局部变量 文件目录, 文本型 .局部变量 文件数组, 文本型, , "0" .局部变量 i, 整数型  文件名称 ＝ 寻找文件 (取运行目录 () ＋ “\*F\素材\” ＋ “*.*”, ) .判断循环首 (文件名称 ≠ “”)     文件目录 ＝ 取运行目录 () ＋ “\*F\素材\”     文件目录 ＝ 文件目录 ＋ 文件名称     加入成员 (文件数组, 文件目录)     文件名称 ＝ 寻找文件 (, ) .判断循环尾 () .计次循环首 (取数组成员数 (文件数组), i)     .如果真 (i ＝ 1)         图12.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 2)         图20.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 3)         图21.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 4)         图13.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 5)         图15.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 6)         图22.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 7)         图23.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 8)         图24.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 9)         图16.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 10)         图25.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 11)         图26.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 12)         图28.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 13)         图29.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 14)         图30.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 15)         图37.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 16)         图38.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 17)         图39.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 18)         图47.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 19)         图48.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 20)         图31.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 21)         图32.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 22)         图33.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 23)         图40.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 24)         图41.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 25)         图42.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 26)         图49.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 27)         图50.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 28)         图51.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 29)         图34.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 30)         图35.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 31)         图36.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 32)         图43.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 33)         图44.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 34)         图45.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 35)         图52.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 36)         图53.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 37)         图57.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 38)         图58.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 39)         图59.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 40)         图60.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 41)         图61.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 42)         图67.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 43)         图68.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 44)         图69.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束     .如果真 (i ＝ 45)         图77.图片 ＝ 读入文件 (文件数组 [i])     .如果真结束   .计次循环尾 ()

FallingSnow

  

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

变量名	类 型	静态	数组	备 注
图片	整数型

新目录 ＝ “*F\” ＋ 到文本 (取年份 (取现行时间 ())) ＋ 到文本 (取月份 (取现行时间 ())) ＋ 到文本 (取日 (取现行时间 ())) ＋ 到文本 (取小时 (取现行时间 ())) ＋ 到文本 (取分钟 (取现行时间 ())) ＋ 到文本 (取秒 (取现行时间 ())) ＋ “\”
创建目录 (新目录)
标签1.标题 ＝ “正在输入 请稍后”
画板1.宽度 ＝ 到整数 (编辑框1.内容) × 3
画板1.高度 ＝ 到整数 (编辑框1.内容) × 3
画板1.清除 (, , , )
图片 ＝ 载入图片 (图1.图片)
画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图2.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图3.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图10.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图11.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图12.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图19.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图20.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图21.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
写到文件 (新目录 ＋ “图1.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))
' 第二组图片处理
画板1.清除 (, , , )
处理事件 ()
图片 ＝ 载入图片 (图4.图片)
画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图5.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图6.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图13.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图14.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图15.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图22.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图23.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图24.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
写到文件 (新目录 ＋ “图2.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))
' 第三组图片处理
画板1.清除 (, , , )
处理事件 ()
图片 ＝ 载入图片 (图7.图片)
画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图8.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图9.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图16.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图17.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图18.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图25.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图26.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图27.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
写到文件 (新目录 ＋ “图3.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))
' 第四组图片处理
画板1.清除 (, , , )
处理事件 ()
图片 ＝ 载入图片 (图28.图片)
画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图29.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图30.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图37.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图38.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图39.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图46.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图47.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图48.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
写到文件 (新目录 ＋ “图4.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))
' 第五组图片处理
画板1.清除 (, , , )
处理事件 ()
图片 ＝ 载入图片 (图31.图片)
画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图32.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图33.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图40.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图41.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图42.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图49.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图50.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图51.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
写到文件 (新目录 ＋ “图5.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))
' 第六组图片处理
画板1.清除 (, , , )
处理事件 ()
图片 ＝ 载入图片 (图34.图片)
画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图35.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图36.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图43.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图44.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图45.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图52.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图53.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图54.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
写到文件 (新目录 ＋ “图6.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))
' 第七组图片处理
画板1.清除 (, , , )
处理事件 ()
图片 ＝ 载入图片 (图55.图片)
画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图56.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图57.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图64.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图65.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图66.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图73.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图74.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图75.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
写到文件 (新目录 ＋ “图7.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))
' 第八组图片处理
画板1.清除 (, , , )
处理事件 ()
图片 ＝ 载入图片 (图58.图片)
画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图59.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图60.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图67.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图68.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图69.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图76.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图77.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图78.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
写到文件 (新目录 ＋ “图8.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))
' 第九组图片处理
画板1.清除 (, , , )
处理事件 ()
图片 ＝ 载入图片 (图61.图片)
画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图62.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图63.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图70.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图71.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图72.图片)
画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入图片 (图79.图片)
画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)
图片 ＝ 载入

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

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 图片, 整数型<br /> <br /> 新目录 ＝ “*F\” ＋ 到文本 (取年份 (取现行时间 ())) ＋ 到文本 (取月份 (取现行时间 ())) ＋ 到文本 (取日 (取现行时间 ())) ＋ 到文本 (取小时 (取现行时间 ())) ＋ 到文本 (取分钟 (取现行时间 ())) ＋ 到文本 (取秒 (取现行时间 ())) ＋ “\”<br /> 创建目录 (新目录)<br /> 标签1.标题 ＝ “正在输入 请稍后”<br /> 画板1.宽度 ＝ 到整数 (编辑框1.内容) × 3<br /> 画板1.高度 ＝ 到整数 (编辑框1.内容) × 3<br /> 画板1.清除 (, , , )<br /> 图片 ＝ 载入图片 (图1.图片)<br /> 画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图2.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图3.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图10.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图11.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图12.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图19.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图20.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图21.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> 写到文件 (新目录 ＋ “图1.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))<br /> ' 第二组图片处理<br /> 画板1.清除 (, , , )<br /> 处理事件 ()<br /> 图片 ＝ 载入图片 (图4.图片)<br /> 画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图5.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图6.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图13.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图14.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图15.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图22.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图23.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图24.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> 写到文件 (新目录 ＋ “图2.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))<br /> <br /> ' 第三组图片处理<br /> 画板1.清除 (, , , )<br /> 处理事件 ()<br /> 图片 ＝ 载入图片 (图7.图片)<br /> 画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图8.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图9.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图16.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图17.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图18.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图25.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图26.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图27.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> 写到文件 (新目录 ＋ “图3.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))<br /> <br /> ' 第四组图片处理<br /> 画板1.清除 (, , , )<br /> 处理事件 ()<br /> 图片 ＝ 载入图片 (图28.图片)<br /> 画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图29.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图30.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图37.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图38.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图39.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图46.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图47.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图48.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> 写到文件 (新目录 ＋ “图4.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))<br /> <br /> ' 第五组图片处理<br /> 画板1.清除 (, , , )<br /> 处理事件 ()<br /> 图片 ＝ 载入图片 (图31.图片)<br /> 画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图32.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图33.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图40.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图41.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图42.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图49.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图50.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图51.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> 写到文件 (新目录 ＋ “图5.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))<br /> <br /> ' 第六组图片处理<br /> 画板1.清除 (, , , )<br /> 处理事件 ()<br /> 图片 ＝ 载入图片 (图34.图片)<br /> 画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图35.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图36.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图43.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图44.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图45.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图52.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图53.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图54.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> 写到文件 (新目录 ＋ “图6.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))<br /> <br /> ' 第七组图片处理<br /> 画板1.清除 (, , , )<br /> 处理事件 ()<br /> 图片 ＝ 载入图片 (图55.图片)<br /> 画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图56.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图57.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图64.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图65.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图66.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图73.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图74.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图75.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> 写到文件 (新目录 ＋ “图7.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))<br /> <br /> ' 第八组图片处理<br /> 画板1.清除 (, , , )<br /> 处理事件 ()<br /> 图片 ＝ 载入图片 (图58.图片)<br /> 画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图59.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图60.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图67.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图68.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图69.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图76.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图77.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图78.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> 写到文件 (新目录 ＋ “图8.jpg”, 画板1.取图片 (画板1.宽度, 画板1.高度))<br /> <br /> ' 第九组图片处理<br /> 画板1.清除 (, , , )<br /> 处理事件 ()<br /> 图片 ＝ 载入图片 (图61.图片)<br /> 画板1.画图片 (图片, 0, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图62.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图63.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图70.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图71.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图72.图片)<br /> 画板1.画图片 (图片, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入图片 (图79.图片)<br /> 画板1.画图片 (图片, 0, 到整数 (编辑框1.内容) × 2, 到整数 (编辑框1.内容), 到整数 (编辑框1.内容), 1)<br /> <br /> 图片 ＝ 载入

FallingSnow

不错，代码量惊人的多

Xw‘小威

我还想着是算法呢。原来是一个一个的赋值丫

yu013250

动态图如何发的

yuguoas666

这个可以

jianghua878

感谢楼主分享