请VB中如何动态执行命令?

Question

如同VBScript中的eval()
call eval("strName=getName()")麻烦哪位大哥告知
谢谢!

Answer 1

执行外部命令可以用Shell "c:\windows\notepad", vbNormalFocus

Answer 2

不是执行外部命令，是指执行VB内部命令
如执行一条赋值语句，或是调用一个function等.
执行内容为string

Answer 3

MS Script controlhttp://www.microsoft.com/downloads/details.aspx?FamilyId=D7E31492-2595-49E6-8C02-1426FEC693AC&displaylang=en

Answer 4

MS Script controlhttp://www.microsoft.com/downloads/details.aspx?FamilyId=D7E31492-2595-49E6-8C02-1426FEC693AC&displaylang=en

Answer 5

用一下下面的控吧
它可以解释你的命令
MS Script controlhttp://www.microsoft.com/downloads/details.aspx?FamilyId=D7E31492-2595-49E6-8C02-1426FEC693AC&displaylang=en

Answer 6

你的意思是执行IDE的命令啊可以这样:
声明API:
 Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
   ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End FunctionPublic Function SecretFunction(a As Long, b As Long) As String
  SecretFunction = "Secret calculation: " & a & " * " & b & " = " & a * b
End Function界面使用:
Private Sub Command1_Click()
    Dim res As Boolean
    res = ExecuteLine(Text1.Text)
End Sub
Private Sub Command3_Click()
  ExecuteLine "var=" & Text2 & ":Form1.Text3.Text=var"
End Sub我想VB的Immediate就是这样调用的吧

Answer 7

补充一下,上面的例子可能看得不清楚
    Combo1.AddItem "Var = msgbox(" & Chr$(34) & "See!! It works!!!" & Chr$(34) & " &  vbCrLf & " & Chr$(34) & "Do you want to continue?" & Chr$(34) & ", vbYesNo + vbInformation)" & ":" & "If var = vbNo Then End"
    Combo1.AddItem "shell " & Chr$(34) & "calc.exe" & Chr$(34) & ",vbNormalFocus"
    Combo1.AddItem "msgbox SecretFunction(2,2),vbInformation"
    Combo1.AddItem "Form1.BackColor = vbRed"
    Combo1.AddItem "var = 3^2 + sin(3.1415926/4):msgbox var"
    Combo1.ListIndex = 0Private Sub Combo1_Click()
  Text1 = Combo1.Text
End Sub
ComboBox中就是一些要执行的命令