bcencode.bas

VC编写的生成条形码的DLL文件以及得用它来生成条形码的使用例子

Attribute VB_Name = "BCEncode"
'======================================
'   条码生成函数
'   MakeBarcode
'   本函数可根据相应的参数生成条码位图
'   目前支持如下条码:
'   三九码
'   CODE 128码
'
'   返回值:
'        调用成功返回条码位图的句柄，可用BitBlt函数输出到屏幕或打印机上。
'        失败返回 Null
'
'   参数:
'        nBType          条码码制    39码为1，Code128码为3
'        lpszText        指向条码字符串的指针
'        nNarrow         条码窄单元的宽度(点数)
'        nWide           条码宽单元的宽度(点数)
'        nHeight         条码高度(点数)
'        nAngle          条码角度，可选择0，90，180，270
'
'   其它说明:
'        条码字符最长为30个字符；
'        三九码宽单元与窄单元的宽度比在2到3之间，即
'        2 <= Narrow:Wide <= 3；
'        三九码可表示的字符包括10个数字、26个英文字母以及
'        “-”、“.”、“/”、“+”、“%”、“$”和“ ”（空格）
'        CODE 128码可表示 ASCII 0 到 ASCII 127 共128个字符
'            CODE 128码的 Wide 参数未用，每单元点数由 Narrow 表示
'===========================================

Public Declare Function MakeBarCode Lib "BCEncode" _
                   (ByVal nBType As Long, _
                    ByVal lpszText As String, _
                    ByVal nNarrow As Long, _
                    ByVal nWide As Long, _
                    ByVal nHeight As Long, _
                    ByVal nAngle As Long) As Long