Private Sub Command1_Click()
Dim a As Integer
Dim ob As Object
Set ob = CreateObject("scriptcontrol")
ob.Language = "VBscript"
ob.ExecuteStatement "a = 5"
a = 3
ob.ExecuteStatement "msgbox a"
直接改变量是不行的.
正好以前做过类似的一件事, 折腾了半天也算达到目的了.
你得先搞一个类, 把你需要改变的值定义为这个类的公有变量.
比如说:
clase sss
public a as string
...
end clase
然后你在程序内部实例化:
dim SS as new sss
然后你就可以script或者callbyname了, (实际上对着一个变量你能做的也就是赋值而已)