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中的方法，

Private Declare Function rf_link_com Lib "DC_CARD_DLL32.dll" (ByVal com_no As Integer) As Integer

Private Declare Function rf_test_com Lib "DC_CARD_DLL32.dll" () As Integer

以下两个是自己的方法：

Public Sub link_test()
rvale = rf_test_com() 'rf_test_com 是 DC_CARD_DLL32.dll 中方法，在上边声明了
 If (rvale = 0) Then
i = MsgBox("测试连接成功！",1,"提示")
Else
 i = MsgBox("测试连接失败！","提示")
 End If
End Sub


Public Sub Command3_test()
com_num = 2
rvale = rf_link_com(com_num)  'rf_link_com 是 DC_CARD_DLL32.dll 中方法，在上边声明了
 If (rvale = 0) Then
i = MsgBox("打开成功！","提示")
Else
 i = MsgBox("打开失败！","提示")
 End If
 
 
End Sub

至此代码完成；

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

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

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

下一篇说明：javascript 调用你的dll ，以及出现的问题解决办法

原文地址：https://www.jb51.cc/vb/258245.html