22-03-14, 01:49 AM
السلام عليكم
في الكود التالي خطأ في النتيجه حيث ينتج عنه ظهور المسج بوكس عند الضغط على أي مفتاح بما فيها الأرقام
وتقبلو تحياتي
في الكود التالي خطأ في النتيجه حيث ينتج عنه ظهور المسج بوكس عند الضغط على أي مفتاح بما فيها الأرقام
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
وتقبلو تحياتي