以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  如何从VBS外部对象函数的参数中 取得返回值？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=48623)
--  作者：sesamepaste
--  发布时间：2013/2/18 12:15:57
--  如何从VBS外部对象函数的参数中 取得返回值？
例如,有如下代码: 

set objTest = CreateObject("Obj.Test")

dim VarIn
dim VarOut

call objTest.funcTest(VarIn, VarOut) \' 其中VarOut是输出变量的参数， 定义为长整型Long

-----------------
执行时，系统会编译出错说 "类型不匹配"

若执行语句变为:  call objTest.funcTest(VarIn, clng(VarOut) )
则系统不再弹出出错对话框，然后执行该函数。 但随即进入死锁状态，必须重启金字塔才恢复正常。 该函数在其它环境下，如VBA中调试正常。

若函数funcTest不含输出变量的参数VarOut时，可以正常执行。

不知有何办法，能让外部对象的函数输出参数？



[此贴子已经被作者于2013-2-18 12:16:51编辑过]
--  作者：王锋
--  发布时间：2013/2/18 22:53:05
--  
可能是你做的外部对象的参数有问题
--  作者：梦想
--  发布时间：2013/2/21 19:19:35
--  
我也遇到相同问题？如你解决了，请告知。
--  作者：梦想
--  发布时间：2013/2/21 19:20:14
--  回复：（王锋）可能是你做的外部对象的参数有问题
不是外部对象问题