老师光标仍然不能回到textbox1的文本框中。光标还是在外面的程序上?
ClipBoard.SetText(tx)
SetCursorPos (r1("x"), r1("y")) '鼠标位置
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
mouse_event( MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0) '点击
mouse_event (MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
System.Threading.Thread.Sleep(100)
SendKeys.SendWait("P")
SendKeys.SendWait("{Enter}")
System.Threading.Thread.Sleep(100)
Forms("窗口1").Text = tx
Forms("窗口1").Show()
ShowAppWindow("窗口1", 2)
Forms("窗口1").Controls("textbox1").Select()
Forms("窗口1").Controls("TextBox1").Text = Nothing