我的做法:加一个类模块TestObject,加一属性如:Xsub Form_load()
Dim test as new TestObject
test.X = 100
Text1.Text="Msgbox MyObject.X"
ScriptControl1.AddObject "MyObject",TestObject
ScriptControl1.addCode Text1.Text
end sub在VB中定义的变量是不可以在VBS中直接使用的。
Dim test as new TestObject
test.X = 100
Text1.Text="Msgbox MyObject.X"
ScriptControl1.AddObject "MyObject",TestObject
ScriptControl1.addCode Text1.Text
end sub在VB中定义的变量是不可以在VBS中直接使用的。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货