TEXTBOX回车触发事件

Private Sub txtdabh_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtdabh.KeyPress

 

Dim key As String key = e.KeyChar '检验按键是否为回车键，如果是就把焦点附给button1，并执行命令

 

If key = Microsoft.VisualBasic.ChrW(13) Then '触发事件

getinfobydabh(txtdabh.Text)

'SendKeys.Send("{TAB}")

End If

 

End Sub