以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  在窗口生成条形码时，能否在条形码下方增加其它字段进去？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90866)

--  作者：猫小猪 --  发布时间：2016/9/23 11:25:00 --  在窗口生成条形码时，能否在条形码下方增加其它字段进去？ 生成条形码的代码如下： Dim v As String = Tables("入库").Current("条形码")  Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code128 Bar.Code = v    Bar.BarHeight = 10 Bar.QuietZoneWidth = 2 Bar.CodeAlignment = Barpro.Alignment.AboveCenter Bar.TextAlignment = Barpro.Alignment.BelowCenter MessageBox.Show(v & ".png") Bar.SaveImage("F:\\条形码测试\\" & v & ".png") 生成的图片： 能否自动生成下面这种条码的情况吗？  就是在条形码下方，增加“入库表”中，字段“客户” 、“款号”。如图示： 此主题相关图片如下：2.jpg 此主题相关图片如下：0020240100700009.png

--  作者：猫小猪 --  发布时间：2016/9/23 11:26:00 --   上传的图片顺序有点问题， 最下面的图片是目前代码自动生成的。   能否生上第一张图片的形式？

--  作者：有点蓝 --  发布时间：2016/9/23 11:40:00 --   Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code39 Bar.Code = "123456" Bar.QuietZoneWidth = 2 Bar.HumanReadableText = "123456" & vbcrlf & "hhhhhh" Bar.SaveImage("f:\\111.png")

--  作者：猫小猪 --  发布时间：2016/9/23 15:02:00 --   解决了，谢谢

--  作者：xietan417 --  发布时间：2016/9/24 11:03:00 --   你这个条码打印成这样，枪能扫？

--  作者：猫小猪 --  发布时间：2016/9/26 11:53:00 --   可以扫描啊， 我用的是唛头贴纸打印的。

--  作者：猫小猪 --  发布时间：2016/9/26 11:54:00 --   主要是不想手工去制作条形码了，直接用代码生成了，方便以后别人操作。