Enter va bay loi
Private Sub TxtMahang_Change()
If Len(TxtMahang.Text) >= 2 Then
SendKeys "{tab}"
End If
End Sub
*************************
Private Sub TxtMahang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
If Len(TxtMahang.Text) >= 2 Then
SendKeys "{tab}"
End If
End Sub
----------------------------------------------
Private Sub TxtTenhang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub
Bạn đang đọc truyện trên: Truyen247.Pro