主题：自动生成条码

Select Case e.Path

    Case "test.htm"

        Dim wb As New WeUI

        Dim Bar As New BarCodeBuilder

        Bar.Symbology = Barpro.Symbology.Code39

        Bar.Code = "123456"

        Bar.BarWidth = 0.3

        Bar.BarHeight = 8

        Dim img As Image = Bar.GetImage '获取图片

        '下面转换为网页可以识别的base64格式字符

        Using mostream As New IO.MemoryStream()

            Dim bmp As bitmap = New bitmap(img)

            bmp.Save(mostream, System.Drawing.Imaging.ImageFormat.Jpeg)

            '.AddImage("data:image/jpeg;base64," & src)

            Dim imagebytes(mostream.Length) As Byte

            mostream.Position = 0

            mostream.Read(imagebytes, 0, Convert.ToInt32(imagebytes.Length))

            Dim src As String = Convert.ToBase64String(imagebytes) '

            e.WriteString("<img src='data:image/jpeg;base64," & src & "'></img>")

        End Using

End Select