Question

VB如何运行“输入的文字”？

比如：在form1.text1.text里输入“form2.text2.text=30”，那么form2.text2.text就等于30，如果输入“form3.text1.text=20”,那么form3.text1.text就等于20，这个如何做到？
我不需要显示数字，我要知道怎么运行

Answer 1

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 Function

Private Sub Command1_Click()
If Text1.Text <> "" Then
Dim Result As Boolean
Result= ExecuteLine(Text1.Text)
End If
End Sub

在文本框中输入Msgbox "Hello"，看看有什么结果。

Answer 2

Private Sub Form_Load()
Form2.Show
Form3.Show

End Sub

Private Sub Text1_Change()
If Mid(Text1, 1, 5) = "Form2" Then
Form2.Text1 = Mid(Form1.Text1, Len(Form1.Text1) - 1, 2)
ElseIf Mid(Text1, 1, 5) = "Form3" Then
Form3.Text1 = Mid(Form1.Text1, Len(Form1.Text1) - 1, 2)
End If
End Sub

因为写的简单，所以请你注意输入时的大小写，它是即时显示的，所以显示你当前在Form1输入的最后2个字符，不管是不是输完

Answer 3

在对应的每个TEXT控件的Change事件中输入语句，绝对正确！

Answer 4

好像只能分解字符串，然后用select case 来完成。