资源描述：
《工商管理电子商务毕业论文 利用ｖｂ进行条形码技术的编程》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、湖南师范大学本科毕业论文考籍号：XXXXXXXXX姓名：XXX专业：工商管理电子商务论文题目：利用ＶＢ进行条形码技术的编程指导老师：XXX二〇一一年十二月十日摘要：条形码功能强大，输入方式具有速度快、准确率高、可靠性强等特点特点在商品流通、工业生产上、仓贮标证管理、信息服务等领域获得了广泛的应用，介绍如何用VB轻松实现条形码编程的方法。关键词：条形码;编程接口;控件;窗体 1条形码的读取 用过键盘口式的扫条码工具的朋友就知道，它就如同在鍵盘上按下数字鍵一样，基本不需任何编程和处理。但如果你使用的
2、是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。 DimsDataAsString PrivateSubForm_Load() WithMSComm1 .CommPort=3‘设为COM3，试运行的系统而定。 .PortOpen=True’打开通讯端口 EndWith EndSub PrivateSubMSComm1_OnComm() DimEndPosAsInteger SelectCaseMSComm1.CommEvent
3、 CasecomEvReceive‘当有数据传送过来时 sData=sDataTrim(MSComm1.Input) EndPos=InStr(1,sData,Chr(13))‘检索回车 IfEndPos=0Then‘如果未结束就继续 Else‘读完一组。 lblBarCode.Caption=sData‘显示一组条形码 WithlstBarCode .AddItemMid(sData,1,EndPos-1)‘添加一组条形码到列表 EndWith sData=“”‘清空
4、EndIf EndSelect EndSub 2条形码的生成 关于条形码生成的代码也是很容易理解，只需使用一个OFFICE的附带的BarCode控件就可以轻松打印出11种不同标准的条形码，足以满足我们的要求。 源代码主要由两个窗体（frmMain主窗体和frmOption条码设置窗体）和两个模块组成(modGetScreen.bas、SysDLG32.bas)。考虑到篇幅，这里只列出部分较为关键的代码。 新建一个标准工程，添加一个名为(MicrosoftAccessBarCodeCo
5、ntrol9)的条形码部件，并添加一个条码控件到窗口，并将窗口改名为frmMain。由于控件比较多，这里不便细说，详细内容请看源代码。 模块modGetScreen.bas部分代码如下： OptionExplicit PublicRegUserAsBoolean SubGetObjImage1(ObjAsObject,OwnerFormAsPictureBox,Picture1AsPictureBox) DimhWndDeskAsLong DimhDCDeskAsLong ’x，y，w，
6、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,hD
7、CDesk) 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
8、IfRegUser=FalseThen Picture1.PaintPicturePicture2.Picture,300,300 EndIf IfDir(SavePath,vbDirectory)=“”ThenMkDirSavePath SavePath=SavePathIIf(Right(SavePath,1)“”,“”,“”) cfi
