黄胜去在监狱去世:VB中怎样调用动态连接库
我刚才已经把DLL文件有复制到你说的那几个文件夹里了,可是运行.EXE时还是提示找不到DLL文件啊~~~~
【更新】
1. 我给做了个示例工程:
www.longjus.com/kkk.rar
你下载来看看, 里面就两句:
模块中定义:
Public Declare Function fnMyFunc Lib "MYDLL.DLL" () As Long
按钮中放入:
Dim str1 As String
str1 = "函数调用成功"
If (fnMyFunc() = 42) Then MsgBox str1 '注:我那个DLL函数就返回42,其它没有了.
2. 下面重新给个微软的示例代码:
下列示例示范如何使用 Call 语句来将控制转移到子过程、内在函数、和动态链接库(DLL)过程,
' 调用一个子过程。
Call PrintToDebugWindow("Hello World")
' 上面的语句将控制转移到下面的子过程。
Sub PrintToDebugWindow(AnyString)
Debug.Print AnyString ' 在“立即”窗口中显示。
End Sub
' 调用一个内在函数,函数的返回值被忽略不处理。
Call Shell(AppName, 1) ' AppName 包含可执行文件的路径。
' 调用 Microsoft Windows DLL 过程。该声明语句必需是类模块中的私有的,而不是标准模块中的。
Private Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
Sub CallMyDll()
Call MessageBeep(0) ' 调用 Windows DLL 过程。
MessageBeep 0 ' 再次调用,但不用“调用”这个关键字。
End Sub
这个问题好解决!
你先在运行中输入:regsvr32 dll文件的绝对地址
这样就注册了!
然后你在VB中点工程-》引用,选中刚才注册的文件,
就可以在工程中用了!
如果有问题,你可以问我。(qq;63495849)
LoadLibrary你试一试,不过这个需要自己做初始化工作。(对应于FreeLibrary)