我正在使用SSRS中的barcodelib.dll生成Code 128条码。我当前的代码定义了宽度和高度。当字符数不同时,对宽度和高度进行硬编码不能正确缩放条形码。我可以添加到报表中的代码会根据转换函数给出的字符动态调整大小吗?
Public Function ConvertItem(Text As String) As Byte()
Dim b As System.Drawing.Bitmap
' Dim bar As New BarcodeLib.Barcode
bar.Alignment = BarcodeLib.AlignmentPositions.LEFT
bar.IncludeLabel = False
bar.RotateFlipType = Drawing.RotateFlipType.RotateNoneFlipNone
b = bar.Encode(BarcodeLib.TYPE.CODE128, Text, 400, 30)
Dim bitmapData As Byte() = Nothing
Using ms As New System.IO.MemoryStream()
b.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
bitmapData = ms.ToArray()
End Using
Return bitmapData
End Function