谁有在VB中调用自己编的win 32 DLL例子?

[jing]

我的DLL program
#include "stdafx.h"

int _declspec(dllexport) MyFunc(int a,double b);

BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
return TRUE;
}

int _declspec(dllexport) MyFunc(int a,double b)
{
return a;
}
DEF

LIBRARY dlltest
EXPORTS
MyFunc

在VB中

Public Declare Function MyFunc Lib "dlltest.DLL" (ByVal a As Long, ByVal b As Double) As Integer

Private Sub Command1_Click()
Print MyFunc(1, 1.21)
End Sub

ERRORMESSAGE：

bad DLL calling convention

[Wingsun]

在VC中：
int APIENTRY inportb(short port)

{
return _inp(port);
}
在DEF文件中：
LIBRARY Port

EXPORTS
inportb @2
在VB中
窗体级声明
Private Delcare Function InportB Lib "Port.dll" Alias "inportb" (ByVal port as Integer) as Integer

Private Sub CmdGetPortValue_Click()
dim Port as Integer
dim Value as Integer
Port=&H3e0
Value=InportB(Port)
MsgBox str(value)
End

[laiyibin]

在VC中：
extern "C" int WINAPI SendMsg(char *p1, char *p2)
{
return 0;
}

在DEF文件中：
LIBRARY TEST
EXPORTS
SendMsg

在VB中
Declare Function SendMsg Lib "TEST.DLL" (ByVal p1 As String, ByVal p2 As String) As Integer

Private Sub exam
If SendMsg("hello"," world")>0 Then
...
End If
End Sub

[NowCan]

VC中的声明改为
__stdcall int __declspec(dllexport) MyFunc(int &a,double &b)
{
return a;
}

[Un1]

VB中应声明：
Public Declare Function MyFunc Lib "dlltest.DLL" (ByVal a As integer, ByVal b As Double) As Integer