d030bbabe2
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 766 git-svn-id: svn://10.65.10.50/trunk@14628 c028cbd2-c16b-5b4b-a496-9718f37d4682
101 lines
7.5 KiB
Plaintext
Executable File
101 lines
7.5 KiB
Plaintext
Executable File
VERSION 5.00
|
|
Begin VB.Form Form1
|
|
Caption = "Form1"
|
|
ClientHeight = 3195
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 4680
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 3195
|
|
ScaleWidth = 4680
|
|
StartUpPosition = 3 'Windows Default
|
|
Begin VB.CommandButton Command1
|
|
Caption = "Command1"
|
|
Height = 735
|
|
Left = 2640
|
|
TabIndex = 0
|
|
Top = 600
|
|
Width = 1815
|
|
End
|
|
End
|
|
Attribute VB_Name = "Form1"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Private Declare Function Z_CreatePrn Lib "WINPPLZ.DLL" (ByVal selection As Long, ByVal filename As String) As Long
|
|
Private Declare Sub Z_ClosePrn Lib "WINPPLZ.DLL" ()
|
|
Private Declare Function Z_Print_Out Lib "WINPPLZ.DLL" (ByVal copies As Long, ByVal sets As Long) As Long
|
|
Private Declare Function Z_Bar2d_Maxi Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal nMode As Long, ByVal nSymbol As Long, ByVal nTotal As Long, ByVal nClass As Long, ByVal nCountry As Long, ByVal cZipCode1 As String, ByVal cZipCode2 As String, ByVal data As String, ByVal increase As Long) As Long
|
|
Private Declare Function Z_Bar2d_PDF417 Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal o As Long, ByVal h As Long, ByVal s As Long, ByVal c As Long, ByVal r As Long, ByVal t As Long, ByVal narrow As Long, ByVal data As String, ByVal increase As Long) As Long
|
|
Private Declare Function Z_Bar2d_QRCode Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal nModel As Long, ByVal nMagni As Long, ByVal nErr_Cor As Long, ByVal nInput As Long, ByVal data As String, ByVal increase As Long) As Long
|
|
Private Declare Function Z_Prn_Barcode Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal ori As Long, ByVal narrow As Long, ByVal width As Long, ByVal height As Long, ByVal bar_type As Byte, ByVal increase As Long, ByVal data As String, ByVal p1 As Byte, ByVal p2 As Byte, ByVal p3 As Byte, ByVal p4 As Byte, ByVal p5 As Byte) As Long
|
|
Private Declare Function Z_Prn_Text Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal ori As Long, ByVal font As Byte, ByVal height As Long, ByVal width As Long, ByVal numeric As Long, ByVal data As String) As Long
|
|
Private Declare Function Z_Open_ChineseFont Lib "WINPPLZ.DLL" (ByVal path As String) As Long
|
|
Private Declare Function Z_Prn_Text_Chinese Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal fonttype As Long, ByVal id_name As String, ByVal data As String, ByVal mem As Long) As Long
|
|
Private Declare Function Z_Prn_Text_TrueType Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal FSize 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, ByVal mem As Long) As Long
|
|
Private Declare Function Z_Prn_Text_TrueType_W Lib "WINPPLZ.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, ByVal mem As Long) As Long
|
|
Private Declare Function Z_Draw_Box Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long, ByVal thickness As Long) As Long
|
|
Private Declare Function Z_Draw_Line Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long) As Long
|
|
Private Declare Function Z_Get_Graphic_ColorBMP Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal mem As Long, ByVal filename As String) As Long
|
|
Private Declare Function Z_Load_Graphic Lib "WINPPLZ.DLL" (ByVal x As Long, ByVal y As Long, ByVal memory As Long, ByVal graphicname As String, ByVal hori As Long, ByVal vert As Long) As Long
|
|
Private Declare Function Z_Del_Graphic Lib "WINPPLZ.DLL" (ByVal memory As Long, ByVal graphicname As String) As Long
|
|
Private Declare Function Z_Set_FlashMemory Lib "WINPPLZ.DLL" (ByVal Status As Long) As Long
|
|
Private Declare Sub Z_Set_Format_New Lib "WINPPLZ.DLL" (ByVal FormatName As String)
|
|
Private Declare Function Z_Set_Backfeed Lib "WINPPLZ.DLL" (ByVal nDistance As Long) As Long
|
|
Private Declare Function Z_Set_Darkness Lib "WINPPLZ.DLL" (ByVal darkness As Long) As Long
|
|
Private Declare Function Z_Set_DebugDialog Lib "WINPPLZ.DLL" (ByVal nEnable As Long) As Long
|
|
Private Declare Function Z_Set_Prncomport Lib "WINPPLZ.DLL" (ByVal baud As Long, ByVal parity As Long, ByVal data As Long, ByVal stopbit As Long) As Long
|
|
Private Declare Function Z_Set_Prncomport_PC Lib "WINPPLZ.DLL" (ByVal nBaudRate As Long, ByVal nBytesSize As Long, ByVal nParity As Long, ByVal nStopBits As Long, ByVal nDsr As Long, ByVal nCts As Long, ByVal nXonXoff As Long) As Long
|
|
Private Declare Function Z_Set_Speed Lib "WINPPLZ.DLL" (ByVal speed As Long) As Long
|
|
Private Declare Function Z_Set_Origin Lib "WINPPLZ.DLL" (ByVal y As Long) As Long
|
|
Private Declare Function Z_Set_Label Lib "WINPPLZ.DLL" (ByVal Length As Long) As Long
|
|
Private Declare Function Z_Set_Mode Lib "WINPPLZ.DLL" (ByVal mode As Byte) As Long
|
|
Private Declare Function Z_Set_Paper Lib "WINPPLZ.DLL" (ByVal mode As Byte) As Long
|
|
Private Declare Sub Z_Set_Reset Lib "WINPPLZ.DLL" ()
|
|
Private Declare Function Z_Set_TPH Lib "WINPPLZ.DLL" (ByVal mode As Byte) As Long
|
|
Private Declare Function Z_Set_Unit Lib "WINPPLZ.DLL" (ByVal Unit As Byte) As Long
|
|
Private Declare Function Z_Set_Gap Lib "WINPPLZ.DLL" (ByVal nPatern As Long, ByVal nGaplen As Long) As Long
|
|
Private Declare Function Z_Set_ProcessDlg Lib "WINPPLZ.DLL" (ByVal nShow As Long) As Long
|
|
Private Declare Function Z_Set_PrintWidth Lib "WINPPLZ.DLL" (ByVal nDotWidth As Long) As Long
|
|
Private Declare Function Z_Get_DLL_Version Lib "WINPPLZ.DLL" (ByVal nShowmessage As Long) As String
|
|
Private Declare Function Z_Get_DLL_VersionA Lib "WINPPLZ.DLL" (ByVal nShowmessage As Long) As Long
|
|
Private Declare Function Z_Initial_Setting Lib "WINPPLZ.DLL" (ByVal mode As Long, ByVal Source As String) As Long
|
|
Private Declare Function Z_Print_Form Lib "WINPPLZ.DLL" (ByVal labset As Long, ByVal copies As Long, ByVal mem As Long, ByVal formout As String) As Long
|
|
Private Declare Function Z_Del_Format Lib "WINPPLZ.DLL" (ByVal nMem As Long, ByVal formname As String) As Long
|
|
Private Declare Sub Z_Clear_Memory Lib "WINPPLZ.DLL" ()
|
|
Private Declare Function Z_Print_OutQuality Lib "WINPPLZ.DLL" (ByVal nTotal As Long, ByVal copies As Long, ByVal sets As Long, ByVal nPause As Long) As Long
|
|
Private Declare Function Z_GetUSBBufferLen Lib "WINPPLZ.DLL" () As Long
|
|
Private Declare Function Z_EnumUSB Lib "WINPPLZ.DLL" (ByVal buf As String) As Long
|
|
Private Declare Function Z_CreateUSBPort Lib "WINPPLZ.DLL" (ByVal nPort As Long) As Long
|
|
|
|
Private Sub Command1_Click()
|
|
Dim nUsbLen As Long
|
|
Dim buf As String
|
|
|
|
Print Z_CreatePrn(1, "PPLZ.prn")
|
|
' Open USB Port
|
|
'nUsbLen = 0
|
|
'nUsbLen = Z_GetUSBBufferLen() + 1
|
|
'buf = String$(nUsbLen, vbNullChar)
|
|
'Print Z_EnumUSB(buf)
|
|
'Print Z_CreateUSBPort(1)
|
|
|
|
|
|
Print Z_Set_Darkness(10)
|
|
Print Z_Set_Speed(3)
|
|
|
|
Print Z_Prn_Text(100, 100, 1, 65, 20, 18, 1, "A123456789")
|
|
|
|
Print Z_Prn_Text_TrueType(200, 100, 100, "Times New Roman", 1, 400, 0, 0, 0, "AA", "Argox Corp.", 0);
|
|
Print Z_Prn_Text_TrueType_W(100, 50, 20, 16, "Arial", 4, 400, 0, 0, 0, "CD", "Library function Test", 0)
|
|
|
|
Print Z_Draw_Box(10, 10, 150, 50, 5)
|
|
Print Z_Draw_Line(10, 100, 100, 15)
|
|
|
|
Print Z_Prn_Barcode(100, 150, 1, 2, 3, 20, 51, 0, "12345", 89, 89, 89, 89, 89)
|
|
|
|
Print Z_Print_Out(1, 1)
|
|
Call Z_ClosePrn
|
|
End Sub
|