Imports OnBarcode.Barcode


Dim barcode As Linear = New Linear

'Code 39 Barcode Basic Settings
barcode.Type = BarcodeType.CODE39

'Code39 Valid data char set:
'0, 1, 2, 3, 4, 5, 6, 7, 8, 9 (Digits)
'A - Z (Uppercase letters)
'- (Dash), $ (Dollar), % (Percentage), (Space), . (Point), / (Slash), + (Plus) 

'Code39 extension Valid data char set:
'All ASCII 128 characters
'Code39 encodes upper case chars only, for lower case chars, use Code 39 extension
barcode.Data = "ONBARCODE"

barcode.AddCheckSum = True

'Set the ProcessTilde property to true, if you want use the tilde character "~" 
'to specify special characters in the input data. Default is false.

'1) 1-byte character: ~0dd/~1dd/~2dd (character value from 000 ~ 255);
'ASCII character '~' is presented by ~126;Strings from "~256" to "~299" are unused
barcode.ProcessTilde = False

'Code 39 Wide Narrow bar Ratio
'Valid value is from 2.0 to 3.0 inclusive.
barcode.N = 3.0F
'The space between 2 characters in code 39; This a multiple of X; The default is 1.;
'Valid value is from 1.0 (inclusive) to 5.3 (exclusive)
barcode.I = 1.0F
barcode.ShowStartStopInText = False

'Barcode Size Related Settings
barcode.UOM = UnitOfMeasure.PIXEL
barcode.X = 1
barcode.Y = 80
barcode.LeftMargin = 0
barcode.RightMargin = 0
barcode.TopMargin = 0
barcode.BottomMargin = 0
barcode.Resolution = 96
barcode.Rotate = Rotate.Rotate0

' Barcode Text Settings
barcode.ShowText = True
barcode.TextFont = New Drawing.Font("Arial", 9.0F, Drawing.FontStyle.Regular)
barcode.TextMargin = 6

' Image format setting
barcode.Format = System.Drawing.Imaging.ImageFormat.Gif()

barcode.drawBarcode("c://code-39.gif")