zint編譯為dll后，只有兩個DLL文件（libpng16.dll和zint.dll),可以在網(wǎng)上搜索。把這兩個dll放到VB項目目錄下面。

zint?是用c語言實現(xiàn)，網(wǎng)上也有開源代碼。VB調(diào)用C函數(shù)，存在一些轉(zhuǎn)換。本程序在沒有實現(xiàn)自定義變量的情況下，

通過修改內(nèi)存值，來達(dá)到生成不同條碼目的。

Private Declare Function ZBarcode_Create Lib "zint.dll" () As Long
Private Declare Sub ZBarcode_Delete Lib "zint.dll" (ByVal symbol As Long)
Private Declare Function ZBarcode_Encode_and_Print Lib "zint.dll" (ByRef symbol As Long, ByVal content As String, ByVal Length As Long, ByVal rotate_angle As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

上面為需要用到的zint庫函數(shù)和VB直接修改內(nèi)存函數(shù)，因為原名中，symbol指針的第一個參數(shù)，就是barcode類型數(shù)值。所以

在VB里，直接修改該指針地址的前4位，就會得到不同的條碼或者二維碼。成功后，在項目目錄下會生成out.png文件

Private Sub Command1_Click()
'On Error GoTo err1

?

Dim hd, result As Long
Dim test As String
Dim change As Long
test = "12345679999mmmmmmmmmm000000333333333333eeeeeeeeeppppppppppppwwwf"

?

hd = ZBarcode_Create
change = hd
CopyMemory ByVal change, 55, 4??????? ‘55為PDF417編碼，后面有各個編碼對應(yīng)不同值
result = ZBarcode_Encode_and_Print(ByVal (hd), test, Len(test), 0)
ZBarcode_Delete (hd)
MsgBox "sucess"
'err1:
'? If Err.Number = 49 Then?? ’在調(diào)試時，會有dll函數(shù)調(diào)用約定錯誤49，生產(chǎn)exe不會有此錯誤，原因不知
'???? If (hd > 0) Then
'??????? ZBarcode_Delete (hd)
'??? End If
'
'???? Err.Clear
'? End If

?

End Sub
'?? /* Tbarcode 7 codes */
'#define BARCODE_CODE11????? 1
'#define BARCODE_C25MATRIX?? 2
'#define BARCODE_C25INTER??? 3
'#define BARCODE_C25IATA???? 4
'#define BARCODE_C25LOGIC??? 6
'#define BARCODE_C25IND????? 7
'#define BARCODE_CODE39????? 8
'#define BARCODE_EXCODE39??? 9
'#define BARCODE_EANX??????? 13
'#define BARCODE_EANX_CHK??????? 14
'#define BARCODE_EAN128????? 16
'#define BARCODE_CODABAR???? 18
'#define BARCODE_CODE128???? 20
'#define BARCODE_DPLEIT????? 21
'#define BARCODE_DPIDENT???? 22
'#define BARCODE_CODE16K???? 23
'#define BARCODE_CODE49????? 24
'#define BARCODE_CODE93????? 25
'#define BARCODE_FLAT??????? 28
'#define BARCODE_RSS14?????? 29
'#define BARCODE_RSS_LTD???? 30
'#define BARCODE_RSS_EXP???? 31
'#define BARCODE_TELEPEN???? 32
'#define BARCODE_UPCA??????? 34
'#define BARCODE_UPCA_CHK??????? 35
'#define BARCODE_UPCE??????? 37
'#define BARCODE_UPCE_CHK??????? 38
'#define BARCODE_POSTNET???? 40
'#define BARCODE_MSI_PLESSEY 47
'#define BARCODE_FIM???? 49
'#define BARCODE_LOGMARS???? 50
'#define BARCODE_PHARMA????? 51
'#define BARCODE_PZN???? 52
'#define BARCODE_PHARMA_TWO? 53
'#define BARCODE_PDF417????? 55
'#define BARCODE_PDF417TRUNC 56
'#define BARCODE_MAXICODE??? 57
'#define BARCODE_QRCODE????? 58
'#define BARCODE_CODE128B??? 60
'#define BARCODE_AUSPOST???? 63
'#define BARCODE_AUSREPLY??? 66
'#define BARCODE_AUSROUTE??? 67
'#define BARCODE_AUSREDIRECT 68
'#define BARCODE_ISBNX?????? 69
'#define BARCODE_RM4SCC????? 70
'#define BARCODE_DATAMATRIX? 71
'#define BARCODE_EAN14?????? 72
'#define BARCODE_VIN???????????? 73
'#define BARCODE_CODABLOCKF? 74
'#define BARCODE_NVE18?????? 75
'#define BARCODE_JAPANPOST?? 76
'#define BARCODE_KOREAPOST?? 77
'#define BARCODE_RSS14STACK? 79
'#define BARCODE_RSS14STACK_OMNI 80
'#define BARCODE_RSS_EXPSTACK??? 81
'#define BARCODE_PLANET????? 82
'#define BARCODE_MICROPDF417 84
'#define BARCODE_ONECODE???? 85
'#define BARCODE_PLESSEY???? 86
'
'??? /* Tbarcode 8 codes */
'#define BARCODE_TELEPEN_NUM 87
'#define BARCODE_ITF14?????? 89
'#define BARCODE_KIX???? 90
'#define BARCODE_AZTEC?????? 92
'#define BARCODE_DAFT??????? 93
'#define BARCODE_MICROQR???? 97
'
'??? /* Tbarcode 9 codes */
'#define BARCODE_HIBC_128??? 98
'#define BARCODE_HIBC_39???? 99
'#define BARCODE_HIBC_DM???? 102
'#define BARCODE_HIBC_QR???? 104
'#define BARCODE_HIBC_PDF??? 106
'#define BARCODE_HIBC_MICPDF 108
'#define BARCODE_HIBC_BLOCKF 110
'#define BARCODE_HIBC_AZTEC? 112
'
'??? /* Tbarcode 10 codes */
'#define BARCODE_DOTCODE???????? 115
'#define BARCODE_HANXIN????????? 116
'
'??? /*Tbarcode 11 codes*/
'#define BARCODE_MAILMARK??????? 121
'
'??? /* Zint specific */
'#define BARCODE_AZRUNE????? 128
'#define BARCODE_CODE32????? 129
'#define BARCODE_EANX_CC???? 130
'#define BARCODE_EAN128_CC?? 131
'#define BARCODE_RSS14_CC??? 132
'#define BARCODE_RSS_LTD_CC? 133
'#define BARCODE_RSS_EXP_CC? 134
'#define BARCODE_UPCA_CC???? 135
'#define BARCODE_UPCE_CC???? 136
'#define BARCODE_RSS14STACK_CC?? 137
'#define BARCODE_RSS14_OMNI_CC?? 138
'#define BARCODE_RSS_EXPSTACK_CC 139
'#define BARCODE_CHANNEL???? 140
'#define BARCODE_CODEONE???? 141
'#define BARCODE_GRIDMATRIX? 142
'#define BARCODE_UPNQR?????????? 143

?

總結(jié)

以上是生活随笔為你收集整理的VB 用zint 库生成PDF417及其他条码的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。