Enter Tuşu İle İlerleme

 
Private Sub Command1_Click()
'.
'.
'.
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub

Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then SendKeys "{TAB}"
End Sub

Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0
End Sub

 

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

enter tuşu � le � lerleme