VB运用程序里面打印条形码地两种办法

CODE39码的编码规则是：  １、 每五条线表示一个字符;  ２、 粗线表示１，细线表示０;  ３、 线条间的间隙宽的表示１，窄的表示０;  ４、 五条线加上它们之间的四条间隙就是九位二进制编码，而且这九位中必定有三位是1，所以称为39码;  ５、 条形码的首尾各一个＊标识开始和结束  　　 在我们的程序中，给常用的字符都进行编码，解读时先取线条粗细，再取间隙宽窄，如：   　　 上图中的字符＊就可以解读为 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&nbs