绘制条形码和二维码

利用BarCodeBuilder类型给,可以给PDFCreator加上条形码和二维码绘制功能。

示例

Dim file As String = "c:\temp\test.pdf"
Dim pdc As New PDFCreator()
'绘制条形码
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
bar.Code = "12345678"
pdc.DrawImage(bar.Image, New RectangleF(72, 72, 180, 90))
'绘制二维码
Bar.Symbology = BarPro.Symbology.QRCode
Bar.Code = "http://www.foxtable.com/"
pdc.DrawImage(bar.Image, New RectangleF(72, 192, 180, 180))
pdc.Save(file)
Process.Start(file)

生成的文档：