当前位置:编程学习 > VB >>

vb怎么声明vc dll函数

我要调用一个打印机的dll,但它是用vc写的,
请问用vb6怎么声明
1、 HANDLE   OpenUsb( );  //打开USB设备
功能说明:
调用该函数将会打开极速电子科技公司生产的各系列USB打印设备,成功将返回打开的USB设备句柄,失败则返回无效句柄(INVALID_HANDLE_VALUE)。.

2、 BOOL  WriteUsb(HANDLE hUsb, //已打开的USB设备句柄
char *SendBuf,  //指向发送缓冲区的地址
DWORD WriteSize, //要写入设备的字节数
LPDWORD lBytesWritten);//指向已写入
节数的地址,用于保存写入的字节数不能为NULL。

功能说明:
调用该函数将会向打开的USB设备写入数据,成功将返回1,失败则返回0。

3、BOOL   ReadUsb(HANDLE  hUsb,  //已打开的USB设备句柄
      char  *ReadBuf,  //保存读取数据的一个缓冲区          DWORD  NumberBytesToRead, //要读入的缓冲区大小           LPDWORD  lpNumberOfBytesRead); //指向实际读取字节数的指针
功能说明:
调用该函数将会读取USB设备发送过来的数据,成功将返回1,失败则返回0。

4、void   CloseUsb(HANDLE hUsb); //打开的USB设备句柄
功能说明:
调用该函数将会关闭已打开的USB设备。

我只会写第一个函数,还不知道对不对。
Public Declare Function OpenUsb Lib "JsDll.dll" () as long
后面三个都不会写。
请高手帮忙写一下 --------------------编程问答-------------------- Public Declare Function WriteUsb Lib "JsDll.dll" (ByVal hUsb As Long, SendBuf As Any, ByVal WriteSize As Long, lBytesWritten As Long) As Long

Public Declare Function ReadUsb Lib "JsDll.dll" (ByVal hUsb As Long, ByVal NumberBytesToRead As Long, lpNumberOfBytesRead As Long) As Long

Public Declare Sub CloseUsb Lib "JsDll.dll" (ByVal hUsb As Long) --------------------编程问答-------------------- Public Declare Function OpenUsb Lib "JsDll.dll" () As Long 这个声明正确!
  --------------------编程问答--------------------
引用 2 楼 chenjl1031 的回复:
Public Declare Function OpenUsb Lib "JsDll.dll" () As Long 这个声明正确!

+1
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,