Display barcodes

Offbeatmammal · #1 (**permalink**) 05-26-2008, 03:24 AM

I want to output various barcodes on screen (eg EAN 128, UPC-A or Code 39)... does Basic4ppc have support for that sort of functionality?

Erel · #2 (**permalink**) 05-26-2008, 05:30 AM

There are special fonts you can use.
This one for example: Free Barcode Font - Code 39 - Not a demo, COMPLETELY free
You should first copy FREE3OF9.ttf to \Windows\Fonts.
Afterwards you should change the font of a textbox or label (flb is a FormLib object):

Code:

Sub App_Start
    Form1.Show
    flb.New1("form1",B4PObject(1))
    TextBox1.FontSize = 40
    flb.ChangeFont("textbox1","Free 3 of 9")
    TextBox1.Text = "*2141*"
End Sub

Offbeatmammal · #3 (**permalink**) 05-26-2008, 05:52 AM

thanks.
should have mentioned I'm after doing this on a Smartphone, and UPC-A is probably the most important.
There are some barcode DLLs but I didn't want to pay the $400+ if I could avoid it (I want to make a free app!)

Erel · #4 (**permalink**) 05-26-2008, 06:02 AM

You can probably use a font like this one: http://www.barcode-1.net/pub/russada...ware/upc-a.zip