modencode.bas

来自「VB税控的源代码 主要用于地方税务局的税控引用 有完整的控件和代码」· BAS 代码 · 共 113 行

Attribute VB_Name = "modEncode"
'======================================

'   条码生成函数

'===========================================

'  条码码制
Public Const CODE39 = 1
Public Const EAN13 = 2
Public Const CODE128 = 3
Public Const CODE25 = 4
Public Const ITF25 = 5
Public Const UPCA = 6
Public Const EAN8 = 7
Public Const UPCE = 8
Public Const MATRIX25 = 9
Public Const EAN128 = 10
Public Const CODEBAR = 11
Public Const CODE93 = 12
Public Const FULLASCII39 = 13
Public Const PDF417 = 14

'   旋转角度
Public Const ROTATE_0 = 0
Public Const ROTATE_90 = 90
Public Const ROTATE_180 = 180
Public Const ROTATE_270 = 270

'   可读性文字
Public Const READABLE_NULL = 0
Public Const READABLE_LEFT = 1
Public Const READABLE_RIGHT = 2
Public Const READABLE_CENTER = 3
Public Const READABLE_FULL = 4
Public Const READABLE_ABOVE = 8

'   显示错误提示信息，用于err参数
Public Const DISABLE_DISPLAY_MESSAGE = 0
Public Const ENABLE_DISPLAY_ERROR_MESSAGE = 1
Public Const ENABLE_DISPLAY_WARNING_MESSAGE = 2
Public Const ENABLE_DISPLAY_ALL_MESSAGE = 3

'  err返回的错误码
Public Const ERR_SUCCESS = 0
Public Const ERR_INVALID_BTYPE = &H20000001
Public Const ERR_INVALID_NARROW = &H20000002
Public Const ERR_INVALID_HEIGHT = &H20000003
Public Const ERR_INVALID_CHAR = &H20000004
Public Const ERR_INVALID_WIDE = &H20000005
Public Const ERR_INVALID_LEN = &H20000006
Public Const ERR_INVALID_ROTATE = &H20000007
Public Const ERR_MEMORY = &H20000008
Public Const ERR_UNKNOWN = &H20000009

Public Const ERR_INVALID_ECCLEVEL = &H2000000
Public Const ERR_INVALID_ROWCOL = &H2000000B

Public Declare Function MakeBarCode Lib "BCEncode.dll" _
                   (ByVal BType As Long, _
                    ByVal Text As String, _
                    ByVal Narrow As Long, _
                    ByVal Wide As Long, _
                    ByVal Height As Long, _
                    ByVal Rotate As Long, _
                    ByVal Readable As Long, _
                    ByRef err As Long) As Long

Public Declare Function MakeBarcodeBmpFile Lib "BCEncode.dll" _
                            (ByVal lpszFileName As String, _
                             ByVal lDpi As Long, _
                             ByVal nBType As Long, _
                             ByVal lpszText As String, _
                             ByVal Narrow As Long, _
                             ByVal Wide As Long, _
                             ByVal Height As Long, _
                             ByVal Rotate As Long, _
                             ByVal Readable As Long, _
                             ByRef err As Long) As Long

Public Declare Function MakePDF417 Lib "BCEncode.dll" _
                            (ByVal lpData As String, _
                             ByVal dwBytes As Long, _
                             ByVal nRows As Long, _
                             ByVal nCols As Long, _
                             ByVal nEccLevel As Long, _
                             ByVal nRotate As Long, _
                             ByVal xScale As Long, _
                             ByVal yScale As Long, _
                             ByRef err As Long) As Long
                             
Public Declare Function MakePDF417BitmapFile Lib "BCEncode.dll" _
                            (ByVal lpszFileName As String, _
                             ByVal lDpi As Long, _
                             ByVal lpData As String, _
                             ByVal dwBytes As Long, _
                             ByVal nRows As Long, _
                             ByVal nCols As Long, _
                             ByVal nEccLevel As Long, _
                             ByVal nRotate As Long, _
                             ByVal xScale As Long, _
                             ByVal yScale As Long, _
                             ByRef err As Long) As Long

Public Declare Function BC_Mode43 Lib "BCEncode.dll" (ByVal lpszText As String) As Byte

Public Declare Function BC_UccMode10 Lib "BCEncode.dll" (ByVal lpszText As String) As Byte

Public Declare Function GetPrinterDPI Lib "BCEncode.dll" (ByVal lpszPrinterName As String, ByVal bGetX As Boolean) As Long