module1.bas

1581usb的pc端通讯例程

Attribute VB_Name = "Module1"
Public Declare Function LPTStartpix Lib "C:\Documents and Settings\Administrator\桌面\手动LPTDLL\Debug\LPTDLL.dll" (ByVal name As String) As Boolean
Public Declare Function LPTGetpix Lib "C:\Documents and Settings\Administrator\桌面\手动LPTDLL\Debug\LPTDLL.dll" (ByVal x As Long, ByVal y As Long, ByVal kp As Long) As Long
'Public Declare Function LPTInitpix Lib "E:\我的c语言程序\手动LPTDLL\Debug\LPTDLL.dll" (ByVal handles As Long) As Boolean
Public Declare Function LPTEndpix Lib "C:\Documents and Settings\Administrator\桌面\手动LPTDLL\Debug\LPTDLL.dll" () As Boolean
Public Declare Function LPTInitpix Lib "C:\Documents and Settings\Administrator\桌面\手动LPTDLL\Debug\LPTDLL.dll" (ByVal handles As Long) As Boolean