资源描述：
《利用ＶＢ进行条形码技术的编程.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、利用ＶＢ进行条形码技术的编程摘要：条形码功能强大，输入方式具有速度快、准确率高、可靠性强等特点特点在商品流通、工业生产上、仓贮标证管理、信息服务等领域获得了广泛的应用，介绍如何用VB轻松实现条形码编程的方法。关键词：条形码;编程接口;控件;窗体 1条形码的读取 用过键盘口式的扫条码工具的朋友就知道，它就如同在鍵盘上按下数字鍵一样，基本不需任何编程和处理。但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。 DimsDataAsString P
2、rivateSubForm_Load() WithMSComm1 .CommPort=3'设为COM3，试运行的系统而定。 .PortOpen=True'打开通讯端口 EndWith EndSub PrivateSubMSComm1_OnComm() DimEndPosAsInteger SelectCaseMSComm1.CommEvent CasecomEvReceive'当有数据传送过来时 sData=sData&Trim(MSComm1.Input) EndPos=In
3、Str(1,sData,Chr(13))'检索回车 IfEndPos=0Then'如果未结束就继续 Else'读完一组。 lblBarCode.Caption=sData'显示一组条形码 WithlstBarCode .AddItemMid(sData,1,EndPos-1)'添加一组条形码到列表 EndWith sData=“”'清空 EndIf EndSelect EndSub 2条形码的生成 关于条形码生成的代码也是很容易理解，只需使用一个OFFICE的附带的BarC
4、ode控件就可以轻松打印出11种不同标准的条形码，足以满足我们的要求。3 源代码主要由两个窗体（frmMain主窗体和frmOption条码设置窗体）和两个模块组成(modGetScreen.bas、SysDLG32.bas)。考虑到篇幅，这里只列出部分较为关键的代码。 新建一个标准工程，添加一个名为(MicrosoftAccessBarCodeControl9)的条形码部件，并添加一个条码控件到窗口，并将窗口改名为frmMain。由于控件比较多，这里不便细说，详细内容请看源代码。 模块modGetScreen.ba
5、s部分代码如下： OptionExplicit PublicRegUserAsBoolean SubGetObjImage1(ObjAsObject,OwnerFormAsPictureBox,Picture1AsPictureBox) DimhWndDeskAsLong DimhDCDeskAsLong 'x，y，w，h为区域表达变量 x=Obj.LeftScreen.TwipsPerPixelX y=Obj.TopScreen.TwipsPerPixelY w=Obj.WidthScree
6、n.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,iAsInteg
7、er,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 EndIf IfDir(SavePath,vbDirectory)=“”T
8、henMkDirSavePath SavePath=SavePath&IIf(Right(SavePath,1)<>“”,“”,“”) cfile=SavePath&BarCode1.Value&“.bmp” Sa
