vb60条形码源码

1、vb实现一维条形码例子

EAN是比较好实现的码制，用微软自带的就可以，或者下载个EAN的条码字体即可在一般的text中处理。连接ACCESS数据库，因为是自己写的程序，直连取记录集，然后在记录集中循环取值给条码控件，同时刷新控件即可。你这个关键在于打印，用print 截屏即可 这样最简单。

2、VB 识别条形码

一、条形码的读取

用过键盘口式的扫条码工具的朋友就知道，它就如同在键盘上按下数字键一样，基本不需任何编程和处理。但如果你使用的是其它接口的话，可能你就要为该设备编写通讯代码了。以下有一段简单的25针串口的条码读取器通讯代码。

Option Explicit
Dim sData As String
Private Sub Form_Load()
With MSComm1
.CommPort = 3 '设为COM3，试运行的系统而定，你可提供一个Combox让用户选择。
.PortOpen = True　'打开通讯端口
End With
End Sub

Private Sub MSComm1_OnComm()

Dim EndPos As Integer
Select Case MSComm1.CommEvent
Case 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 With
sData = "" '清空
End If
End Select
End Sub

Private Sub cmdEnd_Click()
MSComm1.PortOpen = False '关闭端口
End
End Sub

二：条形码的生成
在VB上编程本来就不难。以下关于条形码生成的代码也是很容易理解，只需使用一个OFFICE的附带的 BarCode控件就可以轻松打印出11种不同标准的条形码，足以满足我们的要求。想起我书架上的一本书中的一篇用Turbo C编写条形码打印程序文章，长篇大论，那时不知看了n天，打了n小时字结果也不尽人意，现在真是幸福多了:)。废话说完，得回归正题。且看条形码生成的代码及有关说明。
源代码主要由两个窗体（frmMain主窗体和frmOption条码设置窗体）和两个模块组成(modGetScreen.bas、SysDLG32.bas)。考虑到篇幅，这里只列出部分较为关键的代码。

新建一个标准工程，添加一个名为(Microsoft Access BarCode
Control9)的条形码部件，并添加一个条码控件到窗口，并将窗口改名为frmMain，如图所示。由于控件比较多，这里不便细说，详细内容请看源代码。
模块modGetScreen.bas代码如下：
Option Explicit
声明BitBlt、GetDesktopWindow、GetWindowDC、ReleaseDC这几个API函数略
Public RegUser As Boolean

Sub GetObjImage1(Obj As Object, OwnerForm As PictureBox, Picture1
As PictureBox)
'hDC
Dim hWndDesk As Long
Dim hDCDesk As Long
'区域表达变量
Dim x As Long
Dim y As Long
Dim w As Long
Dim h As Long

x = Obj.Left Screen.TwipsPerPixelX
y = Obj.Top Screen.TwipsPerPixelY
w = Obj.Width Screen.TwipsPerPixelX
h = Obj.Height Screen.TwipsPerPixelY
hDCDesk = OwnerForm.hdc
'取出图像
Call BitBlt(Picture1.hdc, 0, 0, w, h, hDCDesk, x, y,
vbSrcCopy)
Call ReleaseDC(hWndDesk, hDCDesk)

End Sub

主窗体frmMain.frm部分代码如下：
Private Sub cmdPrint_Click()
'生成条形码图像
Dim r As Long, i As Integer, t As String,cfile As
String '临时变量
t = BarCode
For i = 0 To Val(Times) - 1

BarCode1.Value = BarCode + i
DoEvents
Picture1.Refresh

GetObjImage1 BarCode1, Conel, Picture1

If RegUser = False Then '如果未注册添加MASK标记
Picture1.PaintPicture Picture2.Picture, 300, 300
End If

If Dir(SavePath, vbDirectory) = "" Then MkDir SavePath

SavePath = SavePath & IIf(Right(SavePath, 1) <> "", "",
"")

cfile = SavePath & BarCode1.Value & ".bmp"

SavePicture Picture1.Image, cfile '将条形码保存为图像文件以便打印
Next
BarCode = t

End Sub

条形码设置窗体frmOption.frm代码如下：
Option Explicit
'条形码设置模块

Private Sub cboBig_Click()
BarCode1.Style = cboBig.ListIndex '改变标准
End Sub

Private Sub cboDirection_Click()
BarCode1.Direction = cboDirection.ListIndex '改变方向
End Sub

