在线亚洲免费视频 I亚洲永久精品国产 I天天操夜夜拍 I日本少妇视频 I天天天操操操 I午夜视频免费播放 I亚洲资源一区 I亚洲电影影音先锋 I四虎免费在线观看 I在线国产精品视频 I亚洲专区在线播放 I日日夜夜综合 I亚洲一级片免费观看 I特级毛片网站 I性色在线视频 I中文国产字幕 I中文字幕观看av I天天色草 I特级xxxxx欧美 I亚洲精品在线观看的 I婷婷色在线资源 I色综合激情网 I亚洲国产成人精品久久

VB下POSTEK條形碼打印機(jī)編程函數(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