主题：【待解决】有没有办法在表格内显示出条形码图形EAN13

'飞常简单,一点点代码就够了,代码如下:

'全局代码-------------------------------------------------

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