Private Sub cboLine_Click()
BarCode1.LineWeight = cboLine.ListIndex '改变线宽
End Sub

Private Sub cboSmall_Click()
BarCode1.SubStyle = cboSmall.ListIndex '改变样式
End Sub

Private Sub Check1_Click()
BarCode1.ShowData = Check1.Value '是否显示数据
End Sub

Private Sub cmdChange_Click()
'设置长、宽大小
BarWidth = BarCode1.Height
BarHeight = BarCode1.Width
cmdRefresh_Click
End Sub

Private Sub cmdOK_Click()
'传送条形码设定到主界面
With frmMain.BarCode1
.LineWeight = BarCode1.LineWeight
.Style = BarCode1.Style
.SubStyle = BarCode1.SubStyle
.Direction = BarCode1.Direction
.Width = BarCode1.Width
.Height = BarCode1.Height
.ShowData = BarCode1.ShowData
Me.Hide
End With
With frmMain
.Picture1.Width = .BarCode1.Width
.Picture1.Height = .BarCode1.Height
.Conel.Width = .BarCode1.Width
.Conel.Height = .BarCode1.Height
End With
End Sub

Private Sub cmdRefresh_Click()
BarCode1.Width = BarWidth
BarCode1.Height = BarHeight
End Sub

Private Sub Form_Load()
LoadBarInfo
BarWidth = BarCode1.Width
BarHeight = BarCode1.Height
End Sub

Sub LoadBarInfo() '初始化选项
LoadBigClass cboBig
LoadSmallClass cboSmall
LoadLineSize cboLine
LoadDirection cboDirection
End Sub
Sub LoadBigClass(cbo As ComboBox) '条码标准
With cbo
.AddItem "UPC-A"
.AddItem "UPC-E"
.AddItem "EAN-13"
.AddItem "EAN-8"
.AddItem "Case Code"
.AddItem "Codabar (NW-T)"
.AddItem "Code-39"
.AddItem "Code-128"
.AddItem "U.S. Postnet"
.AddItem "U.S. Postal FIM"
.AddItem "JP Post"
.ListIndex = 2
End With
End Sub
Sub LoadSmallClass(cbo As ComboBox) '条码样式
With cbo
.AddItem "Standard"
.AddItem "2-Digit Supplement"
.AddItem "5-Digit Supplement"
.AddItem "POS Case Code"
.ListIndex = 0
End With
End Sub

许多人在编写数据库应用程序时，都想要加上条形码功能加强工作效率，尤其是销售管理，图书馆管理这类流量大的应用软件，但由于条形码技术难以掌握、标谁又多以及过去的技术种种原因，使得许多人望而却步。本文介绍的一套简单实用的条形码解决方法，希望能帮助各位完善软件系统的功能。

3、如何在VB程序下生成二维条码

