VB调用VC dll的返回方式

第一种类型：数值传递
注意：在VB中，默认变量传递方式为ByRef为地址，而传递值就是用ByVal，还要注意在C++中，
int类型的变量是32位的，在VB中要用long型变量来配合。
VC++部分：

1. extern "C" _declspec(dllexport) int __stdcall TestCalc(int source)
2. {
3. //AFX_MANAGE_STATE(AfxGetStaticModuleState());
4. return(++source);
5. }

.def文件
EXPORTS TestCalc

VB部分
声明：

1. Private Declare Function TestCalc Lib "Dll.dll" (ByVal Source As Long) As Long

调用：

1. Dim Tint As Long
2. Tint = TestCalc(45)
3. MsgBox Tint, vbExclamation

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

VC++部分：

1. extern "C" _declspec(dllexport) int __stdcall MidStr(CHAR * src,CHAR * dest)
2. {
3. //AFX_MANAGE_STATE(AfxGetStaticModuleState());
4. strcpy(dest,src+1);
5. return 0;
6. }

.def文件
EXPORTS MidStr

VB部分：
声明：

1. Private Declare Function MidStr Lib "Dll.dll" (ByVal src As String, ByVal dest As String) As Long

调用：

1. Dim i As Long, s As String * 255
2. tempstr = "Hello!World"
3. i = MidStr(tempstr, s)  或者 i = MidStr("Hello!World", s)
4. MsgBox s, vbExclamation

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

VC++部分：

1. extern "C" _declspec(dllexport) int __stdcall TestByte(BYTE *p,int *length)
2. {
3. //AFX_MANAGE_STATE(AfxGetStaticModuleState());
4. *p=45;
5. *(p+1)=46;
6. *length=2;
7. return 0;
8. }

.def文件
EXPORTS TestByte

VB部分
声明：

1. Private Declare Function TestByte Lib "Dll.dll" (ByRef src As Any, ByRef length As Long) As Long

调用：

1. Dim a(0 To 10) As Byte
2. Dim i As Integer, length As Long
3. i = TestByte(a(0), length)
4. MsgBox a(0) & " " & a(1) & vbCrLf & length, vbExclamation

第四种类型：传递字符串数组 
    
1、VB TO VC :
 
 VC部分：

1. extern "C" _declspec(dllexport) int WINAPI StringArray(LPSAFEARRAY *VbArray)
2. {
3. DWORD i;
4. BSTR bSTR;    // UNICODE 字符串
5. LPSAFEARRAY pSa;
6. SAFEARRAYBOUND iBound;
7. char *arry[10];
8. for(i = 0;i < 10;i++)
9. {
10. arry[i] = "A";
11. }
12. iBound.lLbound = 0;    // 数组起始位
13. iBound.cElements = 10;    // 数据长度
14. // SafeArray描述符
15. if (*VbArray == NULL)
16. {
17. if ((pSa = SafeArrayCreate(VT_BSTR,1,&iBound)) == NULL)  // 创建SafeArray描述符
18. {
19. return FALSE;
20. }
21. *VbArray = pSa;                // 返回SafeArray描述符
22. }
23. else
24. {
25. if ((*VbArray)->cDims != 1)        // 释放为一维数组
26. return FALSE;
27. }
28. for (i = iBound.lLbound;i < iBound.cElements;i++)
29. {
30. bSTR = SysAllocString((BSTR)arry[i]);
31. //     if(FAILED(safeArrayGetElement(*VbArray,(long*)&i,&bSTR))) // 从VbArray数组读取数据
32. //{
33. //    return FALSE;
34. //}
35. // 放数组元素到VbArray数组
36. if(FAILED(safeArrayPutElement(*VbArray,(long*)&i,bSTR)))
37. {
38. return FALSE;
39. }
40. SysFreeString(bSTR); // 释放空间
41. }
42. return 1;
43. }

VB 部分：
声明：

1. Public Declare Function StringArray Lib "xxx.DLL" (byval s() As String) As Integer

1. Sub StringArrayTest()
2. Dim s()     As String
3. tmp = StringArray(s)
4. Debug.Print s(0)
5. 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函数原形：

1. extern "C" BOOL __stdcall ShowVBStrArray(VARIANT VBpStrArray)
2. {
3. SAFEARRAY FAR *pStrArrTemp = NULL;
4. long LBound;
5. long UBound;
6. BSTR HUGEP *pbstr;
7. CString strtemp;
8. if(V_VT(&VBpStrArray) != (VT_ARRAY | VT_BSTR))//判断是否为字符数组
9. return FALSE;
10. pStrArrTemp = V_ARRAY(&VBpStrArray);
11. if (SafeArrayGetDim(pStrArrTemp)!=1)//判断是否为一维数组
12. return FALSE;
13. SafeArrayGetLBound(pStrArrTemp,1,&LBound);
14. SafeArrayGetUBound(pStrArrTemp,1,&UBound);
15. SafeArrayAccessData(pStrArrTemp, (void HUGEP* FAR*)&pbstr);
16. for (int i=0;i<(UBound-LBound)+1;i++)
17. strtemp+=LPWSTR(pbstr);
18. MessageBox( 0,strtemp,"结果",MB_OK);
19. SafeArrayUnaccessData(pStrArrTemp);
20. return TRUE;
21. }

在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部分：

声明：

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

结构体定义：

1. // 电源报警模块 参数结构体
2. typedef struct tagPowerAlarm
3. {
4. char* strSIM;       // SIM 卡号
5. char* cStartTime;   // 开始时间
6. char* cEndTime;     // 终止时间
7. }PowerAlarm;
8. // 电源报警模块 返回结果结构体
9. typedef struct tagPowerResult
10. {
11. char cResultCH[20]; // 充电情况判断
12. char cResultQuality[20]; // 电池品质判断
13. char cResultHV[20]; // 过充判断
14. char cResultLV[20]; // 欠压判断
15. }PowerResult;

VB部分：

声明：

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

结构体定义：

1. ' 电源报警模块 参数结构体
2. Public Type h_PowerAlarm
3. strSIM     As String        ' SIM 卡号
4. strStartTime As String      ' 开始时间
5. strEndTime   As String      ' 终止时间
6. End Type
7. ' 电源报警模块 返回结果结构体
8. Public Type h_PowerResult
9. strResultCH As String * 20      ' 充电情况判断
10. strResultQuality As String * 20 ' 电池品质判断
11. strResultHV As String * 20      ' 过充判断
12. strResultLV As String * 20      ' 欠压判断
13. End Type