1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Public Class Form1
Private Sub tx1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Down Then
TextBox2.Select()
End If
If e.KeyCode = Keys.Enter Then
me.hide()
form2.show()
End If
End Sub
Private Sub tx2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
If e.KeyCode = Keys.Up Then
TextBox1.Select()
End If
If e.KeyCode = Keys.Enter Then
me.hide()
form3.show()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Select()
End Sub
End Class |
Partager