SCRIPT控件SUB如何更改￥

dhlhmgc · 发表于 2009-10-7 11:34:24

本帖最后由 dhlhmgc 于 2011-1-26 22:43 编辑

Dim $b = 3
Dim $strCode = StringReplace("sub Main(b)| b=b*b |End sub","|", @CRLF )
Dim $msc = ObjCreate("ScriptControl")
With $msc
.Language = "VBScript"
.AddCode ($strCode)
.Run ("Main",$b)
EndWith

MsgBox ( 0,"提示", $b )
;==========$b 为什么不等于9

sxd · 发表于 2009-10-7 23:43:24

不太懂vbs 不知道sub能不能有返回值 byref好像也不行就用函数好了


Dim $b = 3
Dim $strCode = StringReplace("Function Main(b)| Main=b*b |End Function", "|", @CRLF)
Dim $msc = ObjCreate("ScriptControl")
With $msc
        .Language = "VBScript"
        .AddCode($strCode)
        $b = .Run("Main", $b)
EndWith

MsgBox(0, "提示", $b)

78391493 · 发表于 2009-10-9 23:29:35

Sub的意思就是没有返回值的函数声明
Function是一定有返回值的

sxd · 发表于 2009-10-10 11:02:20

那sub的 byref是怎么表达的?

		自动登录	找回密码
密码			加入

[系统综合] SCRIPT控件SUB如何更改￥

相关帖子