7,763
社区成员
发帖
与我相关
我的任务
分享如何在VB中调用VBS里的Execute语句
VBS里的Execute语句挺好用的，例如Execute("MsgBox ""HelloWorld!""")
但是本人在VB里试了半天也调用不了，请大家帮忙！
但是本人在VB里试了半天也调用不了，请大家帮忙！
...全文
请发表友善的回复…
发表回复
feelrain 2006-11-14
- 打赏
- 举报
测试可用,谢谢jam021(jam)
jam021 2006-11-14
- 打赏
- 举报
Private Sub Command1_Click()
Dim s As ScriptControl
Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
s.AllowUI = True
s.Modules.Add "MyCalc"
s.Modules("MyCalc").AddCode "Function MyCalc()" & vbCrLf & _
"Execute(""MsgBox """"HelloWorld!"""""")" & vbCrLf & _
"End Function"
d = s.Modules("MyCalc").Run("MyCalc")
Set s = Nothing
End Sub
Dim s As ScriptControl
Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
s.AllowUI = True
s.Modules.Add "MyCalc"
s.Modules("MyCalc").AddCode "Function MyCalc()" & vbCrLf & _
"Execute(""MsgBox """"HelloWorld!"""""")" & vbCrLf & _
"End Function"
d = s.Modules("MyCalc").Run("MyCalc")
Set s = Nothing
End Sub
feelrain 2006-11-14
- 打赏
- 举报
HELP!!!
