[bumb]

السلام عليكم

لدي الكود التالي وهو ينقل المؤشر الى التكست بوكس التالي في حال تمت شروط الانتقال في الكي برس

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 


ودمتم