+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] اين الخطأ في هذا الكود (/showthread.php?tid=2328)
اين الخطأ في هذا الكود - bumb - 22-03-14
السلام عليكم
في الكود التالي خطأ في النتيجه حيث ينتج عنه ظهور المسج بوكس عند الضغط على أي مفتاح بما فيها الأرقام
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
وتقبلو تحياتي
RE: اين الخطأ في هذا الكود - beep - 22-03-14
تفضل الكود بعد التعديل
كود :
Private Sub textbox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.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, "نظام مواعيد الأعلاف")
Exit Sub
End If
If e.KeyChar = Chr(Keys.Enter) And TextBox1.Text = "" Then
Dim Msg As String = "يجب عليك ادخال السجل المدني"
MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
TextBox1.Focus()
Else
'do any thing
End If
End SubRE: اين الخطأ في هذا الكود - bumb - 22-03-14
يعطيك العافيه