这个dll函数vb如何引用

[sangelcn]

int OpenComm(HANDLE *hCom,char *com_port)
vc的调用如下：
●——hCom：串口句柄
●——com_port：串口文件名
调用例程：
char comm[]="COM1";
OpenComm(&h_Com,comm);
if(h_Com != INVALID_HANDLE_VALUE)
{
AfxMessageBox("打开串口成功!");
}
else
{
AfxMessageBox("打开串口失败!");
}
//++====================================================
请问vb如何申明调用，我这样申明调用出错
Public Declare Function OpenComm Lib "EPCDemoDll.dll" (ByRef hand As long, ByVal com As String) As Integer

调用：
Dim hand As Long
Dim comPort As String
comPort = "COM1"
OpenComm hand, comPort
报错，错误号49

请大侠指点下

[sangelcn]

谢谢，上面的方法不行。

[sangelcn]

ding

[sangelcn]

zai ding

[herohlq]

试试在图形模式，你工程管理器引用看看。

[yanlongwuhui]

没用过，试试：
Public Declare Function OpenComm Lib "EPCDemoDll.dll" (ByRef hand As Integer , ByVal com As String) As Integer

[gala168]

我也是使用不了这个函数，我的函数申明跟你一样

Public Declare Function OpenComm Lib "EPCDemoDll.dll" (hcom As Long, ByVal comm As String) As Long

-------------------------------------------
函数调用
dim hcom as long
dim comm as string*6
comm="COM1"
OpenComm hcom,comm
调用错误显示“49”

后来在百度又搜搜发现有的网友在PowerBilder调用也错误，估计说dll导出函数时候使用的不是__stdcall，
我又在函数申明里面改了点
Public Declare Function OpenComm Lib "EPCDemoDll.dll" Alias "OpenCommA" (hcom As Long, ByVal comm As String) As Long
结果还是实时错误“453”，郁闷了

[帮帮你我她]

你用工具箱的 SerialPort 控件，直接编也快啊，别人编的DLL，不见得很合理和方便的，一般是能用就不错了，看你这个DLL 像EPC 周立功的主板 WINCE系统 吧，呵呵，这种系统上DLL是多，也能用，有本该厂的手册，告诉你怎么做文件头声明的，其实他的DLL 你一个都可以不用，自己做也快哦

[帮帮你我她]

一般为了很好的调用DLL ，需要厂家说明用法的，或提供DLL源码，自己打开，基本琢磨下，就可以调用了
，非托管的调用，有时需要涉及内存分配和指针配合来调用。

[帮帮你我她]

C#和VBNET 的DLL 是指令集，很容易反汇编的，有专门软件，调用时也简单，添加到引用就可以使用了