综合激情网激情五月天,欧美一不卡在线视频,福利视频 在线观看,青娱乐青青草视频在线,青青视频在线新免费观看,亚洲一区二区三区欧美色妞,国产又粗又猛大又爽又黄,一本大到?无码?高清?在线,亚洲中文字幕av在线免费观看

VB下POSTEK條形碼打印機編程函數(shù)示例

Option Explicit
Private Declare Function PTK_Getinfo Lib "CDFPSK.DLL" () As Integer
Private Declare Function PTK_SetPrintSpeed Lib "CDFPSK.DLL" (ByVal speed As Integer) As Long
Private Declare Function PTK_SetDarkness Lib "CDFPSK.DLL" (ByVal darkness As Integer) As Long
Private Declare Function PTK_DrawBarcode Lib "CDFPSK.DLL" (ByVal px As Long, ByVal py As Long, ByVal pdirec As Long, ByVal typee As String, ByVal NarrowWidth As Long, ByVal pHorizontal As Long, ByVal pVertical As Long, ByVal ptext As Byte, ByVal pstr As String) As Long
Private Declare Function OpenPort Lib "CDFPSK.DLL" (ByVal OP As Long) As Long
Private Declare Sub ClosePort Lib "CDFPSK.DLL" ()
Private Declare Function PTK_DrawTextTrueTypeW Lib "CDFPSK.DLL" (ByVal x As Long, ByVal y As Long, ByVal FHeight As Long, ByVal FWidth As Long, ByVal FType As String, ByVal Fspin As Long, ByVal FWeight As Long, ByVal FItalic As Long, ByVal FUnline As Long, ByVal FStrikeOut As Long, ByVal id_name As String, ByVal data As String) As Long
Private Declare Function PTK_PcxGraphicsDel Lib "CDFPSK.DLL" (ByVal pid As String) As Long
Private Declare Function PTK_PcxGraphicsDownload Lib "CDFPSK.DLL" (ByVal pcxname As String, ByVal pcxpath As String) As Long
Private Declare Function PTK_PrintLabel Lib "CDFPSK.DLL" (ByVal number As Integer, ByVal cpnumber As Integer) As Long
Private Declare Function PTK_PrintPCX Lib "CDFPSK.DLL" (ByVal px As Integer, ByVal py As Integer, ByVal filename As String) As Long
Private Declare Function PTK_DrawPcxGraphics Lib "CDFPSK.DLL" (ByVal x As Long, ByVal y As Long, ByVal gname As String) As Long
Private Declare Function PTK_DrawLineOr Lib "CDFPSK.DLL" (ByVal px As Integer, ByVal py As Integer, ByVal plength As Integer, ByVal pH As Integer) As Long
Private Declare Function GetErrState Lib "CDFPSK.DLL" () As Integer
Private Declare Function PTK_SetLabelHeight Lib "CDFPSK.DLL" (ByVal lheight As Integer, ByVal gapH As Integer) As Integer
Private Declare Function PTK_SetLabelWidth Lib "CDFPSK.DLL" (ByVal lwidth As Integer) As Integer
Private Declare Function SetPCComPort Lib "CDFPSK.DLL" (ByVal BaudRate As Integer, ByVal HandShake As Boolean) As Integer
Private Declare Function PTK_DrawText Lib "CDFPSK.DLL" (ByVal px As Integer, ByVal py As Integer, ByVal pdirec As Integer, ByVal pFont As Integer, ByVal pHorizontal As Integer, ByVal pVertical As Integer, ByVal ptext As Byte, ByVal pstr As String) As Long
Private Sub Command1_Click()
OpenPort 1
'SetPCComPort 38400, True
PTK_SetDarkness 10
PTK_SetPrintSpeed 4

'PTK_Getinfo (void)
PTK_DrawBarcode 115, 120, 0, "9", 3, 2, 60, 66, "5451T-11-M"
'PTK_DrawBarcode 115, 150, 0, "3C", 2, 4, 60, 66, "236666456"
PTK_PcxGraphicsDel "*"
PTK_PcxGraphicsDownload "aab", "F:\DLL FOR POSTEK\VB TEST\PHONE.PCX" '請更改為PHONE.PCX文件的當(dāng)前路徑
PTK_DrawPcxGraphics 400, 210, "aab"
'PTK_DrawLineOr 50, 180, 2, 100
PTK_DrawTextTrueTypeW 80, 50, 40, 0, "Arial", 1, 400, 0, 0, 0, "AB", "PosteK Printer"
'PTK_DrawText 100, 100, 0, 2, 1, 1, 78, "7777"
'Text1.Text = GetErrState()
PTK_PrintLabel 1, 1
ClosePort
End Sub