如何在VB程序下生成二维条码，包括PDF417、QrCode、DataMatrix和汉信二维条码，具体步驺如下：
工具/原料
准备VB开发环境，VS6.0开发环境
方法/步骤
创建VB工程，COPY二维条码动态链接库到您的工程中。您需要引用的动态库有：EnCodePdf.dll,EnCodeQr.dll,EnDataMatrix和EnHanxin.dll。
大家可以参照下图放置DLL和INI的目录位置。
‘动态链接库引用
（说明：下面是所有四种条码的接口引用申明，读者可以适当剪裁）
’串口接口
Private Declare FunctionInitRead Lib “EnCodePdf.dll” （ByVal hcallwnd As Long, ByVal pathnameAs String） As Long
Private Declare FunctionCloseRead Lib “EnCodePdf.dll” （） As Long
‘生成PDF417接口
Private Declare SubSetPdfConFile Lib “EnCodePdf.dll” （ByVal confile As String）
Private Declare FunctionEnPdfText Lib “EnCodePdf.dll” （ByVal txtData As String, ByVal outfileAs String） As String
Private Declare FunctionEnCodePdf Lib “EnCodePdf.dll” （ByVal txtfile As String, ByVal outfileAs String） As String
Private Declare FunctionMakePdf417 Lib “EnCodePdf.dll” （ByVal txtfile As String, ByValpictfile As String, ByVal otherfile As String, ByVal outfile As String） AsString
’生成QrCode接口
Private Declare SubSetQrConFile Lib “EnCodeQr.dll” （ByVal confile As String）
Private Declare FunctionEnQrText Lib “EnCodeQr.dll” （ByVal txtData As String, ByVal outfileAs String） As String
Private Declare FunctionEnCodeQr Lib “EnCodeQr.dll” （ByVal txtfile As String, ByVal outfileAs String） As String
Private Declare FunctionMakeQrCode Lib “EnCodeQr.dll” （ByVal txtfile As String, ByVal pictfileAs String, ByVal otherfile As String, ByVal outfile As String） As String
‘生成DataMatrix接口
Private Declare SubSetDmConFile Lib “EnDataMatrix.dll” （ByVal confile As String）
Private Declare FunctionEnDmText Lib “EnDataMatrix.dll” （ByVal txtData As String, ByValoutfile As String） As String
Private Declare FunctionEnDataMatrix Lib “EnDataMatrix.dll” （ByVal txtfile As String, ByValoutfile As String） As String
Private Declare FunctionMakeDataMatrix Lib “EnDataMatrix.dll” （ByVal txtfile As String, ByValpictfile As String, ByVal otherfile As String, ByVal outfile As String） AsString
’生成HanXin接口
Private Declare SubSetHxConFile Lib “EnHanXin.dll” （ByVal confile As String）
Private Declare FunctionEnHxText Lib “EnHanXin.dll” （ByVal txtData As String, ByVal outfileAs String） As String
Private Declare FunctionEnCodeHx Lib “EnHanXin.dll” （ByVal txtfile As String, ByVal outfileAs String） As String
Private Declare FunctionMakeHanXin Lib “EnHanXin.dll” （ByVal txtfile As String, ByValpictfile As String, ByVal otherfile As String, ByVal outfile As String） AsString
'WAPI接口
Private Declare FunctionSetCurrentDirectory Lib “kernel32” Alias“SetCurrentDirectoryA” （ByVal lpPathName As String） As Long
Private Declare Lib “kernel32” Alias“WritePrivateProfileStringA” （ByVal lpApplicationName As String,ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String） AsLong
Private Declare FunctionGetPrivateProfileInt Lib “kernel32” Alias“GetPrivateProfileIntA” （ByVal lpApplicationName As String, ByVallpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String） AsLong
Private Declare Lib “kernel32” Alias“GetPrivateProfileStringA” （ByVal lpApplicationName As String, ByVallpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String,ByVal nSize As Long, ByVal lpFileName As String） As Long
Private Declare FunctionSetWindowLong Lib “user32” Alias “SetWindowLongA” （ByValhwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long） As Long
Private Declare FunctionSetParent Lib “user32” （ByVal hWndChild As Long, ByVal hWndNewParentAs Long） As Long
‘生成图像小波压缩接口
'exports from nlcomp.dll 图像压缩函数
Private Declare FunctionSizeDIB Lib “Wcomp.dll” （ByVal oldmap As String, ByVal BmpHeight AsInteger, ByVal BmpWidth As Integer） As Long
Private Declare FunctionWcompress Lib “Wcomp.dll” （ByVal infile As String, ByVal outfile AsString, ByVal budget As Long） As Long
Private Declare FunctionWdecompress Lib “Wcomp.dll” （ByVal infile As String, ByVal outfile AsString） As Long
进行条形码制作：
我们在引用API接口后，可以参照下面程序，实现接口调用
程序中txtfile表示文本文件名，binBmpFile表示输入的图像文件名
若需要装载图像可以采用Make开头接口，若不需要则采用En开头接口。
If （txtfile<> “” Or binBmpFile <> “”） Then
If m_bWorkMode = 1 Then 'PDF417
SetPdfConFile （Edit_ConFileName.Text）
If （Edit_ImgFileName.Text <> “”） Then
strBmpFile = MakePdf417（txtfile, binBmpFile,“”, “”）
Else
strBmpFile = EnPdfText（Edit_Source.Text,“”）
End If
ElseIf m_bWorkMode = 2 Then 'Qr_Code
SetQrConFile （Edit_ConFileName.Text）
If （Edit_ImgFileName.Text <> “”） Then
strBmpFile = MakeQrCode（txtfile, binBmpFile,“”, “”）
Else
strBmpFile = EnQrText（Edit_Source.Text,“”）
End If
ElseIf m_bWorkMode = 3 Then ' DataMatrix
SetDmConFile （Edit_ConFileName.Text）
If （Edit_ImgFileName.Text <> “”） Then
strBmpFile = MakeDataMatrix（txtfile,binBmpFile, “”, “”）
Else
strBmpFile = EnDmText（Edit_Source.Text,“”）
End If
Else
SetHxConFile （Edit_ConFileName.Text）
If （Edit_ImgFileName.Text <> “”） Then
strBmpFile = MakeHanXin（txtfile, binBmpFile,“”, “”）
Else
strBmpFile = EnHxText（Edit_Source.Text,“”）
End If
End If
打开关闭串口：
条码编码控件一般自带串口接收处理接口：
InitRead接口是初始化串口
CloseRead接口是关闭串口
If Cmd_OpenComm.Caption = “连接串口” Then
Call SetPdfConFile（Edit_ConFileName.Text）
If InitRead（Me.hwnd, App.Path + “\”） = 1 Then
Cmd_OpenComm.Caption = “断开串口”
End If
Else ’关闭串口
If CloseRead（） = 1 Then
Cmd_OpenComm.Caption = “连接串口”
End If
End If
接收条码识读器内容：
串口收到识读器信息后，以键盘消息的形式，触发页面消息。
我们调用FORM下，处理KeyDown事件。
Private Sub Form_KeyDown（KeyCode As Integer, Shift As Integer）
Dim FileNo As Integer
Dim strTmp As String
Dim strBmpFile As String
strBmpFile = App.Path & “\temp.bmp”
If KeyCode = 255 Then
FileNo = FreeFile（）
Open App.Path & “\temp.txt” For Input As #FileNo
Edit_Source.Text = “”
Do While Not EOF（FileNo）
strTmp = “”
Input #FileNo, strTmp
Edit_Source.Text = Edit_Source.Text & strTmp & Chr（13） & Chr（10）
Loop
Close #FileNo
If Dir（strBmpFile） <> “” Then
Kill （strBmpFile）
End If
If Dir（App.Path & “\temp.img”） <> “” Then
If FileLen（App.Path & “\temp.img”） > 10 Then
Call Wdecompress（App.Path & “\temp.img”, strBmpFile）
End If
End If
If Dir（strBmpFile） <> “” Then
Image_Bar.Picture = LoadPicture（strBmpFile）
Else
Image_Bar.Picture = LoadPicture（“”）
End If
Cmd_Print.Enabled = False
End If
End Sub

