二维码固定高度和宽度吗？比如30*40 单位毫米。请问怎么设置？
Dim URL As String = "http://10.1.1.1/cgi-bin/luci/mini?pwd=" & dr("口令") & "&mac=" & dr("后四位")
dr("URL") = URL
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = dr("URL")
Bar.QuietZoneWidth = 2
Bar.CodeAlignment = Barpro.Alignment.AboveCenter
Bar.Text = "手机接入无线BDCOM_" & dr("后四位").ToUpper() & vbcrlf & "浏览器扫描二维码,开始配置"
Bar.TextAlignment = Barpro.Alignment.BelowCenter
Bar.TextFont = New Font("微软雅黑",7)
Bar.SaveImage(file & dr("MAC") & ".bmp")
dr.save
加好友 
发短信
Post By：2018/5/8 11:18:00 [只看该作者]
