利用進(jìn)行條形碼技術(shù)的編程 摘 要：條形碼功能強(qiáng)大，輸入方式具有速度快、準(zhǔn)確率高、可靠性強(qiáng)等特點(diǎn)特點(diǎn)在商品流通、工業(yè)生產(chǎn)上、倉(cāng)貯標(biāo)證管理、信息服務(wù)等領(lǐng)域獲得了廣泛的應(yīng)用，介紹如何用VB輕松實(shí)現(xiàn)條形碼編程的方法。關(guān)鍵詞：條形碼;編程接口;控件;窗體1 條形碼的讀取用過(guò)鍵盤(pán)口式的掃條碼工具的朋友就知道，它就如同在鍵盤(pán)上按下數(shù)字鍵一樣，基本不需任何編程和處理。但如果你使用的是其它接口的話，可能你就要為該設(shè)備編寫(xiě)通訊代碼了。以下有一段簡(jiǎn)單的25針串口的條碼讀取器通訊代碼。Dim sData As StringPrivate Sub Form_Load()With MSComm1 .CommPort = 3 設(shè)為COM3，試運(yùn)行的系統(tǒng)而定。 .PortOpen = True打開(kāi)通訊端口End WithEnd SubPrivate Sub MSComm1_OnComm() Dim EndPos As IntegerSelect Case MSComm1.CommEventCase comEvReceive 當(dāng)有數(shù)據(jù)傳送過(guò)來(lái)時(shí)sData = sData & Trim(MSComm1.Input) EndPos = InStr(1, sData, Chr(13) 檢索回車If EndPos = 0 Then 如果未結(jié)束就繼續(xù)Else 讀完一組。lblBarCode.Caption = sData 顯示一組條形碼With lstBarCode.AddItem Mid(sData, 1, EndPos - 1) 添加一組條形碼到列表End WithsData = “” 清空End IfEnd SelectEnd Sub2 條形碼的生成關(guān)于條形碼生成的代碼也是很容易理解，只需使用一個(gè)OFFICE的附帶的BarCode控件就可以輕松打印出11種不同標(biāo)準(zhǔn)的條形碼，足以滿足我們的要求。源代碼主要由兩個(gè)窗體（frmMain主窗體和frmOption條碼設(shè)置窗體）和兩個(gè)模塊組成(modGetScreen.bas、SysDLG32.bas)?？紤]到篇幅，這里只列出部分較為關(guān)鍵的代碼。新建一個(gè)標(biāo)準(zhǔn)工程，添加一個(gè)名為(Microsoft Access BarCode Control9)的條形碼部件，并添加一個(gè)條碼控件到窗口，并將窗口改名為frmMain。由于控件比較多，這里不便細(xì)說(shuō)，詳細(xì)內(nèi)容請(qǐng)看源代碼。模塊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為區(qū)域表達(dá)變量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條形碼設(shè)置窗體frmOption.frm代碼如下：條形碼設(shè)置模塊代碼BarCode1.Style = cboBig.ListIndex 改變標(biāo)準(zhǔn)BarCode1.Direction = cboDirection.ListIndex 改變方向BarCode1.LineWeight = cboLine.ListIndex 改變線寬BarCode1.SubStyle = cboSmall.ListIndex 改變樣式 BarCode1.ShowData = Check1.Value 是否顯示數(shù)據(jù)傳送條形碼設(shè)定到主界面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初始化選項(xiàng)