Foxtable(狐表)用户栏目专家坐堂 → 同样的二维码代码,内容不同时大小不一样


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

主题:同样的二维码代码,内容不同时大小不一样

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


加好友 发短信
等级:八尾狐 帖子:1897 积分:16823 威望:0 精华:0 注册:2014/7/29 19:09:00
同样的二维码代码,内容不同时大小不一样  发帖心情 Post By:2023/5/20 10:09:00 [只看该作者]


此主题相关图片如下:二维码.png
按此在新窗口浏览图片

Dim ra2 As New prt.RenderArea

ra2 = rt.Cells(rt.Rows.Count - 1, 2).Area '引用单元格的容器

Dim rg As prt.RenderGraphics

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

ra2.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置容器中对象的排列方式

Bar.Code = cr("客户料号") & "*" & CStr(rq).Replace("-", "") & "JBL*" & CStr(rq).Replace("-", "/")

Bar.CodeAlignment = Barpro.Alignment.BelowLeft

Bar.QRCodeModuleSize = 0.60

Bar.QuietZoneWidth = 1 '静区宽度(两边空白)

rg = New prt.RenderGraphics

bar.DrawOnCanvas(rg.Graphics, 0, 0, 1)

rg.Style.Spacing.All = 1

ra2.Children.Add(rg)

如上图,同样的代码客户料号不同时输出的二维码大小不一样,左边那个就不全了,
如何才能不管内容如何,生成的二维码大小都是一样的?
谢谢!


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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/20 10:42:00 [只看该作者]

正常现象,至于为什么,百度了:https://www.baidu.com/s?wd=%E4%BA%8C%E7%BB%B4%E7%A0%81%20%E5%A4%A7%E5%B0%8F%20%E5%86%85%E5%AE%B9

https://it.sohu.com/a/657698662_100202324

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


加好友 发短信
等级:八尾狐 帖子:1897 积分:16823 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2023/5/20 11:19:00 [只看该作者]

那不同的内容下可以固定输出相同尺寸大小的二维码吗?

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/20 11:26:00 [只看该作者]

尺寸大就可以,小就不一定了

 回到顶部