以文本方式查看主题

-  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=77484)
--  作者：zhuzhi
--  发布时间：2015/11/19 9:55:00
--  [求助]为何制作出来的条码不能识别汉字？
请问各位老师，我用第一列数字，第二列汉字的组合，用以下代码制作出了条码
Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    bar.Code = r("第一列")&r("第二列")
    Bar.HumanReadableText = r("第一列")&r("第二列")
    Bar.BottomMargin = 1
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 1.5
    Doc.Body.Children.Add(rg)
Next
Doc.Preview()

但是非常遗憾的是，我用支付宝的扫码去扫这个条码，汉字区域显示的是乱码
请问我该怎么做呢？是不是代码哪里写错了？

谢谢！
--  作者：大红袍
--  发布时间：2015/11/19 10:43:00
--  

加上编码

 

Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("表A").Rows
    Bar.QRCodeByteEncodingName = "utf-8"
    bar.Code = r("第一列")&r("第二列")
    Bar.HumanReadableText = r("第一列") & r("第二列")
    Bar.BottomMargin = 1
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 1.5
    Doc.Body.Children.Add(rg)
Next
Doc.Preview()
--  作者：zhuzhi
--  发布时间：2015/11/30 10:16:00
--  
谢谢老师！这样真的很有趣，很方便。
我还想请问一下：可以批量生成二维码文件存档，每人一个，让excel报表引用吗？

十分感谢！
--  作者：大红袍
--  发布时间：2015/11/30 11:16:00
--  

参考 http://www.foxtable.com/help/topics/1925.htm