在VB中执行变量

来源：百度知道 编辑：UC知道 时间：2024/06/02 00:38:17
在VB中执行变量
例如:将命令 MsgBox 7 储存到变量 A 中,
然后执行A

Private Sub Command1_Click()

Dim s As Object

a = "MsgBox (7)"
b="2+6+4"

Set s = CreateObject("MSScriptControl.ScriptControl")
s.Language = "VBScript"
s.Eval (a)
print s.Eval(b)
End Sub

建议将代码写成一个自定义过程（可放在当前窗体，也可放在模块里），再在需要执行代码的地方调用
如：
private sub mb()'如果写在模块里，将private改成public,mb为自定义的过
'程名
MsgBox 7
end sub
'调用时代码
call mb