在 VB 中调用 VC 写的 DLL

sgnaw (李逍遥) 2006-12-07

* VC++6 做 DLL 步骤

1.File->New ... 新建一个 Win32 Dynamic-Link Library 的工程
比如名称为 MyDLL , 在向导中选择空的工程。

2. 在 FileView 中对工程点右键，选 Add Files to Project ...
添加 MyDLL.cpp, MyDLL.h, MyDLL.def 三个文件.

3. 源程序内容(MyDLL.cpp, MyDLL.h, MyDLL.def)

/**//* --------------------------
MyDLL.cpp 文件
-------------------------- */
#include  <windows.h>
#include "MyDLL.h"

int WINAPI DllMain (HINSTANCE hInstance, DWORD fdwReason, PVOID pvReserved)
...{
     return TRUE ;
}

__stdcall int CALLBACK MySum(int a,int b)
...{
   return a+b;
}

/**//*----------------------
   MyDLL.h 文件
  ----------------------*/
#ifdef __cplusplus
extern "C" ...{
#endif

__stdcall int CALLBACK MySum (int, int) ;

#ifdef __cplusplus
}
#endif

;
; MyDLL.def 文件
;
LIBRARY "MyDLL"
EXPORTS
 MySum @1

4.按 F7 编译, 默认会在工程所在目录的 Debug 目录下生成一个 MyDLL.dll 文件

//-------------------------------------------------
在 Visual Basic 6 中调用 MyDLL.dll 的步骤

1.进入 VB6 , 新建一个 Standard EXE
    ( 可以把此 DLL 文件 copy 到你的 VB 工程目录中 )
2.添加一个按钮, 关双击，在代码窗口添加如下代码:

' 注意，下面的 MyDLL.dll 的位置要修改成你的位置
' 或者把 MyDLL.dll 放在你的 path 环境变量所在的目录
' 比如放在 c:windowssystem32 目录中
Private Declare Function MySum()Function MySum Lib "E:/src/vc6/learn/MyDLL/vb/MyDLL.dll" _
(ByVal S As Integer, ByVal D As Integer) As Integer

Private Sub Command1_Click()Sub Command1_Click()
Dim a As Integer
a = MySum(2, 3) ' 在这里设置一个断点
End Sub

 3.运行, 点击按钮, 观察断点运行情况.