Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
Generate PharmaCode | VB.NET
Program.vb:
VB
Imports System.Drawing Imports System.Drawing.Imaging Imports Bytescout.BarCode Module Program Sub Main() Try ' Create new barcode Using barcode As Barcode = New Barcode() barcode.RegistrationName = "demo" barcode.RegistrationKey = "demo" ' Set symbology barcode.Symbology = SymbologyType.PharmaCode ' Optional margins barcode.Margins = New Margins(5, 5, 5, 5) ' Set Value barcode.Value = "12345" ' Set PharmaCode options: ' barcode.Options.PharmaCodeSupplementaryCode = True ' barcode.Options.PharmaCodeSupplementaryBarColor = Color.Orange ' barcode.Options.PharmaCodeMiniature = True ' barcode.Options.PharmaCodeTwoTrack = True ' Save 300 DPI Image barcode.ResolutionX = 300 barcode.ResolutionY = 300 barcode.SaveImage("300dpi.png", ImageFormat.Png) ' Save 600 DPI Image barcode.ResolutionX = 600 barcode.ResolutionY = 600 barcode.SaveImage("600dpi.png", ImageFormat.Png) End Using ' Show image in default image viewer Process.Start("300dpi.png") Process.Start("600dpi.png") Catch ex As Exception Console.WriteLine(ex.Message) End Try Console.WriteLine("Press enter key to exit...") Console.ReadLine() End Sub End Module