Foxtable(狐表)用户栏目专家坐堂 → [求助]自动转换条码


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

主题:[求助]自动转换条码

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


加好友 发短信
等级:一尾狐 帖子:422 积分:3430 威望:0 精华:0 注册:2015/5/20 8:44:00
[求助]自动转换条码  发帖心情 Post By:2015/6/10 14:19:00 [只看该作者]

能否将如下“123456”替换为字段里的内容,输出条码
比如字段抬头为:订单号,内容为147258,执行代码后自动输出147258的条码

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123456"
Bar.QuietZoneWidth = 2
Bar.SaveImage("文件名")

 回到顶部