我在TEXTBOX中的keydown执行语句报错:请问老师如何修改代码
此主题相关图片如下:qq截图20181203082514.png
代码:
If e.KeyCode = Keys.ENTER Then
Dim t As String = e.Form.Controls("TextBox1").Text
ClipBoard.Clear
ClipBoard.SetText(t)
Output.Show(t)
Dim r1 As DataRow = DataTables("表A").Find("name = 'a'")
Dim r2 As DataRow = DataTables("表A").Find("name = 'b'")
SetCursorPos (r1("x"), r1("y")) '鼠标位置
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
ClipBoard.GetText(t)
SendKeys.SendWait("{Enter}")
System.Threading.Thread.Sleep(100)
SetCursorPos (r2("x"), r2("y")) '鼠标位置
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
e.Form.Controls("TextBox1").value = Nothing
e.Form.Controls("textbox1").Select()
End If