Module1.vb
Imports Bytescout.BarCode Module Module1 Sub Main() ' Create new barcode Dim barcode As New Barcode() ' Set symbology barcode.Symbology = SymbologyType.Codabar ' Set value barcode.Value = "123456" ' Checksum algorithm barcode.Options.CodabarChecksumAlgorithm = CodabarChecksumAlgorithm.Modulo9 ' Start symbol barcode.Options.CodabarStartSymbol = CodabarSpecialSymbol.C ' Stop symbol barcode.Options.CodabarStopSymbol = CodabarSpecialSymbol.A ' Draw intercharacter gap barcode.Options.DrawIntercharacterGap = True ' Show start/stop symbols barcode.Options.ShowStartStop = True ' 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: