VB封装dll文件

air2013

自己常用的公用的一些函数，如何封装到.dll文件中，然后又如何调用其中的函数？我做了一下粗浅的实践，希望对大家有参考意义。
有差错欢迎指正，有要补充的欢迎提出，共同学习共同提高。

所需软件：
* VB6.0 ，后面的附件可用
* excel

基本过程：
1、安装vb6.0，运行，新建工程，选择 ActiveX dll
   这里生成的dll文件，在vb平台可通用，但是其他平台几乎不兼容，因这不是标准dll。
   引用的方式不是api，而是引用类型库，即：工具--引用，可以前绑定或后绑定方式。



2、设置工程内的"库名"和"类名"
   "库名"，即在“工具--引用”列表中的名字，在按F2后的对象浏览器中也能找到
   "类名"，即类模块的名字了。类模块里面包含着你编写的属性和方法了。
   设置好之后，保险起见，请先保存一下工程。


3、在类模块中编写属性及方法。
   本例中，库名为 dlltest ；这个库里面有两个类模块，cls1 和 cls2 。
   两个类模块里面都写了个简单的函数(方法)作例子：接收参数，然后用消息框显示出参数的内容。


4、代码编写完成后，下一步就是生成dll文件了。
   *.dll文件的文件名可随意，不影响库名和类名，"引用"列表中显示的是库名，而不是文件名


5、接着切换编程环境。来到excel的VBE中，尝试引用这个dll文件中的类型库。有如下步骤
（1）必须在系统中注册这个dll文件，尤其是换一台电脑上调用这个dll时。用管理员权限运行cmd进行注册。
       命令：regsvr32  d:\abc.dll      '指明文件所在的完全路径就是了


（2）在“工具--引用”页卡中，将dll文件中的类型库集成到当前开发环境。即：浏览--找到dll文件--确定
       若后续使用中，文件路径找不到目标文件时，引用列表会出现：丢失：****


（3）vba的代码中引用类型库，分 前绑定 和 后绑定 两种形式。
       前绑定的话，可以这样：
       dim 变量 as new 类名
       dim 变量 as new 库名.类名
       后绑定，方式为：
       dim 变量 as object
       set 变量=createobject("库名.类名")    '其中库名不可省略

代码实例：




6、取消引用

在excel中用代码方式添加或取消引用
假设，目标dll文件的位置：d:\abc.dll ，其引用中显示的名字为 dlltest 。
1．增加引用
  (1)系统注册：regsvr32 d:\abc.dll    '用管理员权限进行
  (2)添加引用：ThisWorkbook.VBProject.References.AddFromFile "d:\abc.dll"
2．取消引用
   必须按如下先后顺序进行：
  (1)取消引用：ThisWorkbook.VBProject.References.Remove ThisWorkbook.VBProject.References("dlltest")   '即在引用列表中显示的名字
  (2)系统反注册：regsvr32 /u  d:\abc.dll    '用管理员权限进行




最后，是网上找到的超迷你 vb6.0 ，可用。
在生成dll文件的最后一步，提示什么注册表错误的，忽略它，不影响最后的文件生成。   

附件： vb6.0迷你版
   百度云： 链接：https://pan.baidu.com/s/12eYSrRVCiyV2iz9APxsxJA    提取码：4pf1







补充内容 (2019-12-17 16:58):
生成结果文件的特性： 有个*.dll文件，属于MFC标准，32位。
若想生成64位的dll文件以兼容64位的office，或者进一步地，还想直接支持excel的对象模型，请使用 VS中的vb.net 这个软件，它像是vb6的后继版，语法类似。

microyip

出现错误就证明你的操作有问题，不检讨检讨，还忽略不计，哈哈

air2013

microyip 发表于 2019-12-3 23:24
出现错误就证明你的操作有问题，不检讨检讨，还忽略不计，哈哈

反对无效！
实践有效！

sunny_8848

多谢楼主分享实践经验

qw52633

恩 多谢正需要这个呢

A0101

都出现错误了，还来分享