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