Foxtable(狐表)用户栏目专家坐堂 → [求助]生成二维码大小设置无效


  共有105人关注过本帖树形打印复制链接

主题:[求助]生成二维码大小设置无效

帅哥哟,离线,有人找我吗?
81538475
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:466 积分:3838 威望:0 精华:0 注册:2018/1/20 12:40:00
[求助]生成二维码大小设置无效  发帖心情 Post By:2018/11/9 9:57:00 [只看该作者]

Bar.Symbology = Barpro.Symbology.QRCode
       
        Bar.Code =t.Rows(j)("资产编号")
        Bar.QuietZoneWidth = 1
        Bar.QRCodeModuleSize = 2

        Bar.SaveImage("d:\二维码\资产\" & t.Rows(j)("使用人") & ".jpg")

这里不管设置多少。出来的二维码都很小,是什么原因呢。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/9 11:45:00 [只看该作者]

我测试这个代码没问题

 

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123456"
'Bar.QuietZoneWidth = 10
Bar.CodeAlignment = Barpro.Alignment.BelowLeft
Bar.QRCodeModuleSize = 3
Bar.SaveImage("d:\test.wmf")


 回到顶部