4、VB程序中怎样读取扫描的条形码内容，求代码啊，

这个还是要看你用什么去扫描条码。
下面这个方案可行，我实现过，不知道硬件适不适合你的情况。
硬件：条码扫描枪，串口的。（将扫枪接到串口，比如COM1)
软件：直接用VB读取串口（比如COM1）信息就好了。

所以，你只要在网上搜索一个VB读取串口信息的例子，改改就好了。

其他接口（如网口）的扫枪我没用过，不太清楚。
希望能帮到你。

5、vb6.0源代码

你这里的RsAddUser是自己声明的ADODB.Recordset对象
在变量声明段，你应该可以找到
Dim RsAddUser As ADODB.Recordset
或者是
Private RsAddUser As ADODB.Recordset
而
RsAddUser.State是该对象的一个属性，用来返回其处于打开或关闭的状态。

6、VB应用程序中打印条形码的方法

条形码作为一种机器可识别的图形，它能快速、准确地标识某种产品或商品，在许多数据库应用中起作很重要的作用，如超市收银、车站售票等场合。当某件物品上带有的条形码被条码扫描器正确解读后，将会得到该物品的唯一标识字符串，通过检索数据库我们就可以很容易知道它的一些其它属性并作相应处理。虽然在Internet上能找到许多免费和不免费的条形码打印控件，但是这些控件除了使用不方便外，还有一个最大的缺点：它们的打印输出不能和我们的程序共存在一个打印页面上，比如说在一个过程中，我们先向系统 Printer 中输出一些内容，然后再调用控件的条形码打印方法，最后打印的结果为两页！，如果现在我们要处理一张车票，上面不仅要打印条形码，还要有终点站和票价等信息，那么控件就变得不可用。对程序员来说，可能还是希望能了解条形码打印的原理，本文提出两种打印方法与同行们探讨。

一、直接利用有条形码打印功能的打印机

有许多打印机能够直接打印条形码，但在 VB 中，我们在DOS时代熟悉的LPRINT语句已经不能再使用了，打印操作被Windows的Spool系统完全接管，输出是以“页”为单位，所有的打印输出都被Windows转换为图形发送给打印驱动程序。而要使打印机打印条形码就必须将对应的ESC序列直接发送给它，因此我们就要想办法避开Windows的Spool系统，也就是说再程序中不能使用Printer对象和Printers集合处理打印输出，在VB中要将ESC指令直接发送给打印机至少有三种方法，前两种方法是调用Windows API 函数：Escape()和SpoolFile()，第三种是最容易的方法：打开打印机端口进行二进制存取，我们主要考虑这种方法。

即使在Windows时代，”LPT1:”和”PRN”仍然是可用的，下面我们先作一个试验：打开一个DOS窗口，在提示符下输入COPY CON LPT1:回车，然后随便输入一些字符，最后按F6键，打印机就开始工作了，它将打印出你输入的那些字符！下面的代码演示了直接将指令和字符发送给打印机：

Private Sub Command1_Click()

Dim strOut As String

StrOut = “这是直接发送到打印机端口的字符串”

‘ 打开打印机端口，其中的”LPT1:”可能需要根据你的打印机设置而改变

Open “LPT1:” For Binary Access Write As #1

‘ 发送给打印机，注意语句的最后一个参数必须是变量

Put #1, ,strOut

‘ 关闭打印机端口

Close #1

End Sub

各种打印机打印条形码的指令可能不同，比如将上面的变量 strOut赋值为：

strOut = Chr(28) & “P” & Chr(5) & Chr(2) & Chr(3) & Chr(3) & Chr(6) & “012345”

将在 AR2400 打印机上打印出内容为”012345”的 CODE39 格式的条形码。具体的打印控制指令请参考打印机手册。

用这种方法的缺点：一是过份依赖打印机本身，而有条形码打印功能的打印机通常要比普通打印机昂贵，这会使构造应用系统不够经济；二是所有的打印输出都必须你自己处理，比如打印定位就很浪费时间。

二、利用画图方式输出到普通打印机

条形码的编码规则不外乎是通过线条和线条间间隙的宽窄不同来表示二进制的1和0，只要我们了解了条形码的编码规则，完全可以用画图的方式在普通打印机上得到可以接受的效果。下面我们就使用最普遍的CODE39码进行讨论。

CODE39码的编码规则是：

1、 每五条线表示一个字符；

2、 粗线表示1，细线表示0；

3、 线条间的间隙宽的表示1，窄的表示0；

4、 五条线加上它们之间的四条间隙就是九位二进制编码，而且这九位中必定有三位是1，所以称为39码；

5、 条形码的首尾各一个＊标识开始和结束

在我们的程序中，给常用的字符都进行编码，解读时先取线条粗细，再取间隙宽窄，如：

上图中的字符＊就可以解读为 001101000，字符3解读为 110000100

下面就是我们给出的子过程：

注释： 将字符串 strBarCode 对应的条形码输出到缺省打印机

Private Sub PrintBarCode( _

ByVal strBarCode As String, _

Optional ByVal intXPos As Integer = 0, _

Optional ByVal intYPos As Integer = 0, _

Optional ByVal intPrintHeight As Integer = 10, _

Optional ByVal bolPrintText As Boolean = True _

)

注释： 参数说明:

注释： strBarCode - 要打印的条形码字符串

注释： intXPos, intYPos - 打印条形码的左上角坐标(缺省为(0,0)，坐标刻度为:毫米)

注释： intHeight - 打印高度(缺省为一厘米,坐标刻度为:毫米)

注释： bolPrintText - 是否打印人工识别字符(缺省为true)

注释： "0"-"9","A-Z","-","%","$"和"*" 的条码编码格式,总共 40 个字符

Static strBarTable(39) As String

注释： 初始化条码编码格式表

strBarTable(0) = "001100100" 注释： 0

strBarTable(1) = "100010100" 注释： 1

strBarTable(2) = "010010100" 注释： 2

strBarTable(3) = "110000100" 注释： 3

strBarTable(4) = "001010100" 注释： 4

strBarTable(5) = "101000100" 注释： 5

strBarTable(6) = "011000100" 注释： 6

strBarTable(7) = "000110100" 注释： 7

strBarTable(8) = "100100100" 注释： 8

strBarTable(9) = "010100100" 注释： 9

strBarTable(10) = "100010010" 注释： A

strBarTable(11) = "010010010" 注释： B

strBarTable(12) = "110000010" 注释： C

strBarTable(13) = "001010010" 注释： D

strBarTable(14) = "101000010" 注释： E

strBarTable(15) = "011000010" 注释： F

strBarTable(16) = "000110010" 注释： G

strBarTable(17) = "100100010" 注释： H

strBarTable(18) = "010100010" 注释： I

strBarTable(19) = "001100010" 注释： J

strBarTable(20) = "100010001" 注释： K

strBarTable(21) = "010010001" 注释： L

strBarTable(22) = "110000001" 注释： M

strBarTable(23) = "001010001" 注释： N

strBarTable(24) = "101000001" 注释： O

strBarTable(25) = "011000001" 注释： P

strBarTable(26) = "000110001" 注释： Q

strBarTable(27) = "100100001" 注释： R

strBarTable(28) = "010100001" 注释： S

strBarTable(29) = "001100001" 注释： T

strBarTable(30) = "100011000" 注释： U

strBarTable(31) = "010011000" 注释： V

strBarTable(32) = "110001000" 注释： W

strBarTable(33) = "001011000" 注释： X

strBarTable(34) = "101001000" 注释： Y

strBarTable(35) = "011001000" 注释： Z

strBarTable(36) = "000111000" 注释： -

strBarTable(37) = "100101000" 注释： %

strBarTable(38) = "010101000" 注释： $

strBarTable(39) = "001101000" 注释： *

If strBarCode = "" Then Exit Sub 注释： 不打印空串

注释： 保存打印机 ScaleMode

Dim intOldScaleMode As ScaleModeConstants

intOldScaleMode = Printer.ScaleMode

注释： 保存打印机 DrawWidth

Dim intOldDrawWidth As Integer

intOldDrawWidth = Printer.DrawWidth

注释： 保存打印机 Font

Dim fntOldFont As StdFont

Set fntOldFont = Printer.Font

Printer.ScaleMode = vbTwips 注释： 设置打印用的坐标刻度为缇(twip=1)

Printer.DrawWidth = 1 注释： 线宽为 1

Printer.FontName = "宋体" 注释： 打印在条码下方字符的字体和大小

Printer.FontSize = 10

Dim strBC As String 注释： 要打印的条码字符串

strBC = Ucase(strBarCode)

注释： 将以毫米表示的 X 坐标转换为以缇表示

Dim x As Integer

x = Printer.ScaleX(intXPos, vbMillimeters, vbTwips)

注释： 将以毫米表示的 Y 坐标转换为以缇表示

Dim y As Integer

y = Printer.ScaleY(intYPos, vbMillimeters, vbTwips)

注释： 将以毫米表示的高度转换为以缇表示

Dim intHeight As Integer

intHeight = Printer.ScaleY(intPrintHeight, vbMillimeters, vbTwips)

注释： 是否在条形码下方打印人工识别字符

If bolPrintText = True Then

注释： 条码打印高度要减去下面的字符显示高度

intHeight = intHeight - Printer.TextHeight(strBC)

End If

Const intWidthCU As Integer = 30 注释： 粗线和宽间隙宽度

Const intWidthXI As Integer = 10 注释： 细线和窄间隙宽度

Dim intIndex As Integer 注释： 当前处理的字符串索引

Dim i As Integer, j As Integer, k As Integer 注释： 循环控制变量

注释： 添加起始字符

If Left(strBC, 1) <> "*" Then

strBC = "*" & strBC

End If

注释： 添加结束字符

If Right(strBC, 1) <> "*" Then

strBC = strBC & "*"

End If

注释： 循环处理每个要显示的条码字符

For i = 1 To Len(strBC)

注释： 确定当前字符在 strBarTable 中的索引

Select Case Mid(strBC, i, 1)

Case "*"

intIndex = 39

Case "$"

intIndex = 38

Case "%"

intIndex = 37

Case "-"

intIndex = 36

Case "0" To "9"

intIndex = CInt(Mid(strBC, i, 1))

Case "A" To "Z"

intIndex = Asc(Mid(strBC, i, 1)) - Asc("A") + 10

Case Else

MsgBox "要打印的条形码字符串中包含无效字符！当前版本只支持字符 注释：0注释：-注释：9注释：,注释：A注释：-注释：Z注释：,注释：-注释：,注释：%注释：,注释：$注释：和注释：*注释："

