VB 引用外部DLL 开发 Activex Dll

VB 引用外部DLL  开发Activex Dll，项目开发需要，自学VB开发dll ,废话少说，直接上图、上文字。

例子中外部DLL 的名称DC_CARD_DLL32.dll，其中有rf_test_com()、rf_link_com()两个方法。

首先把DC_CARD_DLL32.dll放到windows/system32 或者保存工程的路径下。

打开VB，新建工程--Activex Dll  ,如下图所示

点击确定，如下图所示 建立工程

修改工程名为myDemo和类模块名为myClass

              

Ok ,双击类模块，开始编写代码，如下图是编写完成的代码

代码说明：第一行是引用外部DLL 是必做的，声明外部DLL中的方法，

[vb]  view plain  copy

 

1. Private Declare Function rf_link_com Lib "DC_CARD_DLL32.dll" (ByVal com_no As Integer) As Integer  
2.   
3. Private Declare Function rf_test_com Lib "DC_CARD_DLL32.dll" () As Integer  

以下两个是自己的方法：

[vb]  view plain  copy

 

1. Public Sub link_Test()  
2. rvale = rf_test_com() 'rf_test_com 是 DC_CARD_DLL32.dll 中方法，在上边声明了  
3.  If (rvale = 0) Then  
4. i = MsgBox("测试连接成功！", 1, "提示")  
5. Else  
6.  i = MsgBox("测试连接失败！", 1, "提示")  
7.  End If  
8. End Sub  
9.   
10.   
11. Public Sub Command3_Test()  
12. com_num = 2  
13. rvale = rf_link_com(com_num)  'rf_link_com 是 DC_CARD_DLL32.dll 中方法，在上边声明了  
14.  If (rvale = 0) Then  
15. i = MsgBox("打开成功！", 1, "提示")  
16. Else  
17.  i = MsgBox("打开失败！", 1, "提示")  
18.  End If  
19.    
20.    
21. End Sub  

至此代码完成；

开始生成DLL，如下图所示，点击新建中的生成dll,保存在工程路径下；

然后把dll 拷贝到windows/system32 下，

最后注册：点击运行，输入regsvr32 myDemo.dll  然后回车，提示注册完成。