- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 【待解决】有没有办法在表格内显示出条形码图形EAN13 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=22819)
-- 发布时间：2012/8/24 15:08:00
-- 【待解决】有没有办法在表格内显示出条形码图形EAN13
比如货品编号列 是一串数字，我想显示为条形码的样子。
-- 发布时间：2012/8/24 15:11:00
--
把"条形码"转换成图形,就可以了
请参看, 在表格中显示图形的相关内容
-- 发布时间：2012/8/24 15:28:00
--
你不会让我先把 所有的 货品串号 先全手工转换为图形吧，再一个个插入图片到格子里面吧
我希望这个过程是自动的。
-- 发布时间：2012/8/24 17:14:00
--
\'飞常简单,一点点代码就够了,代码如下:
\'全局代码-------------------------------------------------
Public BarCodeCtl As WinForm.BarCode
\'项目AfterOpenProject事件代码----------------------------
BarCodeCtl = New BarCodeBuilder
BarCodeCtl.Symbology = Barpro.Symbology.Code39
BarCodeCtl.DisplayChecksum = False
\'表的DrawCell事件代码------------------------------------
If e.Col.Name = "条码" Then
If Not e.Row.IsNull("条码") Then
BarCodeCtl.Code = e.Text
\'e.Graphics.DrawImage(BarCodeCtl.GetImage,e.X + 1,e.Y + 1,e.Width - 2,e.Height - 2) \'图片适应单元格大小
e.Graphics.DrawImage(BarCodeCtl.GetImage,e.X + 1,e.Y + 1) \'如果觉得适应单元格大小时图片比较模糊就用这一句
e.Text = ""
End If
End If
此主题相关图片如下：qq截图20120824172036.png
-- 发布时间：2012/8/25 8:03:00
--
收藏，谢谢！
-- 发布时间：2012/8/25 8:38:00
--
收藏着
-- 发布时间：2012/8/25 9:05:00
--
谢谢 飞 你是真的高手
-- 发布时间：2012/8/25 16:18:00
--
此主题相关图片如下：未命名.jpg
怎么报错了 我用的条码格式是 ean13
-- 发布时间：2012/8/25 16:20:00
--
EAN13通用商品条码要怎么设置呢？
-- 发布时间：2012/8/26 10:19:00
--
顶