为什么 SendKeys.Send("{TAB}")的时候光标跳不停

[dofly]

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
If keyData.Enter Then
SendKeys.Send("{TAB}")
End If
End Function

本意是在窗体上按回车键的时候，转换成 Tab 键，可是上面的代码执行的结果却不如人意：
当我按回车的时候，光标就会在窗体上不停的跳动，非得暂停程序才可以。
为什么不是发送一次 Tab　呢？

[liujiayu10]

Public Sub SetFocusCtrl(ByVal KeyAscii As String) '控件焦点转移(针对回车键)

On Error Resume Next
If Asc(KeyAscii) = 13 Then
SendKeys.Send("{tab}")
KeyAscii = 0
End If
End Sub

[3tzjq]

直接将 If keyCode.Enter Then SendKeys.Send("{TAB}") 写在Form的KeyPress事件中退可。你上述的问题可能是被触发了多次造成。

[liujiayu10]

Private Sub TBProduct_Name_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TBProduct_Name.KeyPress, TBProduct_Unit.KeyPress, TBProduct_BatchID.KeyPress, TBProduct_BarCode.KeyPress, TBProduct_Memo.KeyPress
SetFocusCtrl(e.KeyChar)
End Sub

[snow66]

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
If msg.wparam.toint32=13 Then
SendKeys.Send("{TAB}")
End If
End Function