利用VB进行条形码技术编程.doc

利用VB进行条形码技术编程摘要 条形码功能强大，输入方式具有速度快、准确率高、可靠性强等特点特点在商品流通、工业生产上、仓贮标证管理、信息服务等领域获得了广泛的应用，介绍如何用VB轻松实现条形码编程的方法。 关键词 条形码编程接口控件窗体 1条形码的读取 用过键盘口式的扫条码工具的朋友就知道，它就如同在键盘上按下数字键一样，基本不需任何编程和处理。但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。 DimsDataAsString PrivateSubForm＿Load（） WithMSComm1 .CommPort＝3＇设为COM3，试运行的系统而定。 .PortOpen＝True＇打开通讯端口 EndWith EndSub PrivateSubMSComm1＿OnComm（） DimEndPosAsInteger SelectCaseMSComm1.CommEvent CasecomEvReceive＇当有数据传送过来时 sData＝sData＆Trim（MSComm1.Input） EndPos＝InStr（1，sData，Chr（13））＇检索回车 IfEndPos＝0Then＇如果未结束就继续 Else＇读完一组。 lblBarCode.Caption＝sData＇显示一组条形码 WithlstBarCode .AddItemMid（sData，1，EndPos－1）＇添加一组条形码到列表 EndWith sData＝“”＇清空 EndIf EndSelect EndSub 2条形码的生成 关于条形码生成的代码也是很容易理解，只需使用一个OFFICE的附带的BarCode控件就可以轻松打印出11种不同标准的条形码，足以满足我们的要求。 源代码主要由两个窗体（frmMain主窗体和frmOption条码设置窗体）和两个模块组成（modGetScreen.bas、SysDLG32.bas）。考虑到篇幅，这里只列出部分较为关键的代码。 新建一个标准工程，添加一个名为（MicrosoftAccessBarCode Control9）的条形码部件，并添加一个条码控件到窗口，并将窗口改名为frmMain。由于控件比较多，这里不便细说，详细内容请看源代码。 模块modGetScreen.bas部分代码如下： OptionExplicit PublicRegUserAsBoolean SubGetObjImage1（ObjAsObject，OwnerFormAsPictureBox，Picture1AsPictureBox） DimhWndDeskAsLong DimhDCDeskAsLong ＇x，y，w，h为区域表达变量 x＝Obj.LeftScreen.TwipsPerPixelX y＝Obj.TopScreen.TwipsPerPixelY w＝Obj.WidthScreen.TwipsPerPixelX h＝Obj.HeightScreen.TwipsPerPixelY hDCDesk＝OwnerForm.hdc CallBitBlt（Picture1.hdc，0，0，w，h，hDCDesk，x，y，vbSrcCopy）＇取出图像 CallReleaseDC（hWndDesk，hDCDesk） EndSub 主窗体frmMain.frm部分代码如下： PrivateSubcmdPrint＿Click（） ＇生成条形码图像 DimrAsLong，iAsInteger，tAsString，cfileAsString t＝BarCode Fori＝0ToVal（Times）－1 BarCode1.Value＝BarCode＋i DoEvents Picture1.Refresh GetObjImage1BarCode1，Conel，Picture1 IfRegUser＝FalseThen Picture1.PaintPicturePicture2.Picture，300，300 EndIfIfDir（SavePath，vbDirectory）＝“”ThenMkDirSavePath SavePath＝SavePath＆IIf（Right（SavePath，1）　＜＞“”，“”，“”） cfile＝SavePath