以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  在窗口设置一个按键生成条形码的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90815)

--  作者：猫小猪 --  发布时间：2016/9/22 10:11:00 --  在窗口设置一个按键生成条形码的问题 Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code128 Bar.Code = "0123456789"   －－－这里的条形码数值能否自动在当前窗口中“条形码”在字段中获取？  Bar.BarHeight = 7 Bar.QuietZoneWidth = 2 Bar.SaveImage("文件名") －－－－保存时，也按获取到值为文件名保存？

--  作者：狐狸爸爸 --  发布时间：2016/9/22 12:34:00 --   Dim v as string = tables("表名").Current("条码列名")  Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code128 Bar.Code = v   －－－这里的条形码数值能否自动在当前窗口中“条形码”在字段中获取？  Bar.BarHeight = 7 Bar.QuietZoneWidth = 2 Bar.SaveImage(v & ".png") －－－－保存时，也按获取到值为文件名保存？

--  作者：猫小猪 --  发布时间：2016/9/22 13:47:00 --   代码保存时，报图片的格式PNG没有定义，这个文件名应该怎么定义呢？ Dim v As String = Tables("入库").Current("条形码")  Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code128 Bar.Code = v    Bar.BarHeight = 7 Bar.QuietZoneWidth = 2 Bar.SaveImage("F:\\条形码测试\\v & ".png" ")

--  作者：有点蓝 --  发布时间：2016/9/22 14:40:00 --   Bar.SaveImage("F:\\条形码测试\\" & v & ".png")

--  作者：猫小猪 --  发布时间：2016/9/22 14:48:00 --   解决了，谢谢。 我要抓紧时间好好学习一下了。