[转贴]动态加载dll - VB6论坛

[转贴]动态加载dll

我们都知道VB加载dll可以通过vb中引用来实现，可是需要动态引用呢？我通过摸索发现可以先regsvr32那个dll，然后在vb中createobject（dll插件为vb编译，若为标准dll，loadlibrary即可）。详细代码如下

复制内容到剪贴板

代码:

Dim t As String
Open "list.txt" For Input As #1
Open "reg.bat" For Output As #2
Do Until EOF(1)
Input #1, t
Print #2, "regsvr32 " & t & " /s" '注册控件
t = Replace(t, ".dll", "")
List1.AddItem t
Loop
Close
Close
Shell ("reg.bat")

'使用部分
Dim a As Object
Dim b As String
b = List1.Text & "startclass"
Set a = CreateObject(List1.Text & "." & b) ‘工程名＋ . ＋类名
a.run

原帖地址：[url]http://www.5ixbc.net/post.php?action=edit&fid=12&tid=456&pid=763&page=1&extra=page%3D1[/url]

搜索更多相关主题的帖子: 加载dll quot 动态 Dim Input

第 2 楼

CreateObject效率比较低 MSDN上说的

滚滚红尘中的白痴..........

第 3 楼

关键是动态的，要不才不用createobject呢

第 4 楼

要是用户的电脑里没有regsvr32.exe或regsvr32.exe被病毒感染了那怎么办？

大家一起来编程吧！

第 5 楼

引用:

flyue 在 2008-5-25 14:40 的发言：

要是用户的电脑里没有regsvr32.exe或regsvr32.exe被病毒感染了那怎么办？

一般不考虑吧

第 6 楼

回复 4# flyue 的帖子

程序自己内置一个，运行时释放出来

第 7 楼

引用:

lzn3303768 在 2008-5-25 21:18 的发言：

程序自己内置一个，运行时释放出来

好主意！

第 8 楼

用二进制存贮到时候释放（不可用字符，用字符的不能运行）

全能ASP/PHP/ASP.NET主机，支持月付	专业 MSSQL 数据库空间，支持月付	专业 MySQL 数据库空间，支持月付	学习型 ASP/PHP/ASP.NET 主机 30元/年
高端软件开发 = 年薪十万不是梦