利用ｖｂ进行条形码技术的编程论文

《利用ｖｂ进行条形码技术的编程论文》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、利用ＶＢ进行条形码技术的编程论文摘要：条形码功能强大，输入方式具有速度快、准确率高、可靠性强等特点特点在商品流通、工业生产上、仓贮标证管理、信息服务等领域获得了广泛的应用，介绍如何用VB轻松实现条形码编程的方法。关键词：条形码;编程接口;控件;窗体1条形码的读取用过键盘口式的扫条码工具的朋友就知道，它就如同在鍵盘上按下数字鍵一样，基本不需任何编程和处理。但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。DimsDataAsStringPrivateSubForm_Load()Sm1.

2、mPort=3'设为3，试运行的系统而定。.PortOpen=True'打开通讯端口EndSm1_Onm()DimEndPosAsIntegerSelectCaseMSm1.mEventCaseEvReceive'当有数据传送过来时sData=sDataTrim(MSm1.Input)EndPos=InStr(1,sData,Chr(13))'检索回车IfEndPos=0Then'如果未结束就继续Else'读完一组。lblBarCode.Caption=sData'显示一组条形码id(sData,1,EndPos-1)'添加一组条形码到列

3、表Endain主窗体和frmOption条码设置窗体）和两个模块组成(modGetScreen.bas、SysDLG32.bas)。考虑到篇幅，这里只列出部分较为关键的代码。新建一个标准工程，添加一个名为(MicrosoftAccessBarCodeControl9)的条形码部件，并添加一个条码控件到窗口，并将窗口改名为frmMain。由于控件比较多，这里不便细说，详细内容请看源代码。模块modGetScreen.bas部分代码如下：OptionExplicitPublicRegUserAsBooleanSubGetObjImage1(ObjAsO

4、bject,OAsPictureBox,Picture1AsPictureBox)Dimhain.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Pi

5、cture1.PaintPicturePicture2.Picture,300,300EndIfIfDir(SavePath,vbDirectory)=“”ThenMkDirSavePathSavePath=SavePathIIf(Right(SavePath,1)“”,“”,“”)cfile=SavePathBarCode1.Value“.bmp”SavePicturePicture1.Image,cfile'将条形码保存为图像文件以便打印NextBarCode=tEndSub条形码设置窗体frmOption.frm代码如下：'条形码设置模

6、块代码BarCode1.Style=cboBig.ListIndex'改变标准BarCode1.Direction=cboDirection.ListIndex'改变方向BarCode1.Lineain.BarCode1.Lineain.Picture1.Width=.BarCode1.Width.Picture1.Height=.BarCode1.Height.Conel.Width=.BarCode1.Width.Conel.Height=.BarCode1.HeightEndWith'初始化选项LoadBarInfoBarWidt

7、h=BarCode1.WidthBarHeight=BarCode1.Height当计算机配置了网络控制器之类的接口软、硬件时，这个简单的条形码系统就能读入条形码信息并根据要求生成条形码打印或显示出来。以上程序在VB6.0下调试通过。