动态链接库(dll)的好处就不多说了，这里就把如何在VB中调用VC写的dll函数的方法介绍一下，供有需要的朋友们参考，同时也免得自己以后忘了。

初次接触DLL的用户经常会遇到一个问题：在VC环境下创建的DLL，在VC里运行的好好的，可在VB应用程序中调用时却老是出现"调用约定错误"、"找不到入口点"之类的错误。这主要是由以下疏漏造成的。

首先，要注意DLL中的函数和VB中的函数声明在名称、返回类型、参数类型、参数个数等方面必须完全相同，尤其要注意大小写的问题。

其次，在DLL的.def文件中必须加上入口函数。

最后，在函数定义前必须加上extern "c"，_stdcall关键字。

其中 _stdcall 是一种函数的调用约定，有关函数的调用约定可以参考文章

比如现在做一个求数组中所有元素的和的函数，完整代码如下

DLL_test_dll.h中的代码

extern "C"

{

int _stdcall sum(int len,int* a);

}

DLL_test_dll.cpp中的代码，红色部分为自己写的代码，其余的为系统自动生成

// DLL_test_dll.cpp : 定义 DLL 应用程序的入口点。

//

#include "DLL_test_dll.h"

#include

using namespace std;

#ifdef _MANAGED

#pragma managed(push, off)

#endif

BOOL APIENTRY DllMain( HMODULE hModule,

DWORD  ul_reason_for_call,

LPVOID lpReserved

)

{

return TRUE;

}

#ifdef _MANAGED

#pragma managed(pop)

#endif

extern "C"

int _stdcall sum( int len,int* a )

{

int result = 0;

for ( int i = 0;i

{

result = result+a[i];

}

return result;

}

还要在工程中添加一个 def 文件来指定导出的函数，这个直接在VC中新建文件就可以，扩展名是  .def

DLL_test_dll.def文件中的内容为

LIBRARY "DLL_test_dll"

EXPORTS

sum  @1

把上面的代码都写好后编译就可以生成  .dll   和  .lib  文件了，下面是说如何在VB中调用并传递数组参数

首先在VB中声明dll中的函数，名字要和dll中的函数名一致，至于变量类型这个没法对应，毕竟是两种语言，不过要注意的是变量数量和变量大小应该是对应的，比如现在在C语言中 int 型是 4 字节，在VB中就要用 Integer 型来对应，函数声明方法如下

Public Declare Function sum Lib "E://Study//VB//DLL_test_dll//Debug//DLL_test_dll.dll" (ByVal a As Integer,ByRef b As Integer) As Integer

以上代码是在一行中写的

与一般函数生命的不同之处就是多了一个 Declare ，Function 后面的 sum 就是函数名，要与dll中一致，Lib 是指定dll地址的，推荐用全路径地址，不过如果只写一个名字并把dll跟程序放在一个目录下的话应该也可以，这个没试过

注意到上面参数定义的红色的 ByRef 关键字，VB中函数参数的传递有两种方式，一种是传值，就是前面那个 ByVal，另一种就是传地址，就是这里用的 ByRef，由于我们想传递数组参数，所以要用 ByRef 方式传递

函数定义完了具体要如何调用呢，请看下面的例子

Dim a As Integer      '定义一个整数，作为数组长度

Dim b(1) As Integer   '定义一个有两个数的数组，其中的1代表数组下标上界，这里与C语言是不同的

Dim c As Integer      '顶一个整数存放结果

a = 2

b(0) = 17

b(1) = 11

c = sum(a, b(0))

这里可能有点令人费解，我明明应该传数组的地址，怎么传了个 b(0) 过去呢？

这里要说的是在 C/C++ 语言中数组的地址和第一个元素的地址是相同的，VB语言中 ByRef 方式直接传递的就是参数的地址，综合上面两条就可以知道这个语句实际传递的就是数组 b 中第一个元素 b(0) 的地址，这样就完成了从VB中向dll数组参数参数的传递

参考文章：