End Select

注释： 是否在条形码下方打印人工识别字符

If bolPrintText = True Then

Printer.CurrentX = x

Printer.CurrentY = y + intHeight

Printer.Print Mid(strBC, i, 1)

End If

For j = 1 To 5

注释： 画细线

If Mid(strBarTable(intIndex), j, 1) = "0" Then

For k = 0 To intWidthXI - 1

Printer.Line (x + k, y)-Step(0, intHeight)

Next k

x = x + intWidthXI

注释： 画宽线

Else

For k = 0 To intWidthCU - 1

Printer.Line (x + k, y)-Step(0, intHeight)

Next k

x = x + intWidthCU

End If

注释： 每个字符条码之间为窄间隙

If j = 5 Then

x = x + intWidthXI * 3

Exit For

End If

注释： 窄间隙

If Mid(strBarTable(intIndex), j + 5, 1) = "0" Then

x = x + intWidthXI * 3

注释： 宽间隙

Else

x = x + intWidthCU * 2

End If

Next j

Next i

注释： 恢复打印机 ScaleMode

Printer.ScaleMode = intOldScaleMode

注释： 恢复打印机 DrawWidth

Printer.DrawWidth = intOldDrawWidth

注释： 恢复打印机 Font

Set Printer.Font = fntOldFont

End Sub

最理想的情况是将它做成一个控件，在控件中提供一个打印方法，该方法实现与上

那个过程大致相同，只是不能在控件中直接使用VB的Printer对象，否则VB会将你在控件中的打印输出处理为一个单独的页面，而是应该将Printer.hDc传给它，通过调用那些需要指定 HDC 的Windows API函数实现与容器的打印输出在一个页面上，比如我们可以这样定义这个控件的打印方法：

注释： PrintIt 方法将对应的条形码输出到缺省打印机

Public Sub PrintIt(ByVal PrintDC As Long, _

Optional ByVal intXPos As Integer = 0, _

Optional ByVal intYPos As Integer = 0, _

Optional ByVal intPrintHeight As Integer = 10)

既然不能使用Printer对象，那么画线和输出文字也不能使用Printer对象的Line和Print方法，在我们的程序中至少要申明以下三个Windows API函数：

‘ 移动画笔的位置

Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long

‘ 从画笔的当前位置到（x,y）画一条线

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

‘ 在（x,y）处输出一个字符串

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

‘ MoveToEx() 函数需要的参数

Private Type POINTAPI

xp As Long

yp As Long

End Type

Dim papi As POINTAPI

画线操作为(原来的Printer.Line函数)：

MoveToEx PrintDC, x + k, y, papi

LineTo PrintDC, x + k, y + intHeight + 1

打印字符为(原来的Printer.Print函数)：

TextOut PrintDC, x, y + intHeight, Mid(strBC, i + 1, 1), 1

7、怎样用vb做出能输入数字生成条形码的程序

有一个控件，忘了叫什么了。网上搜！

8、vb 商品条形码数据库建立和数据录入的方法！！

方法一：（我知道的金蝶软件就是这样处理的）
一对多
条码表结构（至少两个字段）： 商品 条码

另外条码是有规律的，6902538004045 6902538004052
我具体的不知道，但6902538004是一样的，或许问下供货商可以有答案

举例
商品表：t_goods
fitemid fname funit
1 脉动 瓶
2 。。 。。

条码表：t_no
fitemid fnumber
1 6902538004045
1 6902538004052

刷出检索
select a.* from t_goods a
inner join t_no on a.fitemid=b.fitemid
where b.fnumber='扫描到的条码'

方法二：
fitemid fname funit fnumber
1 脉动 瓶 6902538004045；6902538004052；

条形码字段格式：6902538004045；6902538004052； (或类似的)
检索时用
select * from t_item where fnumber like('扫描到的条码'+'；'%)

9、VB二维条码生成

你学习的话
用一个OFFICE的附带的BarCode控件即可，输出是图像格式
http://www.programfan.com/blog/article.asp?id=2505

不过专业的条码打印还专是用VB的Printer控件Line函数属以画图方式输出最好
我曾开发过多种标准的条形码控件，不过是商业软件不好开放
这里有个39码的例子，你不妨看看
http://www.3800hk.com/Article/cxsj/vb/bcslvb/2005-08-06/Article_47920.html