VB调用VC dll的返回方式

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

[cpp] view plaincopy

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

.def文件
EXPORTS TestCalc

VB部分
声明：

[vb] view plaincopy

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

调用：

[vb] view plaincopy

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

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

VC++部分：

[cpp] view plaincopy

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部分：
声明：

[vb] view plaincopy

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

调用：

[vb] view plaincopy

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

[css] view plaincopy

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部分
声明：

[vb] view plaincopy

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

调用：

[vb] view plaincopy

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

[cpp] view plaincopy

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 部分：
声明：

[vb] view plaincopy

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

[vb] view plaincopy

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函数原形：

[cpp] view plaincopy

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

声明：

[cpp] view plaincopy

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

结构体定义：

[cpp] view plaincopy

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

声明：

[vb] view plaincopy

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

结构体定义：

[vb] view plaincopy

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

VB调用VC dll的返回方式