VB调用VC dll的返回方式

第一种类型：数值传递
注意：在VB中，默认变量传递方式为ByRef为地址，而传递值就是用ByVal，还要注意在C++中，
int类型的变量是32位的，在VB中要用long型变量来配合。
VC++部分：
extern "C" _declspec(dllexport) int __stdcall TestCalc(int source){ //AFX_MANAGE_STATE(AfxGetStaticModuleState()); return(++source);}

.def文件
EXPORTS TestCalc

 

VB部分
声明：
Private Declare Function TestCalc Lib "Dll.dll" (ByVal Source As Long) As Long
调用：
Dim Tint As LongTint = TestCalc(45)MsgBox Tint, vbExclamation 



第二种类型：传递字符串，主要用于字符串返回或者处理。

 

VC++部分：
extern "C" _declspec(dllexport) int __stdcall MidStr(CHAR * src,CHAR * dest){ //AFX_MANAGE_STATE(AfxGetStaticModuleState()); strcpy(dest,src+1); return 0;}

.def文件
EXPORTS MidStr

VB部分：
声明：
Private Declare Function MidStr Lib "Dll.dll" (ByVal src As String, ByVal dest As String) As Long
调用：
Dim i As Long, s As String * 255tempstr = "Hello!World"i = MidStr(tempstr, s) 或者 i = MidStr("Hello!World", s)MsgBox s, vbExclamation 

第三种类型：传递数组和变量指针，主要用于从dll中读出大量数据

VC++部分：
extern "C" _declspec(dllexport) int __stdcall TestByte(BYTE *p,int *length){ //AFX_MANAGE_STATE(AfxGetStaticModuleState()); *p=45; *(p+1)=46; *length=2; return 0;}

.def文件
EXPORTS TestByte

VB部分
声明：
Private Declare Function TestByte Lib "Dll.dll" (ByRef src As Any, ByRef length As Long) As Long
调用：
Dim a(0 To 10) As ByteDim i As Integer, length As Longi = TestByte(a(0), length)MsgBox a(0) & " " & a(1) & vbCrLf & length, vbExclamation 
第四种类型：传递字符串数组
   
1、VB TO VC :
 
 VC部分：
      extern "C" _declspec(dllexport) int WINAPI StringArray(LPSAFEARRAY *VbArray) { DWORD i; BSTR bSTR; // UNICODE 字符串 LPSAFEARRAY pSa; SAFEARRAYBOUND iBound; char *arry[10]; for(i = 0;i < 10;i++) { arry[i] = "A"; } iBound.lLbound = 0; // 数组起始位 iBound.cElements = 10; // 数据长度 // SafeArray描述符 if (*VbArray == NULL) { if ((pSa = SafeArrayCreate(VT_BSTR,1,&iBound)) == NULL) // 创建SafeArray描述符 { return FALSE; } *VbArray = pSa; // 返回SafeArray描述符 } else { if ((*VbArray)->cDims != 1) // 释放为一维数组 return FALSE; } for (i = iBound.lLbound;i < iBound.cElements;i++) { bSTR = SysAllocString((BSTR)arry[i]); // if(FAILED(safeArrayGetElement(*VbArray,(long*)&i,&bSTR))) // 从VbArray数组读取数据 //{ // return FALSE; //} // 放数组元素到VbArray数组 if(FAILED(safeArrayPutElement(*VbArray,(long*)&i,bSTR))) { return FALSE; } SysFreeString(bSTR); // 释放空间 } return 1; }
       
VB 部分：
声明：

Public Declare Function StringArray Lib "xxx.DLL" (byval s() As String) As Integer
Sub StringArrayTest() Dim s() As String tmp = StringArray(s) Debug.Print s(0)End Sub

2、VB TO VC

VB的字符串数组是由BSTR组成的SafeArray类型，所以VB里DLL函数如此声明：
Private Declare FunctionMyFun Lib "MyDll" (ByVal strarr As Variant) As Long

建立MFC DLL工程，名为 ShowVBStrArr 编译生成 ShowVBStrArr.DLL
DLL函数原形：
extern "C" BOOL __stdcall ShowVBStrArray(VARIANT VBpStrArray){SAFEARRAY FAR *pStrArrTemp = NULL;long LBound;long UBound;BSTR HUGEP *pbstr;CString strtemp;if(V_VT(&VBpStrArray) != (VT_ARRAY | VT_BSTR))//判断是否为字符数组return FALSE;pStrArrTemp = V_ARRAY(&VBpStrArray);if (SafeArrayGetDim(pStrArrTemp)!=1)//判断是否为一维数组return FALSE;SafeArrayGetLBound(pStrArrTemp,1,&LBound);SafeArrayGetUBound(pStrArrTemp,1,&UBound);SafeArrayAccessData(pStrArrTemp, (void HUGEP* FAR*)&pbstr);for (int i=0;i<(UBound-LBound)+1;i++)strtemp+=LPWSTR(pbstr);MessageBox( 0,strtemp,"结果",MB_OK);SafeArrayUnaccessData(pStrArrTemp);return TRUE;}

在DLL工程的def文件里编辑如下：
EXPORTS
ShowVBStrArray


VB源码：
Option Explicit
Private Declare Function ShowVBStrArray Lib "xxx.dll" (ByVal pstr As Variant) As Long

Private Sub Command1_Click()
Dim prompt(1) As String
prompt(0) = "Hello"
prompt(1) = "World"

ShowVBStrArray prompt
End Sub 

 

第五种 传结构体

由于需要根据需求向DLL中传入多种值或者需要从DLL中返回多种数据，都可以传结构体，不过得注意VB和VC的类型对应。具体操作如下：VC部分：

声明：

extern "C" _declspec(dllexport) BOOL WINAPI cPowerAlarm(PowerAlarm* tagPower,PowerResult* tagResult)

 结构体定义：

// 电源报警模块 参数结构体typedef struct tagPowerAlarm{char* strSIM;// SIM 卡号char* cStartTime;// 开始时间char* cEndTime;// 终止时间}PowerAlarm;// 电源报警模块 返回结果结构体typedef struct tagPowerResult{char cResultCH[20];// 充电情况判断char cResultQuality[20]; // 电池品质判断char cResultHV[20];// 过充判断char cResultLV[20];// 欠压判断}PowerResult;

 VB部分：

声明：

Public Declare Function cPowerAlarm Lib "DataDiagnose.DLL" (ByRef myPower As h_PowerAlarm, ByRef myPowerResult As h_PowerResult) As Integer

结构体定义：

' 电源报警模块 参数结构体Public Type h_PowerAlarm strSIM As String ' SIM 卡号 strStartTime As String ' 开始时间 strEndTime As String ' 终止时间End Type' 电源报警模块 返回结果结构体Public Type h_PowerResult strResultCH As String * 20 ' 充电情况判断 strResultQuality As String * 20 ' 电池品质判断 strResultHV As String * 20 ' 过充判断 strResultLV As String * 20 ' 欠压判断End Type