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

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

ID:11892054

大小:28.50 KB

页数:3页

时间:2018-07-14

利用VB进行条形码技术的编程.doc_第1页
利用VB进行条形码技术的编程.doc_第2页
利用VB进行条形码技术的编程.doc_第3页
资源描述:

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

1、利用VB进行条形码技术的编程摘要:条形码功能强大,输入方式具有速度快、准确率高、可靠性强等特点特点在商品流通、工业生产上、仓贮标证管理、信息服务等领域获得了广泛的应用,介绍如何用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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。