利用vb进行条形码技术编程

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

1、利用VB进行条形码技术的编程摘要条形码功能强大，输入方式具有速度快、准确率高、可靠性强等特点特点在商品流通、工业生产上、仓贮标证管理、信息服务等领域获得了广泛的应用，介绍如何用vb轻松实现条形码编程的方法。关键词条形码编程接口控件窗体1条形码的读取用过键盘口式的扫条码工具的朋友就知道，它就如同在键盘上按下数字键一样，基本不需任何编程和处理。但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。dimsdataasstring利用VB进行条形码技术的编程摘要条形码功能强大，输入方式具有速度

2、快、准确率高、可靠性强等特点特点在商品流通、工业生产上、仓贮标证管理、信息服务等领域获得了广泛的应用，介绍如何用vb轻松实现条形码编程的方法。关键词条形码编程接口控件窗体1条形码的读取用过键盘口式的扫条码工具的朋友就知道，它就如同在键盘上按下数字键一样，基本不需任何编程和处理。但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。dimsdataasstringprivatesubform＿load（）withmscomm1.commport＝3＇设为com3，试运行的系统而定。.por

3、topen＝true＇打开通讯端口endwithendsubprivatesubmscomm1＿oncomm（）dimendposasintegerselectcasemscomm1.commeventcasecomevreceive＇当有数据传送过来时sdata＝sdata＆trim（mscomm1.input）endpos＝instr（1，sdata，chr（13））＇检索回车ifendpos＝0then＇如果未结束就继续else＇读完一组。lblbarcode.caption＝sdata＇显示一组条形码withlstbarcode.add

4、itemmid（sdata，1，endpos－1）＇添加一组条形码到列表endwithsdata＝“”＇清空endifendselectendsub2条形码的生成关于条形码生成的代码也是很容易理解，只需使用一个office的附带的barcode控件就可以轻松打印出11种不同标准的条形码，足以满足我们的要求。源代码主要由两个窗体（frmmain主窗体和frmoption条码设置窗体）和两个模块组成（modgetscreen.bas、sysdlg32.bas）。考虑到篇幅，这里只列出部分较为关键的代码。新建一个标准工程，添加一个名为（micros

5、oftaccessbarcodecontrol9）的条形码部件，并添加一个条码控件到窗口，并将窗口改名为frmmain。由于控件比较多，这里不便细说，详细内容请看源代码。模块modgetscreen.bas部分代码如下：optionexplicitpublicreguserasbooleansubgetobjimage1（objasobject，ownerformaspicturebox，picture1aspicturebox）dimhwnddeskaslongdimhdcdeskaslong＇x，y，w，h为区域表达变量x＝obj.left

6、screen.twipsperpixelxy＝obj.topscreen.twipsperpixelyw＝obj.widthscreen.twipsperpixelxh＝obj.heightscreen.twipsperpixelyhdcdesk＝ownerform.hdccallbitblt（picture1.hdc，0，0，w，h，hdcdesk，x，y，vbsrccopy）＇取出图像callreleasedc（hwnddesk，hdcdesk）endsub主窗体frmmain.frm部分代码如下：privatesubcmdprint＿cl

7、ick（）＇生成条形码图像dimraslong，iasinteger，tasstring，cfileasstringt＝barcodefori＝0toval（times）－1barcode1.value＝barcode＋idoeventspicture1.refreshgetobjimage1barcode1，conel，picture1ifreguser＝falsethenpicture1.paintpicturepicture2.picture，300，300endififdir（savepath，vbdirectory）＝“”thenmk

8、dirsavepathsavepath＝savepath＆iif（right（savepath，1）　＜＞“”，“”，“”）cfile＝savepat