在VB中用什么符号执行字符串中的内容
如Winfrm="from1",如何用Winfrm来执执行如from1.caption等

解决方案 »

  1.   

    行不行呀,在VF中用&就可以,VB中就有更简单的吧
      

  2.   


    执行命令行:
    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
    Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
        ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
    End Function
    Private Sub Combo1_Click()
       Text1 = Combo1.Text
    End Sub
    Private Sub Command1_Click()
        Dim res As Boolean
        res = ExecuteLine(Text1.Text)
    End Sub
    Private Sub Form_Load()
        Combo1.AddItem "Var = msgbox(" & Chr$(34) & "¿´µ½ÁË£¿ºÜºÃÓá£" & Chr$(34) & " &  vbCrLf & " & Chr$(34) & "ÊÇ·ñ¼ÌÐøʵÑé?" & 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 = 0
    End Sub