1.一开始的时候，我在通用声明里写：
Private Declare Sub outputbdy Lib "dlltest.dll" ()
在某个按钮的单击命令下直接： call outputbdy 调用过程是可以实现的。

注：此时dll是放在vb的根目录也就是app.path下的。

2.现在，我把所有的dll都放在根目录下的bin文件夹中。这个时候，我看书上说就需要在声明
Private Declare Sub outputbdy Lib "dlltest.dll" () 中加上dll的详细目录位置，否则vb会找不到这个文件。

请问在以上情况下，改如何为dll添加具体的目录位置，谢谢各位~~~~~

[此贴子已经被作者于2007-1-10 14:27:46编辑过]

Private Declare Sub outputbdy Lib & APP.Path & "\dlltest.dll" ()
采用相对路径

Private Declare Sub outputbdy Lib "DLL路徑\dlltest.dll" ()

Private Declare Sub outputbdy Lib & APP.Path & "\bin\dlltest.dll" ()
再加一点,没看清楚!

这段代码好象不对吧 复制到vb里是红色的 应该是某个地方有问题的

再请教

提示


缺少：字符串常数

晕

搞不懂什么意思

DLL路徑就是DLL文件的完整路径

哦

但是我现在是在根目录下的 bin文件夹下 应该怎么写？

因为装在那里不确定，所以只能用app.path来确定。 请问该怎么写?

可以在运行时用App.Path得到绝对路径，然后用LoadLibrary

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32"(ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long,ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long

Private Sub Form_Load()
On Error Resume Next
Dim lb As Long,pa As Long
lb =LoadLibrary("user32")
pa =GetProcAddress(lb,"SetWindowTextA")
CallWindowProc pa,Me.hWnd,"Hello !",ByVal 0&,ByVal 0&
FreeLibrary lb
End Sub