以文本方式查看主题

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

--  作者:nxqtxwz
--  发布时间:2018/3/16 13:15:00
--  二维码

如何让说明文字在二维码下面显示出来呢,请老师帮我改改。

 

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("第一列")
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 3
    Doc.Body.Children.Add(rg)

Bar.DisplayCode = True
Bar.DisplayChecksum = True
Bar.DisplayStartStopChar = True
Bar.QuietZoneWidth = 2
Bar.CodeAlignment = Barpro.Alignment.AboveCenter
Bar.Text = "第一列"
Bar.TextAlignment = Barpro.Alignment.BelowCenter

Next
Doc.Preview()


--  作者:有点甜
--  发布时间:2018/3/16 14:51:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2092.htm

 

http://www.foxtable.com/webhelp/scr/2076.htm