用VB怎么样做DLL文件
我是一个VB新手.想晓得用VB怎么样做DLL文件.希望哪个高手给个DLL实例.要有DLL制作代码和调用代码最好还能有想关书的下载...
我是一个VB新手.想晓得用VB怎么样做DLL文件.
希望哪个高手给个DLL实例.要有DLL制作代码和调用代码
最好还能有想关书的下载 展开
希望哪个高手给个DLL实例.要有DLL制作代码和调用代码
最好还能有想关书的下载 展开
2个回答
2014-01-01
展开全部
vb中制作dll的方法:新建时选择ActiveX Dll
,工程名改为add 把类模块命名为:myfirstdll (原名为class1)然后就可以写你的dll内容了,比如封装一个函数,这里我们封装一个从1加到n的函数:
Public Function AddN(ByVal n As Integer) As Integer
Dim i As Integer
Dim sum As Integer
For i = 0 To n
sum = i + sum
Next
AddN = sum
End Function
完成保存工作后,选择“文件”——“生成add.dll”
这样一个简单的dll完成了。你可以添加多个函数,复杂度任意!这只是以个简单的例子
下面是调用部分:
假设你有已经有了一个工程,现在需要引用刚才的dll文件。
选择“工程”-“引用”,在弹出的对话框中选浏览,选择你刚才生成的add.dll。点确定。如果说出现工程名称重复之类的提示,那是因为你的这个工程,和dll文件的工程名称一样了!你改一下工程名就行了,所以不要在新建工程时偷懒,默认的名称“工程1”会引起不必要的麻烦啊!下面是代码
在声明部分(就是代码的最上面)写:
Dim testdll As myfirstdll
form的load事件里写:
Set testdll = New myfirstdll
引用完成了
调用的代码:
MsgBox (testdll.AddN(5))
,工程名改为add 把类模块命名为:myfirstdll (原名为class1)然后就可以写你的dll内容了,比如封装一个函数,这里我们封装一个从1加到n的函数:
Public Function AddN(ByVal n As Integer) As Integer
Dim i As Integer
Dim sum As Integer
For i = 0 To n
sum = i + sum
Next
AddN = sum
End Function
完成保存工作后,选择“文件”——“生成add.dll”
这样一个简单的dll完成了。你可以添加多个函数,复杂度任意!这只是以个简单的例子
下面是调用部分:
假设你有已经有了一个工程,现在需要引用刚才的dll文件。
选择“工程”-“引用”,在弹出的对话框中选浏览,选择你刚才生成的add.dll。点确定。如果说出现工程名称重复之类的提示,那是因为你的这个工程,和dll文件的工程名称一样了!你改一下工程名就行了,所以不要在新建工程时偷懒,默认的名称“工程1”会引起不必要的麻烦啊!下面是代码
在声明部分(就是代码的最上面)写:
Dim testdll As myfirstdll
form的load事件里写:
Set testdll = New myfirstdll
引用完成了
调用的代码:
MsgBox (testdll.AddN(5))
展开全部
你好:
建议到您去买下书来学!DLL其实是一个动态链接库文件,是一些多个程序同时使用的代码
,如果您想要打开,只有运行一些文件就可以了(Windows的程序在Windows环境下操作
)。建议您不要删除哈,一旦删除肯定会出问题的。
如果你的电脑提示丢失的话:
去网上下载这个DLL文件,将其放置到system32目录下面
重启系统,或者在CMD下面运行regsvr32 *.dll注册该DLL
同时我还推荐用管家修复缺失DLL文件的,腾讯电脑管家的电脑诊所有这个功能哟!
如果您对我的答案不满意,可以继续追问或者提出宝贵意见,谢谢,祝您生活愉快
建议到您去买下书来学!DLL其实是一个动态链接库文件,是一些多个程序同时使用的代码
,如果您想要打开,只有运行一些文件就可以了(Windows的程序在Windows环境下操作
)。建议您不要删除哈,一旦删除肯定会出问题的。
如果你的电脑提示丢失的话:
去网上下载这个DLL文件,将其放置到system32目录下面
重启系统,或者在CMD下面运行regsvr32 *.dll注册该DLL
同时我还推荐用管家修复缺失DLL文件的,腾讯电脑管家的电脑诊所有这个功能哟!
如果您对我的答案不满意,可以继续追问或者提出宝贵意见,谢谢,祝您生活愉快
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询