自己编写DLL文件——注册——VB工程引用——标准EXE调用(含例子)

VB6.0的“工程-引用”中有很多控件供用户使用,但有时需要自己编写dll文件以实现某些功能。本文介绍如何自己编写一个简单的dll文件,然后在win7 64位下使用regsvr32注册,并在VB6.0中引用,最后在标准EXE中调用实现某些功能。

(1)编写dll文件
启动VB6.0,新建——Active Dll,然后写函数或过程。dll文件没有窗体,不能执行,只能被调用。例如编写一个WriteName.dll文件,其中类模块名为WriteName,函数如下:

Public Function MyName(ByVal FirstName As String,Byval LastName As String) As String
	MyName=FirstName & " " &LastName
End Function

点击文件——保存工程为test1230,文件——生成WriteName.dll。

(2)win7 64位下使用regsvr32注册dll文件
在C:\Windows\SysWOW64\下新建目录atestdll,复制生成的dll到这个目录下;点击开始,在“搜索程序和文件”里键入cmd,然后在搜索出来的cmd菜单上点右键,以管理员的权限运行;此时cmd提示符为c:\Windows\System32,键入cd\windows\syswow64,改变提示符为c:\windows\syswow64;在cmd里键入regsvr32 atestdll\WriteName.dll,回车,然后提示注册成功(注意此时使用的是syswow64目录下的regsvr32.exe,而不是system32下的regsvr32.exe)。
[Alt][Alt]
(3)在VB6.0中引用
启动VB6.0,新建——标准 EXE,然后工程——引用——浏览,打开C:\Windows\SysWOW64\ atestdll目录下的WriteName.dll,此时控件列表中不会显示WriteName.dll,而会显示他的工程名test1230,如下图所示。
3
注意(1)中如果dll文件的工程没有保存为“test1230”,而是使用默认名“工程1”,那么引用的时候,列表中会显示“工程1”如下图所示,但如果标准EXE也是用默认名“工程1”,那么会出现“名称与已存在的模块、工程或对象冲突”的问题。这说明所引用的类名和标准EXE的模块或工程的名发生冲突。
45
而且(1)中dll文件的工程保存为“test1230”,不能只是保存,这样编程环境右上角会显示“工程1(test1230.vbp)”,此处的“工程1”也需要改掉,可以双击此处在下面的“工程1”中修改。此处修改为XXX,则在引用控件列表就显示XXX。
6

7
(4)在标准EXE中调用
在标准EXE中创建一个按钮Command1,双击按钮,输入以下代码

Option Explicit
Private Sub Command1_Click()

Dim Name As String
Dim MyDll As test1230.Class1      '定义一个类模块
Set MyDll = New test1230.Class1    '举出类模块的一个新实例
Name = MyDll.MyName("Tom", "Jerry")
MsgBox Name

End Sub

注意:
1.此处Dim MyDll As test1230.Class1 '定义一个类模块
test1230.Class1中test1230为引用列表中的对象,Class1对应着test1230工程中的类模块WriteName,实际上可以将Class1也修改为WriteName,如下图所示。
8
2.其次,Set MyDll = New test1230.Class1 是要举出类模块的一个新实例,其中,以下这两句

Dim MyDll As test1230.Class1      '定义一个类模块
Set MyDll = New test1230.Class1    '举出类模块的一个新实例

也可以改写为一句:

Dim MyDll As New test1230.Class1

3.调用dll文件中的函数实现功能

Name = MyDll.MyName("Tom", "Jerry")

(5)结果
9

  • 7
    点赞
  • 36
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值