-- 作者:飞
-- 发布时间: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-24 17:21:12编辑过]
|