Calling dBarFont()

To call the dBarFont function just use a section of code analogous to this:

(shown for Visual Basic)

Dim xin$
Dim yout$
Dim icode%, iflags%

xin$ = Form1.Text1.Text
icode% = 0 ‘ for Code 39

icheck = 1 ‘ check digit required
ix1=0: ix2=0: ‘ no other flags

iflags% = icheck + 2 * ix1 + 4 * ix2:
yout$ = String$(128, 0)

i% = dBarFont(icode%, xin$, yout$, iflags%)

Form1.Text1.Text = yout$ ‘ to display barcode

Of course, you do need to display the Text box (Form1.Text1 in this example) using the appropriate font!

Many more examples in different systems are included on the distribution disks or are available from our web site.

 

More:

dBarFonth2() Function