Module1.vb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Imports Bytescout.BarCode Module Module1 Sub Main() ' Create new barcode Dim barcode As New Barcode() ' Set symbology barcode.Symbology = SymbologyType.DeutschePostLeitcode ' Set value barcode.Value = "1234567890123" ' Save barcode to image barcode.SaveImage( "result.png" ) ' Show image in default image viewer Process.Start( "result.png" ) End Sub End Module |
Click here to get your Free Trial version of the SDK
also available as: