以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  二维码的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63780)

--  作者:qianqian1530
--  发布时间:2015/1/28 15:42:00
--  二维码的问题
用代码生成 二维码的时候 , 发现 保存的图片 尺寸不固定 有没有办法让她固定呢??


Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.QuietZoneWidth = 2
Bar.QRCodeByteEncodingName = "utf-8"
For Each r As Row In Tables("A_数据_Yahooショッピング").Rows
    Bar.Code = "http://teststr.shopping.yahoo.co.jp/tkmall/" & r("code") & ".html"
    Bar.SaveImage(ProjectPath & "Data\\Twocode\\" & r("code") & ".png",100)
Next


 基本是两个尺寸 一个是  171*159  和  154*142  

我想要 154*142   统一这个尺寸的
[此贴子已经被作者于2015-1-28 15:43:58编辑过]

--  作者:有点甜
--  发布时间:2015/1/28 15:49:00
--  

 慢慢调呗

 

Bar.QRCodeModuleSize = 1