上一个二维码生成图片工具

№▁▃风筝﹋

这个工具是在论坛中某位前辈的附件中改进过来的，原有的二维码可以在窗体控件中清晰显示，但是不能直接显示到表格中，原有的方法是用SavePicture先将二维码保存为图片，再插入到表格中，但这样会变得很模糊，原因可能是保存的图片太小，这里是将控件中显示的二维码截图保存为图片，这样图片够大，插入到工作表就不会模糊了。代码生成，没用到二维码控件，支持中文。传一个分享给有需要的，也当备份，向前辈们致敬！

№▁▃风筝﹋

二维码参数没搞明白具体是什么参数，试过网址，还支持网址链接直接跳转

fxl447098457

生成的二维码图片的确是很清晰啊。就是截图到了窗体边缘部分。。

№▁▃风筝﹋

fxl447098457 发表于 2016-12-13 22:23
生成的二维码图片的确是很清晰啊。就是截图到了窗体边缘部分。。

所以上面多了图像设置，向右偏移、向下偏移，和边框收缩。边框收缩可以缩小白边宽度。

任浪漫

№▁▃风筝﹋ 发表于 2016-12-13 22:27
所以上面多了图像设置，向右偏移、向下偏移，和边框收缩。边框收缩可以缩小白边宽度。

做的很好，请问是怎么截取窗体image控件截图的代码能贴出来吗？

二维码第一参数是版本号，与尺寸相关，正方形边长=版本*4+17，第二参数是容错率，第四参数是编码方式，第三参数不知有什么作用

№▁▃风筝﹋

任浪漫 发表于 2016-12-13 23:50
做的很好，请问是怎么截取窗体image控件截图的代码能贴出来吗？

二维码第一参数是版本号，与尺寸相 ...

用的api截图，其实就是截取屏幕，先获得当前窗体句柄，然后获得窗体在屏幕中的座标，结合image控在窗体中的位置，计算出控件在屏幕中的大致位置，然后截取控件区域。因为窗体坐标计量方式和屏幕座标不一样，但是也有一定的比例，大致计算一下也差不多，另外，屏幕分辨率设置不一样的时候也会有偏差，所以加上额外设置的偏移，就可以比较精确的截图了。致于代码附件里都在，我也都是网上搜索的

任浪漫

№▁▃风筝﹋ 发表于 2016-12-14 01:21
用的api截图，其实就是截取屏幕，先获得当前窗体句柄，然后获得窗体在屏幕中的座标，结合image控在窗体中 ...

你有空做那个装箱系统吗？我做了系统。但是加入了你的屏幕截图后有些代码有些冗余，能抽空修改下吗？ 扫描装箱页面X-V2.4.5.1Beta3版.rar (369.77 KB, 下载次数: 83)

2016-12-14 20:33 上传

点击文件名下载附件

Excel 求助 开发扫描装箱系统，小女子在此谢谢了-ExcelVBA程序开发-ExcelHome技术论坛 -  http://club.excelhome.net/forum. ... page%3D1#pid8923996

原贴75楼已做了修改，可以用另一种方法生成较清晰二维码截图，不用调整尺寸

№▁▃风筝﹋

任浪漫 发表于 2016-12-14 20:27
你有空做那个装箱系统吗？我做了系统。但是加入了你的屏幕截图后有些代码有些冗余，能抽空修改下吗？

...

明天我试一下看，我会的都比较粗浅，你们的代码我怕搞不懂

任浪漫

№▁▃风筝﹋ 发表于 2016-12-14 20:55
明天我试一下看，我会的都比较粗浅，你们的代码我怕搞不懂

我没时间玩电脑慢慢完善这个，身体不是很适合玩电脑，你就看看吧，把不需要的代码删除下

Excel 求助 开发扫描装箱系统，小女子在此谢谢了-ExcelVBA程序开发-ExcelHome技术论坛 -  http://club.excelhome.net/forum. ... page%3D1#pid8923996
  75楼
2.5.0版本可以实现整半箱扫码装箱，整箱提示，半箱打印装箱单，半箱收容件数由备份表半箱二维码获得，二维码图片比2.4.5清晰，不是用屏幕截图获得

dingboy_VBA

这个很厉害，是二维码生成的源码。