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

Question

我正在尝试设计一个条形码以应用到我的报告中。我正在使用本指南来执行此操作 Code 128 Barcode in SSRS 。我在 VB.Net 方面经验不足，我在第 7 行的自定义代码中收到一条错误消息，显示 Name 'objGraphic' 未声明 [​​=16=]。我也愿意接受在我的报告中实施条形码的其他替代方案，最好是免费的。

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

Answer 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