pb调用activexdll
VB中定义
Public Function js(li_cs As Integer) As String
MsgBox ("pb调用")
li_cs = 2
js = "cg"
End Function
PB中应用
function string js(ref integer li_cs) LIBRARY "mk.dll"
//VB生成的dll文件名为mk.dll
string ls_jg
integer li_cs
li_cs=2
messagebox(string(li_cs),ls_jg)
//执行到这就自动退出程序,为什么?
ls_jg=js(li_cs)
messagebox(string(li_cs),ls_jg)