04-04-14, 11:38 AM
السلام عليكم
لدي الكود التالي وهو ينقل المؤشر الى التكست بوكس التالي في حال تمت شروط الانتقال في الكي برس
وهذا هو الكود اللي في الكي برس
تكمن المشكله لما اضيف سطر في الكي داون وذلك لمنع صوت الانتر حيث بعد إضافة السطر ينتقل من دون تطبيق الشروط , والسطر هو
ودمتم
لدي الكود التالي وهو ينقل المؤشر الى التكست بوكس التالي في حال تمت شروط الانتقال في الكي برس
PHP كود :
Private Sub txtCRN_KeyDown(sender As Object, e As KeyEventArgs) Handles txtCRN.KeyDown
If e.KeyCode = Keys.Enter Then
'e.SuppressKeyPress = True
txtName1.Focus()
End If
End Sub
PHP كود :
Private Sub txtcrn_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles txtCRN.KeyPress
If Not IsNumeric(e.KeyChar) And Not e.KeyChar = Chr(Keys.Enter) Then
e.Handled = True
Dim Msg As String = "رقم السجل المدني يجب أن يكون عددا صحيحا"
MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
txtCRN.Text = ""
Exit Sub
End If
If e.KeyChar = Chr(Keys.Enter) And txtCRN.Text = "" Then
Dim Msg As String = "يجب عليك ادخال السجل المدني"
MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
txtCRN.Focus()
End If
End Sub
PHP كود :
'e.SuppressKeyPress = True
ودمتم