各位大虾帮忙啊,dll 调用约定错误!!!!

[小弟万元户]

EXPORTS
	add
long add(long var1,long var2)
{
	return var1+var2;
}

Private Declare Function add Lib "..\JAPI.dll" (ByVal var1 As Long, ByVal var2 As Long) As Long

Private Sub Command1_Click()
    Text3.Text = add(CLng(Text1.Text), CLng(Text2.Text))
End Sub

运行到add函数时，dll 调用约定错误!!!!

[lyserver]

DLL声明错误，如果DLL不在系统文件夹下，则指定全路径。

[lxq19851204]

估计是声明错了，试一下SUB

Private Declare sub add Lib "..\JAPI.dll" (ByVal var1 As Long, ByVal var2 As Long) As Long

[lxq19851204]

1，使用_stdcall协定（vb 只支持这个协定”）
2，调用无返回值的函数是用Sub,不要用Funcition（dll中的函数是void类型的）
3, 如果有参数的话，最好声明时使用Byval传递（采用按值传递）