+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8299)
كود لحذف البيانات الحرفية المدخلة لحقل رقمي - cvcvcv - 02-04-13
السلام عليكم
خصصت نوع حقل معين رقمي tinyint في جدول بقاعدة بيانات بالفيجوال بيسك .
عند ادخال قيمة بداخله بطريقة details :
لو رقمية عادي ..
أما لو حرفية يقف المؤشر ولا ينتقل للخلية التي بعدها .. وهذا شئ طبيعي ..
أريد كود يعرض لي رسالة "لقد قمت بادخال قيمة حرفية في خانة هذا الحقل الرقمي" ويقوم بحذف القيمة الحرفية
وشكراً
كود لحذف البيانات الحرفية المدخلة لحقل رقمي - kslawy - 02-04-13
كود :
Dim ErrProv As New ErrorProvider
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If IsNumeric(e.KeyChar) Or Asc(e.KeyChar) = 8 Then ' يعني إذا كان المفتاح المضغوط رقمي أو هو مفتاح التراجع
e.Handled = False ' يتم السماح بالكتابة أو الحذف
ErrProv.SetError(Me.TextBox1, "") ' تفريغ أداة عرض الأخطاء
Else
e.Handled = True ' هذا الأمر لا يسمح للمستخدم بكتابة القيم النصية
ErrProv.SetError(Me.TextBox1, "لقد حاولت ادخال قيمة حرفية في خانة هذا الحقل الرقمي")
End If
End Subكود لحذف البيانات الحرفية المدخلة لحقل رقمي - cvcvcv - 03-04-13
شكرا .. جزاك الله خيراً