易语言自带打印组件，打印图片

神一样的程序猿

求个例子
没研究明白自带打印机组件怎么打印图片（应该说是复印机）能正常打印A4纸上就行

在线等~~~~~

阿顺

  

10个画板
4个按钮
1个通用对话框
1个打印机
3个程序集变量
2个局部变量

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
图片号	整数型	0
画板	画板	0
i	整数型

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

通用对话框1.初始目录 ＝ “C:\Users\Public\Pictures\Sample Pictures”
加入成员 (画板, 画板1)
加入成员 (画板, 画板2)
加入成员 (画板, 画板3)
加入成员 (画板, 画板4)
加入成员 (画板, 画板5)
加入成员 (画板, 画板6)
加入成员 (画板, 画板7)
加入成员 (画板, 画板8)
加入成员 (画板, 画板9)
加入成员 (画板, 画板10)

子程序名	返回值类型	公开	备 注
_单个添加_被单击

如果真 (通用对话框1.打开 ())
如果 (取数组成员数 (图片号) ＜ 10)
加入成员 (图片号, 载入图片 (通用对话框1.文件名))



如果 (信息框 (“画板成员已足10个,是否清除全部内容？”, 4, , ) ＝ 5)
清除数组 (图片号)
调试输出 (“清除成功！”)



加入成员 (图片号, 载入图片 (通用对话框1.文件名))


调试输出 (“添加” ＋ 通用对话框1.文件名 ＋ “成功！”)

子程序名	返回值类型	公开	备 注
_批量添加_被单击

变量名	类 型	静态	数组	备 注
文件夹	文本型
文件名	文本型

文件夹 ＝ 浏览文件夹 (“选择文件夹”, 真) ＋ “\”
如果真 (文件夹 ≠ “”)
寻找文件 (文件夹 ＋ “*.jpg*”, )
循环判断首 ()
文件名 ＝ 寻找文件 (, )
如果真 (文件名 ≠ “”)
加入成员 (图片号, 载入图片 (文件夹 ＋ 文件名))
调试输出 (“添加” ＋ 文件夹 ＋ 文件名 ＋ “成功！”)

循环判断尾 (文件名 ≠ “”)

子程序名	返回值类型	公开	备 注
_预览_被单击

如果 (取数组成员数 (图片号) ＝ 0)
调试输出 (“没有选择文件！”)



计次循环首 (取数组成员数 (图片号), i)
画板 [i].画图片 (图片号 [i], 0, 0, 画板 [i].宽度, 画板 [i].高度, )
如果真 (i ＝ 10)
跳出循环 ()

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_打印_被单击

打印机.开始打印 (假, 假, #A4纸, 0, , )
调试输出 (“开始打印！”)
计次循环首 (取数组成员数 (图片号), i)
打印机.画图片 (图片号 [i], 0, 0, 打印机.打印区宽度, 打印机.打印区高度, )
打印机.换页 ()
计次循环尾 ()
打印机.结束打印 ()
调试输出 (“打印结束！”)

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

10个画板<br /> <br /> 4个按钮<br /> <br /> 1个通用对话框<br /> <br /> 1个打印机<br /> <br /> 3个程序集变量<br /> <br /> 2个局部变量<br /> <br /> .版本 2<br /> <br /> .支持库 spec<br /> <br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .程序集变量 图片号, 整数型, , "0"<br /> <br /> .程序集变量 画板, 画板, , "0"<br /> <br /> .程序集变量 i, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 通用对话框1.初始目录 ＝ “C:\Users\Public\Pictures\Sample Pictures”<br /> <br /> 加入成员 (画板, 画板1)<br /> <br /> 加入成员 (画板, 画板2)<br /> <br /> 加入成员 (画板, 画板3)<br /> <br /> 加入成员 (画板, 画板4)<br /> <br /> 加入成员 (画板, 画板5)<br /> <br /> 加入成员 (画板, 画板6)<br /> <br /> 加入成员 (画板, 画板7)<br /> <br /> 加入成员 (画板, 画板8)<br /> <br /> 加入成员 (画板, 画板9)<br /> <br /> 加入成员 (画板, 画板10)<br /> <br /> .子程序 _单个添加_被单击<br /> <br /> .如果真 (通用对话框1.打开 ())<br /> <br /> .如果 (取数组成员数 (图片号) ＜ 10)<br /> <br /> 加入成员 (图片号, 载入图片 (通用对话框1.文件名))<br /> <br /> .否则<br /> <br /> .如果 (信息框 (“画板成员已足10个,是否清除全部内容？”, 4, , ) ＝ 5)<br /> <br /> 清除数组 (图片号)<br /> <br /> 调试输出 (“清除成功！”)<br /> <br /> .否则<br /> <br /> 加入成员 (图片号, 载入图片 (通用对话框1.文件名))<br /> <br /> .如果结束<br /> <br /> .如果结束<br /> <br /> 调试输出 (“添加” ＋ 通用对话框1.文件名 ＋ “成功！”)<br /> <br /> .如果真结束<br /> <br /> .子程序 _批量添加_被单击<br /> <br /> .局部变量 文件夹, 文本型<br /> <br /> .局部变量 文件名, 文本型<br /> <br /> 文件夹 ＝ 浏览文件夹 (“选择文件夹”, 真) ＋ “\”<br /> <br /> .如果真 (文件夹 ≠ “”)<br /> <br /> 寻找文件 (文件夹 ＋ “*.jpg*”, )<br /> <br /> .循环判断首 ()<br /> <br /> 文件名 ＝ 寻找文件 (, )<br /> <br /> .如果真 (文件名 ≠ “”)<br /> <br /> 加入成员 (图片号, 载入图片 (文件夹 ＋ 文件名))<br /> <br /> 调试输出 (“添加” ＋ 文件夹 ＋ 文件名 ＋ “成功！”)<br /> <br /> .如果真结束<br /> <br /> .循环判断尾 (文件名 ≠ “”)<br /> <br /> .如果真结束<br /> <br /> .子程序 _预览_被单击<br /> <br /> .如果 (取数组成员数 (图片号) ＝ 0)<br /> <br /> 调试输出 (“没有选择文件！”)<br /> <br /> .否则<br /> <br /> .计次循环首 (取数组成员数 (图片号), i)<br /> <br /> 画板 <i>.画图片 (图片号 <i>, 0, 0, 画板 <i>.宽度, 画板 <i>.高度, )<br /> <br /> .如果真 (i ＝ 10)<br /> <br /> 跳出循环 ()<br /> <br /> .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .如果结束<br /> <br /> .子程序 _打印_被单击<br /> <br /> 打印机.开始打印 (假, 假, #A4纸, 0, , )<br /> <br /> 调试输出 (“开始打印！”)<br /> <br /> .计次循环首 (取数组成员数 (图片号), i)<br /> <br /> 打印机.画图片 (图片号 <i>, 0, 0, 打印机.打印区宽度, 打印机.打印区高度, )<br /> <br /> 打印机.换页 ()<br /> <br /> .计次循环尾 ()<br /> <br /> 打印机.结束打印 ()<br /> <br /> 调试输出 (“打印结束！”)

阿顺

神一样的程序猿

阿顺 发表于 2021-3-9 16:02

是图片哦 老哥哥

神一样的程序猿

阿顺 发表于 2021-3-9 15:47
[e=0]10个画板

4个按钮

可以发一下源码吗 老哥

阿顺

神一样的程序猿 发表于 2021-3-9 16:04
可以发一下源码吗 老哥

删除了，你代码复制过去，自己添加组件就完事了