pb调用activexdll

清水河畔望星辰 2008-04-14 12:40:06
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)
...全文
120 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
VB生成dll后,用新建的vb程序能成功调用,而如pb上面的无法调用
SKY_4K_PPM 2008-04-15
  • 打赏
  • 举报
回复
这个楼上的比较懂,虽学过VB,没怎么用过
pcwe2002 2008-04-14
  • 打赏
  • 举报
回复
VB中的组件是com组件,不是动态链接库。你调用应该用
OLETxnObject EmpObj

Integer li_rc

EmpObj = CREATE OLETxnObject

li_rc = EmpObj.ConnectToNewObject("vbtest.test1")

IF li_rc < 0 THEN

DESTROY EmpObj

MessageBox("Connecting to COM Object Failed", &

"Error: " + String(li_rc))

Return

END IF

empobj.object.js(1)
这样的方式

1,072

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