Foxtable(狐表)用户栏目专家坐堂 → 二维码的生成


  共有3814人关注过本帖平板打印复制链接

主题:二维码的生成

美女呀,离线,留言给我吧!
朱女士
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:453 积分:3683 威望:0 精华:0 注册:2020/2/8 11:14:00
二维码的生成  发帖心情 Post By:2022/11/16 11:42:00 [只看该作者]

老师您好!
   我想用数据表的2个-3个字段组合生成二维码,我想问的问题是:1、能否用汉字字段生成,2、在代码中怎么组合2个及以上字段。3、我存储文件时文件名,用字段内容存储。我写得代码有问题。请指教,谢谢!带颜色的三句。
    Dim doc As New PrintDoc
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Dim fn As String
Dim gx As string
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("工序表").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)
    gx = r("工序代码")
    fn = "d:\工序二维码\mycode &gx.jpg"
    MessageBox.Show(fn)
    Bar.SaveImage("fn")
Next
Doc.Preview()

 

 回到顶部