VB应用程序中打印条形码的两种方法
解读时先取线条粗细，再取间隙宽窄，如：
上图中的字符＊就可以解读为 001101000，字符３解读为 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","-","%","contentquot;和"*" 的条码编码格式,总共 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" 注释： -
strBar
上图中的字符＊就可以解读为 001101000，字符３解读为 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","-","%","contentquot;和"*" 的条码编码格式,总共 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" 注释： -
strBar