本文参考来源

工作中需要用到SSRS呈现标签

1、引用对应的字体（39、128）下载修改后缀名

2、添加code代码，对字符编码

 

Public Shared Function Code39(ByVal stringText As String) As Byte()        Dim result As Byte() = Nothing         Try            result = GenerateImage("Code 3 de 9", StringToBarcode39String(stringText))        Catch ex As Exception        End Try         Return result    End Function     Public Shared Function Code128(ByVal stringText As String) As Byte()        Dim result As Byte() = Nothing         Try            result = GenerateImage("Code 128", StringToBarcode128String(stringText))        Catch ex As Exception        End Try         Return result    End Function     Public Shared Function GenerateImage(ByVal fontName As String, ByVal stringText As String) As Byte()        Dim oGraphics As System.Drawing.Graphics        Dim barcodeSize As System.Drawing.SizeF        Dim ms As System.IO.MemoryStream         Using font As New System.Drawing.Font(New System.Drawing.FontFamily(fontName), 36)            Using tmpBitmap As New System.Drawing.Bitmap(1, 1, System.Drawing.Imaging.PixelFormat.Format32bppArgb)                oGraphics = System.Drawing.Graphics.FromImage(tmpBitmap)                oGraphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.SingleBitPerPixel                barcodeSize = oGraphics.MeasureString(stringText, font)                oGraphics.Dispose()            End Using             Using newBitmap As New System.Drawing.Bitmap(barcodeSize.Width, barcodeSize.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)                oGraphics = System.Drawing.Graphics.FromImage(newBitmap)                oGraphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.SingleBitPerPixel                 Using oSolidBrushWhite As New System.Drawing.SolidBrush(System.Drawing.Color.White)                    Using oSolidBrushBlack As New System.Drawing.SolidBrush(System.Drawing.Color.Black)                        oGraphics.FillRectangle(oSolidBrushWhite, New System.Drawing.Rectangle(0, 0, barcodeSize.Width, barcodeSize.Height))                        oGraphics.DrawString(stringText, font, oSolidBrushBlack, 0, 0)                    End Using                 End Using                 ms = New System.IO.MemoryStream()                newBitmap.Save(ms, System.Drawing.Imaging.ImageFormat.Png)            End Using        End Using         Return ms.ToArray()    End Function    Public Shared Function StringToBarcode128String(ByVal value As String) As String        ' Parameters : a string        ' Return     : a string which give the bar code when it is dispayed with CODE128.TTF font        '              : an empty string if the supplied parameter is no good        Dim charPos As Integer, minCharPos As Integer        Dim currentChar As Integer, checksum As Integer        Dim isTableB As Boolean = True, isValid As Boolean = True        Dim returnValue As String = String.Empty         If value.Length > 0 Then             ' Check for valid characters            For charCount As Integer = 0 To value.Length - 1                'currentChar = char.GetNumericValue(value, charPos);                currentChar = AscW(Char.Parse(value.Substring(charCount, 1)))                If Not (currentChar >= 32 AndAlso currentChar <= 126) Then                    isValid = False                    Exit For                End If            Next             ' Barcode is full of ascii characters, we can now process it            If isValid Then                charPos = 0                While charPos < value.Length                    If isTableB Then                        ' See if interesting to switch to table C                        ' yes for 4 digits at start or end, else if 6 digits                        If charPos = 0 OrElse charPos + 4 = value.Length Then                            minCharPos = 4                        Else                            minCharPos = 6                        End If                          minCharPos = IsNumber(value, charPos, minCharPos)                         If minCharPos < 0 Then                            ' Choice table C                            If charPos = 0 Then                                ' Starting with table C                                ' char.ConvertFromUtf32(210);                                returnValue = (ChrW(210)).ToString()                            Else                                ' Switch to table C                                returnValue = returnValue & (ChrW(204)).ToString()                            End If                            isTableB = False                        Else                            If charPos = 0 Then                                ' Starting with table B                                ' char.ConvertFromUtf32(209);                                returnValue = (ChrW(209)).ToString()                             End If                        End If                    End If                     If Not isTableB Then                        ' We are on table C, try to process 2 digits                        minCharPos = 2                        minCharPos = IsNumber(value, charPos, minCharPos)                        If minCharPos < 0 Then                            ' OK for 2 digits, process it                            currentChar = Integer.Parse(value.Substring(charPos, 2))                            currentChar = IIf(currentChar < 95, currentChar + 32, currentChar + 105) ''                            returnValue = returnValue & (ChrW(currentChar)).ToString()                            charPos += 2                        Else                            ' We haven't 2 digits, switch to table B                            returnValue = returnValue & (ChrW(205)).ToString()                            isTableB = True                        End If                    End If                    If isTableB Then                        ' Process 1 digit with table B                        returnValue = returnValue & value.Substring(charPos, 1)                        charPos += 1                    End If                End While                 ' Calculation of the checksum                checksum = 0                For [loop] As Integer = 0 To returnValue.Length - 1                    currentChar = AscW(Char.Parse(returnValue.Substring([loop], 1)))                    currentChar = IIf(currentChar < 127, currentChar - 32, currentChar - 105)                    If [loop] = 0 Then                        checksum = currentChar                    Else                        checksum = (checksum + ([loop] * currentChar)) Mod 103                    End If                Next                 ' Calculation of the checksum ASCII code                checksum = IIf(checksum < 95, checksum + 32, checksum + 105)                ' Add the checksum and the STOP                returnValue = returnValue & (ChrW(checksum)).ToString() & (ChrW(211)).ToString()            End If        End If         Return returnValue    End Function      Private Shared Function IsNumber(ByVal InputValue As String, ByVal CharPos As Integer, ByVal MinCharPos As Integer) As Integer        ' if the MinCharPos characters from CharPos are numeric, then MinCharPos = -1        MinCharPos -= 1        If CharPos + MinCharPos < InputValue.Length Then            While MinCharPos >= 0                If AscW(Char.Parse(InputValue.Substring(CharPos + MinCharPos, 1))) < 48 OrElse AscW(Char.Parse(InputValue.Substring(CharPos + MinCharPos, 1))) > 57 Then                    Exit While                End If                MinCharPos -= 1            End While        End If        Return MinCharPos    End Function     Public Shared Function StringToBarcode39String(ByVal value As String, Optional ByVal addChecksum As Boolean = False) As String        ' Parameters : a string        ' Return     : a string which give the bar code when it is dispayed with CODE128.TTF font        '              : an empty string if the supplied parameter is no good        Dim isValid As Boolean = True        Dim currentChar As Char        Dim returnValue As String = String.Empty        Dim checksum As Integer = 0        If value.Length > 0 Then             'Check for valid characters            For CharPos As Integer = 0 To value.Length - 1                currentChar = Char.Parse(value.Substring(CharPos, 1))                If Not ((currentChar >= "0"c AndAlso currentChar <= "9"c) OrElse (currentChar >= "A"c AndAlso currentChar <= "Z"c) OrElse currentChar = " "c OrElse currentChar = "-"c OrElse currentChar = "."c OrElse currentChar = "$"c OrElse currentChar = "/"c OrElse currentChar = "+"c OrElse currentChar = "%"c) Then                    isValid = False                    Exit For                End If            Next            If isValid Then                ' Add start char                returnValue = "*"                ' Add other chars, and calc checksum                For CharPos As Integer = 0 To value.Length - 1                    currentChar = Char.Parse(value.Substring(CharPos, 1))                    returnValue += currentChar.ToString()                    If currentChar >= "0"c AndAlso currentChar <= "9"c Then                        checksum = checksum + AscW(currentChar) - 48                    ElseIf currentChar >= "A"c AndAlso currentChar <= "Z"c Then                        checksum = checksum + AscW(currentChar) - 55                    Else                        Select Case currentChar                            Case "-"c                                checksum = checksum + AscW(currentChar) - 9                                Exit Select                            Case "."c                                checksum = checksum + AscW(currentChar) - 9                                Exit Select                            Case "$"c                                checksum = checksum + AscW(currentChar) + 3                                Exit Select                            Case "/"c                                checksum = checksum + AscW(currentChar) - 7                                Exit Select                            Case "+"c                                checksum = checksum + AscW(currentChar) - 2                                Exit Select                            Case "%"c                                checksum = checksum + AscW(currentChar) + 5                                Exit Select                            Case " "c                                checksum = checksum + AscW(currentChar) + 6                                Exit Select                        End Select                    End If                Next                ' Calculation of the checksum ASCII code                If addChecksum Then                    checksum = checksum Mod 43                    If checksum >= 0 AndAlso checksum <= 9 Then                        returnValue += (ChrW(checksum + 48)).ToString()                    ElseIf checksum >= 10 AndAlso checksum <= 35 Then                        returnValue += (ChrW(checksum + 55)).ToString()                    Else                        Select Case checksum                            Case 36                                returnValue += "-"                                Exit Select                            Case 37                                returnValue += "."                                Exit Select                            Case 38                                returnValue += " "                                Exit Select                            Case 39                                returnValue += "$"                                Exit Select                            Case 40                                returnValue += "/"                                Exit Select                            Case 41                                returnValue += "+"                                Exit Select                            Case 42                                returnValue += "%"                                Exit Select                        End Select                    End If                End If                ' Add stop char                returnValue += "*"            End If        End If        Return returnValue    End Function

3、添加条码图片的绘制，引用

System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a

 

4、呈现

=Code.Code39("39BARCODE")

=Code.Code128("128BARCODE")