Использование кода VB.Net для создания штрих-кода в SSRS

Question

Я пытаюсь создать штрих-код для включения в мой отчет. Я использую это руководство, чтобы сделать этот код 128 штрих-кода в SSRS . У меня мало опыта в VB.Net, я получаю сообщение об ошибке в своем пользовательском коде в строке 7, в котором говорится, что Имя 'objGraphic' не объявлено . Я также открыт для других альтернатив реализации штрих-кода в моем отчете, желательно бесплатно.

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