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

利用进行条形码技术的编程 摘 要：条形码功能强大，输入方式具有速度快、准确率高、可靠性强等特点特点在商品流通、工业生产上、仓贮标证管理、信息服务等领域获得了广泛的应用，介绍如何用VB轻松实现条形码编程的方法。关键词：条形码;编程接口;控件;窗体1 条形码的读取用过键盘口式的扫条码工具的朋友就知道，它就如同在鍵盘上按下数字鍵一样，基本不需任何编程和处理。但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。Dim sData As StringPrivate Sub Form_Load()With MSComm1 .CommPort = 3 设为COM3，试运行的系统而定。 .PortOpen = True打开通讯端口End WithEnd SubPrivate Sub MSComm1_OnComm() Dim EndPos As IntegerSelect Case MSComm1.CommEventCase comEvReceive 当有数据传送过来时sData = sData & Trim(MSComm1.Input) EndPos = InStr(1, sData, Chr(13) 检索回车If EndPos = 0 Then 如果未结束就继续Else 读完一组。lblBarCode.Caption = sData 显示一组条形码With lstBarCode.AddItem Mid(sData, 1, EndPos - 1) 添加一组条形码到列表End WithsData = “” 清空End IfEnd SelectEnd Sub2 条形码的生成关于条形码生成的代码也是很容易理解，只需使用一个OFFICE的附带的BarCode控件就可以轻松打印出11种不同标准的条形码，足以满足我们的要求。源代码主要由两个窗体（frmMain主窗体和frmOption条码设置窗体）和两个模块组成(modGetScreen.bas、SysDLG32.bas)。考虑到篇幅，这里只列出部分较为关键的代码。新建一个标准工程，添加一个名为(Microsoft Access BarCode Control9)的条形码部件，并添加一个条码控件到窗口，并将窗口改名为frmMain。由于控件比较多，这里不便细说，详细内容请看源代码。模块modGetScreen.bas部分代码如下：Option ExplicitPublic RegUser As BooleanSub GetObjImage1(Obj As Object, OwnerForm As PictureBox, Picture1 As PictureBox)Dim hWndDesk As LongDim hDCDesk As Longx，y，w，h为区域表达变量x = Obj.Left Screen.TwipsPerPixelXy = Obj.TopScreen.TwipsPerPixelYw = Obj.WidthScreen.TwipsPerPixelXh = Obj.HeightScreen.TwipsPerPixelYhDCDesk = OwnerForm.hdcCall BitBlt(Picture1.hdc, 0,0,w,h,hDCDesk,x,y, vbSrcCopy)取出图像CallReleaseDC(hWndDesk,hDCDesk)End Sub 主窗体frmMain.frm部分代码如下：Private Sub cmdPrint_Click()生成条形码图像Dim r As Long, i As Integer, t As String,cfile As Stringt = BarCodeFor i = 0 To Val(Times) -1BarCode1.Value=BarCode+iDoEventsPicture1.RefreshGetObjImage1 BarCode1,Conel,Picture1If RegUser=False ThenPicture1.PaintPicture Picture2.Picture, 300, 300End IfIf Dir(SavePath, vbDirectory)=“”Then MkDir SavePathSavePath = SavePath & IIf(Right(SavePath, 1) <> “”, “”, “”)cfile = SavePath & BarCode1.Value &“.bmp”SavePicture Picture1.Image, cfile 将条形码保存为图像文件以便打印NextBarCode = tEnd Sub条形码设置窗体frmOption.frm代码如下：条形码设置模块代码BarCode1.Style = cboBig.ListIndex 改变标准BarCode1.Direction = cboDirection.ListIndex 改变方向BarCode1.LineWeight = cboLine.ListIndex 改变线宽BarCode1.SubStyle = cboSmall.ListIndex 改变样式 BarCode1.ShowData = Check1.Value 是否显示数据传送条形码设定到主界面With frmMain.BarCode1.LineWeight = BarCode1.LineWeight.Style = BarCode1.Style.SubStyle = BarCode1.SubStyle.Direction = BarCode1.Direction.Width = BarCode1.Width.Height = BarCode1.Height.ShowData = BarCode1.ShowDataMe.HideEnd WithWith frmMain.Picture1.Width = .BarCode1.Width.Picture1.Height = .BarCode1.Height.Conel.Width = .BarCode1.Width.Conel.Height = .BarCode1.HeightEnd With初始化选项