主题：键盘模拟连续输入

具体实例发上来测试。说明如何测试。

1、textbox的valuechanged事件代码删除；

2、按钮代码改成这样，我测试没问题

Dim r As Row = Tables("表A").Rows(0)
Dim t As String = e.Form.Controls("TextBox1").Text
SetCursorPos (r("x"), r("y")) '鼠标位置
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Sendkeys.Sendwait(t & vbcrlf)                     '如何发送信息后触发enter键

3、你测试代码请认真一点啊。