VB 调用VC带指针的DLL问题

Question

写错了
VB 
声明: 
Private   Declare   Function   Compute   Lib   "Compute.dll"   (ByRef   dD   As   Double) 
调用: 
Private   Sub   Command1_Click() 
    Dim   dB   As   double 
    Compute(dB   )     
    'MsgBox   (dB   ) 
End   Sub 

Answer 1

extern "C" void __declspec(dllexport)__stdcall  Compute(double *pA) //或者extern "C" void __stdcall  Compute(double   *pA) 
{ 
AFX_MANAGE_STATE(AfxGetStaticModuleState()); double   dC=   123; 
*pA=   dC; 
}在.def里添加：
Compute