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

显示全部楼层 · 2008-5-17 22:54:11

Private Sub Form_Load() Form2.Show Form3.Show End SubPrivate 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 IfEnd Sub因为写的简单，所以请你注意输入时的大小写，它是即时显示的，所以显示你当前在Form1输入的最后2个字符，不管是不是输完

千问 · 2008-5-17 22:54:11

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPublic Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0End FunctionPrivate Sub Command1_Click()If Text1.Text"" Then
Dim Result As Boolean
Result= ExecuteLine(Text1.Text)End IfEnd Sub在文本框中输入Msgbox "Hello"，看看有什么结果。

千问 · 2008-5-17 22:54:11

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