白夜追凶结局什么意思:VB中怎样调用动态连接库

【更新】
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）