主题：像EXCEL一样单元格输入方法

mark 翻查记录

只是做个效果，红色代码自己灵活变通，弄成字典先查询也可以

ChangeEdit事件

If e.Col.name = "第一列" Then
    vars("text") = e.text
    MyTimers("计划1").Interval = 500
    MyTimers("计划1").Enabled = True
End If

计划管理 计划1

MyTimers("计划1").Enabled = False
Dim str As String = "我们是中国人"
Dim text As String = vars("text")
If text > "" AndAlso str.StartsWith(text) Then

    systemready = False
    str = str.Replace(text, "")
    Sendkeys.SendWait(str)
    For i As Integer = 1 To str.Length
        Sendkeys.SendWait("{LEFT}")
    Next
    Sendkeys.Send("+{END}")
    systemready = True
End If