以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]生成二维码大小设置无效  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127243)

--  作者:81538475
--  发布时间: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")

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


--  作者:有点甜
--  发布时间: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")