论坛 › 『 提问交流 』 › SCRIPT控件SUB如何更改￥

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

SCRIPT控件SUB如何更改￥

本帖最后由 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如何更改￥