pb怎么调用vb.net写的dll？

[jojoova]

我用vb.net的类库写了个dll，代码是这样的（套用某大侠的代码，不是我自己写的）
Public Class Class1
Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Int32) As Int32
Declare Function lClose Lib "kernel32" Alias "_lclose" (ByVal hFile As Int32) As Int32
Public Function IsFileAlreadyOpen(ByVal FileName As String) As Boolean
Dim hFile As Long
Dim lastErr As Long
hFile = -1 ' 初始化文件句柄.
lastErr = 0
hFile = lOpen(FileName, &H10)

If hFile = -1 Then ' 文件是否能正确打开并可共享
lastErr = Err.LastDllError
Else
lClose(hFile)
End If
IsFileAlreadyOpen = (hFile = -1) And (lastErr = 32)
End Function
End Class
然后用pb调用的时候出现这个提示bad runtime function reference at line xx...
是为什么啊？怎样才能正确调用该dll？

[yiguanjun]

学习

[jojoova]

或者有其他比较好的判断文件已打开的方法？

[jojoova]

问题已解决，可以用pb自己的fileopen判断

[pb8]

呵呵，上面的API也可以直接在PB里面声明调用的呀，
如果是pb10以后，在pbt处单击右键就可以加载.net的dll的，使用import extends...,
呵呵，

[chaoleo]

哈哈,PB调用VB的DLL,这个问题我花几天时间刚刚解决~VB写的DLL与其它DLL不一定;因为VB写的DLL文件在生成DLL文件时封装了class,所以不能用常规的方法调用;参议你写能OCX用OLE调用,保证一次能通过.

[pb8]

[Quote=引用 5 楼 chaoleo 的回复:]
哈哈,PB调用VB的DLL,这个问题我花几天时间刚刚解决~VB写的DLL与其它DLL不一定;因为VB写的DLL文件在生成DLL文件时封装了class,所以不能用常规的方法调用;参议你写能OCX用OLE调用,保证一次能通过.
[/Quote]

呵呵，首先恭喜你~~
不过楼主的问题与你有点不一样，他应该已经解决了的，
不同语言间的交互都会有些区别，比如pb调用delphi与c的东东，在delphi与c端都需要注意的，而不只是pb注意声明就好了，
楼主的因为是调用windows内核提供的函数，直接在pb中声明就可以了，没必要再转一个弯~~