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
8.5 KiB
Plaintext
Executable File
101 lines
8.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 = 2880
|
|
TabIndex = 0
|
|
Top = 600
|
|
Width = 1335
|
|
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 A_CreatePrn Lib "WINPPLA.DLL" (ByVal selection As Long, ByVal filename As String) As Long
|
|
Private Declare Sub A_ClosePrn Lib "WINPPLA.DLL" ()
|
|
Private Declare Function A_Print_Out Lib "WINPPLA.DLL" (ByVal width As Long, ByVal height As Long, ByVal copies As Long, ByVal amount As Long) As Long
|
|
Private Declare Function A_Bar2d_Maxi Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal primary As Long, ByVal secondary As Long, ByVal country As Long, ByVal service As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
|
|
Private Declare Function A_Bar2d_Maxi_Ori Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal ori As Long, ByVal primary As Long, ByVal secondary As Long, ByVal country As Long, ByVal service As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
|
|
Private Declare Function A_Bar2d_PDF417 Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal narrow As Long, ByVal width As Long, ByVal normal As Byte, ByVal security As Long, ByVal aspect As Long, ByVal row As Long, ByVal column As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
|
|
Private Declare Function A_Bar2d_PDF417_Ori Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal ori As Long, ByVal narrow As Long, ByVal width As Long, ByVal normal As Byte, ByVal security As Long, ByVal aspect As Long, ByVal row As Long, ByVal column As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
|
|
Private Declare Function A_Bar2d_DataMatrix Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal rotation As Long, ByVal hor_mul As Long, ByVal ver_mul As Long, ByVal ECC As Long, ByVal data_format As Long, ByVal num_rows As Long, ByVal num_col As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
|
|
Private Declare Function A_Prn_Barcode Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal ori As Long, ByVal typee As Byte, ByVal narrow As Long, ByVal width As Long, ByVal height As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
|
|
Private Declare Function A_Prn_Text Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal ori As Long, ByVal font As Long, ByVal typee As Long, ByVal hor_factor As Long, ByVal ver_factor As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
|
|
Private Declare Function A_Open_ChineseFont Lib "WINPPLA.DLL" (ByVal path As String) As Long
|
|
Private Declare Function A_Prn_Text_Chinese Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal fonttype As Long, ByVal id_name As String, ByVal data As String, ByVal mem_mode As Long) As Long
|
|
Private Declare Function A_Prn_Text_TrueType Lib "WINPPLA.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_mode As Long) As Long
|
|
Private Declare Function A_Prn_Text_TrueType_W Lib "WINPPLA.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_mode As Long) As Long
|
|
Private Declare Function A_Draw_Box Lib "WINPPLA.DLL" (ByVal mode As Byte, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long, ByVal top As Long, ByVal side As Long) As Long
|
|
Private Declare Function A_Draw_Line Lib "WINPPLA.DLL" (ByVal mode As Byte, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long) As Long
|
|
Private Declare Function A_Get_Graphic Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal mem_mode As Long, ByVal format As Byte, ByVal filename As String) As Long
|
|
Private Declare Function A_Get_Graphic_ColorBMP Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal mem_mode As Long, ByVal format As Byte, ByVal filename As String) As Long
|
|
Private Declare Function A_Load_Graphic Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal Graphic_name As String) As Long
|
|
Private Declare Function A_Del_Graphic Lib "WINPPLA.DLL" (ByVal mem_mode As Long, ByVal graphic As String) As Long
|
|
Private Declare Function A_Set_Backfeed Lib "WINPPLA.DLL" (ByVal back As Long) As Long
|
|
Private Declare Function A_Set_BMPSave Lib "WINPPLA.DLL" (ByVal nSave As Long, ByVal pstrBMPFName As String) As Long
|
|
Private Declare Function A_Set_Cutting Lib "WINPPLA.DLL" (ByVal cutting As Long) As Long
|
|
Private Declare Function A_Set_Darkness Lib "WINPPLA.DLL" (ByVal darkness As Long) As Long
|
|
Private Declare Function A_Set_DebugDialog Lib "WINPPLA.DLL" (ByVal nEnable As Long) As Long
|
|
Private Declare Function A_Set_Feed Lib "WINPPLA.DLL" (ByVal rate As Byte) As Long
|
|
Private Declare Function A_Set_Form Lib "WINPPLA.DLL" (ByVal formfile As String, ByVal form_name As String, ByVal mem_mode As Long) As Long
|
|
Private Declare Function A_Set_Margin Lib "WINPPLA.DLL" (ByVal position As Long, ByVal margin As Long) As Long
|
|
Private Declare Function A_Set_Prncomport Lib "WINPPLA.DLL" (ByVal baud As Long, ByVal parity As Long, ByVal data As Long, ByVal sstop As Long) As Long
|
|
Private Declare Function A_Set_Prncomport_PC Lib "WINPPLA.DLL" (ByVal nBaudRate As Long, ByVal nByteSize 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 A_Set_Sensor_Mode Lib "WINPPLA.DLL" (ByVal ttype As Byte, ByVal continuous As Long) As Long
|
|
Private Declare Function A_Set_Speed Lib "WINPPLA.DLL" (ByVal speed As Byte) As Long
|
|
Private Declare Function A_Set_Syssetting Lib "WINPPLA.DLL" (ByVal transfer As Long, ByVal cut_peel As Long, ByVal length As Long, ByVal zero As Long, ByVal pause As Long) As Long
|
|
Private Declare Function A_Set_Unit Lib "WINPPLA.DLL" (ByVal unit As Byte) As Long
|
|
Private Declare Function A_Set_Logic Lib "WINPPLA.DLL" (ByVal Logic As Long) As Long
|
|
Private Declare Function A_Set_ProcessDlg Lib "WINPPLA.DLL" (ByVal nShow As Long) As Long
|
|
Private Declare Function A_Set_LabelVer Lib "WINPPLA.DLL" (ByVal centiInch As Long) As Long
|
|
Private Declare Sub A_Clear_Memory Lib "WINPPLA.DLL" ()
|
|
Private Declare Sub A_Feed_Label Lib "WINPPLA.DLL" ()
|
|
Private Declare Function A_Get_DLL_Version Lib "WINPPLA.DLL" (ByVal nShowMessage As Long) As String
|
|
Private Declare Function A_Get_DLL_VersionA Lib "WINPPLA.DLL" (ByVal nShowMessage As Long) As Long
|
|
Private Declare Function A_Initial_Setting Lib "WINPPLA.DLL" (ByVal ttype As Long, ByVal Source As String) As Long
|
|
Private Declare Function A_Print_Form Lib "WINPPLA.DLL" (ByVal width As Long, ByVal height As Long, ByVal copies As Long, ByVal amount As Long, ByVal form_name As String) As Long
|
|
Private Declare Function A_GetUSBBufferLen Lib "WINPPLA.DLL" () As Long
|
|
Private Declare Function A_EnumUSB Lib "WINPPLA.DLL" (ByVal buf As String) As Long
|
|
Private Declare Function A_CreateUSBPort Lib "WINPPLA.DLL" (ByVal nPort As Long) As Long
|
|
|
|
|
|
''''''WinPPLA.DLL Version 3.04AW'''''''''''
|
|
|
|
Private Sub Command1_Click()
|
|
|
|
Dim nUsbLen As Long
|
|
Dim buf As String
|
|
|
|
Print A_CreatePrn(0, "a22")
|
|
' Open USB Port
|
|
'nUsbLen = 0
|
|
'nUsbLen = A_GetUSBBufferLen() + 1
|
|
'buf = String$(nUsbLen, vbNullChar)
|
|
'Print A_EnumUSB(buf)
|
|
'Print A_CreateUSBPort(1)
|
|
|
|
Print A_Set_Darkness(10)
|
|
Print A_Get_Graphic(10, 50, 1, 66, "bb.bmp")
|
|
Print A_Prn_Barcode(100, 50, 1, 69, 1, 2, 20, 98, 1, "ABCD")
|
|
Print A_Prn_Text(200, 0, 1, 3, 0, 1, 1, 110, 2, "PPLA COMMAND")
|
|
Print A_Prn_Text_TrueType(100, 10, 40, "Times New Roman", 1, 400, 0, 0, 0, "A1", "Argox Corp.", 1)
|
|
Print A_Prn_Text_TrueType_W(100, 50, 40, 40, "Arial", 1, 400, 0, 0, 0, "A3", "TrueType Font Test", 1)
|
|
Print A_Prn_Text_TrueType(80, 100, 40, "Times New Roman", 1, 400, 0, 0, 0, "A2", "The VB links DLL successful.", 1)
|
|
Print A_Print_Out(1, 1, 2, 1)
|
|
Call A_ClosePrn
|
|
End Sub
|
|
|
|
|