以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于BarCode生成的文本宽度  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=86217)
--  作者：jspta
--  发布时间：2016/6/13 10:54:00
--  [求助]关于BarCode生成的文本宽度
barcode生成的文本宽度不能超过下方barcode的长度，这个要如何解决那？
现在想实现，Text这个属性生成的文字长度大于下方barcode长度，以便使条码在打印的时候比较短文字比较大。
这个如何解决？
--  作者：大红袍
--  发布时间：2016/6/13 11:01:00
--  

 想怎么调整都可以，宽度、间距等。参考

 

http://www.foxtable.com/help/topics/2079.htm

 
--  作者：jspta
--  发布时间：2016/6/13 11:05:00
--  
以下是引用大红袍在2016/6/13 11:01:00的发言：

 想怎么调整都可以，宽度、间距等。参考

 

http://www.foxtable.com/help/topics/2079.htm

 

这些属性解决不了这个问题。

你可以试试，Text每行最长显示字符不能大于Barcode长度。现在我想突破这个限制。
--  作者：大红袍
--  发布时间：2016/6/13 11:24:00
--  

 方法一：条码不生成文字，然后把文字和条码合并成一个图片。

 

 方法二：文字肯定不能超过条码宽度的，如果不够显示，你可以调整条码的宽度拉长条码。
--  作者：jspta
--  发布时间：2016/6/13 11:31:00
--  
如何用代码合并成一个图片？
条码不能太长，否则不容易进行扫描。
--  作者：大红袍
--  发布时间：2016/6/13 11:32:00
--  

 参考

 

http://www.foxtable.com/help/topics/1482.htm

 
--  作者：jspta
--  发布时间：2016/6/13 12:15:00
--  
保存的图片的时候，背景是黑色如何解决？
--  作者：大红袍
--  发布时间：2016/6/13 12:18:00
--  

你代码怎么写？没必要用到 Painter1 的。如果你用画图板，可以这样写设置背景

 

控件.Graphics.clear(Color.White)
--  作者：大红袍
--  发布时间：2016/6/13 12:22:00
--  

直接这样写

 

Dim bmp As new Bitmap(100, 50)
Dim g = Graphics.FromImage(bmp)

 

Dim fnt As New Font("宋体",20)
Dim msg As String = "测试"
g.DrawString(msg,fnt,Brushes.Red,0,0)

 

bmp.save("d:\\test2.jpg")