批处理之家 - Powered by Discuz! Board

标题: [问题求助] 【已解决】请问在vbs中，函数如何返回在其中创建的对象？ [打印本页]

作者: g495326 时间: 2014-12-30 18:53 标题: 【已解决】请问在vbs中，函数如何返回在其中创建的对象？

我写的代码如下：
━┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉━

Option Explicit
Call main()
Function main()
	Dim tmpObj
	tmpObj = RetObj()

End Function

Function RetObj()
	Dim WshShell
	Set WshShell = WScript.CreateObject("Wscript.Shell")
	RetObj = WshShell
End Function
复制代码

运行报告错误
━┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉━

我的问题：
━┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉┉∞┉┉┉┉┉┉┉━
RT，怎么才能正确的返回对象呢，请不要使用全局变量。谢谢大家的帮助

作者: CrLf 时间: 2014-12-31 02:38

Set RetObj = WshShell
复制代码

作者: g495326 时间: 2014-12-31 09:45

谢谢楼上回复，还是不行。

作者: g495326 时间: 2014-12-31 09:47

回复 2# CrLf

好像不可以哦。

作者: yiwuyun 时间: 2014-12-31 12:28

Option Explicit
Call main()
Function main()
        Dim tmpObj
   Set     tmpObj = RetObj()

End Function

Function RetObj()
        Dim WshShell
        Set WshShell = WScript.CreateObject("Wscript.Shell")
     Set   RetObj = WshShell
End Function
复制代码

作者: g495326 时间: 2014-12-31 14:31

回复 5# yiwuyun

非常真诚的感谢您！

欢迎光临批处理之家 (http://bathome.net./)