[bumb]

السلام عليكم

في الكود التالي خطأ في النتيجه حيث ينتج عنه ظهور المسج بوكس عند الضغط على أي مفتاح بما فيها الأرقام

PHP كود :

Private Sub txtCRN_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCRN.KeyPress
        If Not IsNumeric(e.KeyChar) Then
            e.Handled = True
        Else
            Dim Msg As String = "رقم السجل المدني يجب أن يكون عددا صحيحا"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
            Exit Sub
        End If
        If e.KeyChar = Chr(Keys.Enter) Then
            txtName1.Focus()
        End If
        If txtCRN.Text = "" Then
            txtCRN.Focus()
        Else
            Dim Msg As String = "يجب عليك ادخال السجل المدني"
            MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")

        End If
    End Sub 


وتقبلو تحياتي