紧急求助关于,PB调用vb写的Dll

Question

我在测试时用vb 写了个最简单的dll
项目名ptest.vbp,类名test
Option Explicit
Public Function test1(newvalue As String) As Integer
On Error GoTo err_handle
    MsgBox newvalue
    test1 = 2
    MsgBox "ok"
    Exit Function
err_handle:
    MsgBox Err.Description
End Function编译成ptest.dll
用pb6.0调用时出错,请教高手如何调用

Answer 1

先用vc带的depends工具看看vb做的dll是不是输出了test1函数.
把dll copy到你的pb当前工作目录.
在pb中declare global extenal functions添加像下面这样.
FUNCTION boolean BringWindowToTop( ulong HWND ) Library "user32" 

Answer 2

多谢,
我先用你的方法用depends打开了dll,在左部树形结构中只有根ptest.dll(子树有msvbvm60.dll,user32.dll等vb 的运行dll,我没找到test1,在哪个模块中看??同样的dll,
我在vb中只要dim obj_a as new test,调用时obj_a.test1