PB OLE问题

[bedsb]

系统中EDCodeCom.dll文件
在PB中
oleobject edcodecom

edcodecom = create oleobject

li_result = edcodecom.connecttonewobject("EDCodeCom.EDCodeObj.1")

if li_result <> 0 then
ls_edcodecom = g_homepath + "\EDCodeCom.dll"
ll_rc = run("regsvr32 " + ls_edcodecom + " /s")
end if
执行这个代码。。我想问问。。EDCodeCom.EDCodeObj.1是什么意思。。1.代表什么意思。

[mnsiii]

ole 控件的属性吧

[bedsb]

还是不明白。。

[newease]

下面是PB调用WORD的示例代码，你的代码功能和其类似
OLEObject ole_object
ole_object = CREATE OLEObject


IF ole_object.ConnectToNewObject("Word.Application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
return
END IF

[newease]

[Quote=引用楼主 bedsb 的帖子:]
系统中EDCodeCom.dll文件
在PB中
oleobject edcodecom

edcodecom = create oleobject

li_result = edcodecom.connecttonewobject("EDCodeCom.EDCodeObj.1")

if li_result <> 0 then
ls_edcodecom = g_homepath + "\EDCodeCom.dll"
ll_rc = run("regsvr32 " + ls_edcodecom + " /s")
end if
执行这个代码。。我想问问。。EDCodeCom.EDCodeObj.1是什么意思。。1.代表什么意思。
[/Quote]

edcodecom.connecttonewobject("EDCodeCom.EDCodeObj.1") 调用EDCodeCom.EDCodeObj.1功能（不知道具体有功能）
if li_result <> 0 then 如果调用不成功
ls_edcodecom = g_homepath + "\EDCodeCom.dll" 获取EDCodeCom.dll 位置
ll_rc = run("regsvr32 " + ls_edcodecom + " /s") 通过regsvr32 注册 EDCodeCom.dll
end if

[newease]

如果你注册过EDCodeCom.dll 可以通过PB的browse 功能中的ole 查找其使用说明，但很难看明白

一般EDCodeCom.dll应该有开发手册可以要供货商索取