Private Sub txtserver_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtserver.KeyPress
If (e.KeyChar = Chr(13)) Then MsgBox("Enter is press!")
End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = Chr(13) Then'---------enter执行Tab功能
If TypeOf sender Is TextBox Then
CType(sender, TextBox).Focus()
CType(sender, TextBox).SelectAll()
End If
SendKeys.Send("{TAB}")
End If
If e.KeyChar = Chr(27) Then'escape-------------执行^Tab功能
If (TypeOf sender Is DateTimePicker) Then
sender.Focus()
Exit Sub