使用 VB.Net 代码在 SSRS 中创建条码答案

【问题标题】：Using VB.Net code to create a barcode in SSRS使用 VB.Net 代码在 SSRS 中创建条码
【发布时间】：2019-06-28 15:16:39
【问题描述】：

我正在尝试设计一个条形码以实施到我的报告中。我正在使用本指南来执行此操作 Code 128 Barcode in SSRS 。我在 VB.Net 方面的经验很少，我在第 7 行的自定义代码中收到一个错误，提示 Name 'objGraphic' is not declared。我也愿意在我的报告中实施条形码的其他替代方案，最好是免费的。

Function PaintBox(ByVal level As String) As System.Drawing.Bitmap
    Dim objBitmap As System.Drawing.Bitmap

objBitmap = New System.Drawing.Bitmap(3,3)

GenCode128.Code128Rendering.MakeBarcodeImage(level, 1, True)

objGraphic.DrawLine(System.Drawing.Pens.Gray,0,0,width,height)

Return objBitmap End Function

Function PaintBoxBmp(ByVal level As String) As Byte()

Dim bmpImage As System.Drawing.Bitmap

bmpImage = PaintBox(level)

Dim stream As System.IO.MemoryStream = New IO.MemoryStream

Dim bitmapBytes As Byte() bmpImage.Save(stream, System.Drawing.Imaging.ImageFormat.Bmp)

bitmapBytes = stream.ToArray

stream.Close()

bmpImage.Dispose()

Return bitmapBytes

End Function

【问题讨论】：

这个错误几乎说明了一切——你没有声明一个名为objGraphic的变量。就个人而言，这似乎是太多的工作。您是否考虑过添加barcode font？
@Steve-o169 哇，我在谷歌上几个小时都没有遇到过这个问题。会试试这个。
@Steve-o169 所做的只是以字体显示条形码，但实际上并没有用。
可能是您使用的字体？我的公司使用条形码字体，它适用于我们的目的。有什么不好的地方？

标签： vb.net reporting-services ssrs-2008-r2

【解决方案1】：

    Function PaintBox(ByVal level As String) As System.Drawing.Bitmap 

Dim objBitmap As System.Drawing.Bitmap 

objBitmap = GenCode128.Code128Rendering.MakeBarcodeImage(level, 1, True)

 Return objBitmap 

End Function 

Function PaintBoxBmp(ByVal level As String) As Byte() 

Dim bmpImage As System.Drawing.Bitmap

 bmpImage = PaintBox(level)

 Dim stream As System.IO.MemoryStream = New IO.MemoryStream 
Dim bitmapBytes As Byte() 
bmpImage.Save(stream, System.Drawing.Imaging.ImageFormat.Bmp)

 bitmapBytes = stream.ToArray 
stream.Close()
 bmpImage.Dispose() 
Return bitmapBytes 

End Function

【讨论】：