Tutorial: Barcode in REALbasic

Officially, REALbasic is not supported by BarCodewiz, but guess what?? it took one minute to make it works in REALbasic…download my source code here, then you can further modify it to suit your needs

Requirement:
Barcodewiz ActiveX (i’m using ver 2.56)
REALbasic IDE (i’m using REALbasic 2008r2 Pro)

// the code

Window1.Open:
// similar to sub form_load() in VB
Sub Open()
editfield1.setfocus
MyBarcode
End Sub

Window1 Control popsim: //popupmenu control
Sub Change()
MyBarcode
End Sub

Window1 Control EditField1: //editfield control
Sub TextChange()
MyBarcode
End Sub

Window1.MyBarcode:
//this is method
Sub MyBarcode()
//////////////////////////////////////////////////////////////////////
‘Brought to you by Andra
‘Coderockstar Inc
‘Indonesia
‘I’m using BarCodeWiz ActiveX 2.56
‘pokel.wordpress.com
‘andralance at gmail dot com
/////////////////////////////////////////////////////////////////////
dim simbol,simbol2 as string
dim simbol_conv_to_numeric as integer

simbol=left(popsim.text,2)
simbol2=trim(simbol)
simbol_conv_to_numeric=val(simbol2)
barcodewiz1.symbology=simbol_conv_to_numeric
barcodewiz1.barcode=editfield1.text
End Sub

WARNING
barcodewiz.dll is required and must be correctly registered. See error pic below.
use this command to register: REGSVR32 barcodewiz.dll