+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=38373)
كود منع ادخال ارقام او حروف داخل التيكست بوكس - ابو نور الهدى - 30-04-21
السلام عليكم
ماهو الكود الذي يمنع ادخال حروف او ارقام داخل مربع التيكست بوكس
RE: كود منع ادخال ارقام او حروف داخل التيكست بوكس - mrfenix93 - 30-04-21
في حالة الارقام
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Asc(e.KeyChar) <> 8 Then
If Asc(e.KeyChar) < 46 Or Asc(e.KeyChar) > 57 Then
e.Handled = True
End If
End If
End Subفي حالة الحروف العربي
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Asc(e.KeyChar) <> 8 Then
If Asc(e.KeyChar) < 193 Or Asc(e.KeyChar) > 237 Then
e.Handled = True
End If
End If
End Subفي حالة الحروف الإنجليزي
كود :
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Asc(e.KeyChar) <> 8 Then
If Asc(e.KeyChar) < 65 Or Asc(e.KeyChar) > 90 And Asc(e.KeyChar) < 97 Or Asc(e.KeyChar) > 122 Then
e.Handled = True
End If
End If
End Subشرح الكود
كود :
If Asc(e.KeyChar) <> 8 Thenتجعل مسموح بالضغط علي backspace
ثم بعد ذلك اسمح بحروف معين مثلاًُ
من 46 حتي 57 التي هي من 0 الي 9 مع ال . الأرقام العشرية اذا اردت رقم صحيح تجعلها من 48 بدلا من 46
و في الحروف العربية
من 193 حتي 237
هي الحروف العربية و تضمن ال همزات و أ بجميع اشكلها و المــــــــد
اما الإنجليزي تم تقسيم لقسمين حيث حروف كابيتال و سمول و ما بين 90 و 97 لم يتضمن لأنه يتضمن رموز
RE: كود منع ادخال ارقام او حروف داخل التيكست بوكس - أبووسم - 01-05-21
كما تفضل الاخ الفاضل أنا استخدم الكود التالي كتابة ارقام فقط بحيث لا يسمح بكتابة حروف :
كود :
If (e.KeyChar < "0" Or e.KeyChar > "9") And e.KeyChar <> ControlChars.Back Then e.Handled = Trueو للحروف العربية فقط أستخدم
كود :
If (e.KeyChar < "ء" Or e.KeyChar > "ي") And e.KeyChar <> ControlChars.Back Then e.Handled = trueفي وضع TextBox_KeyPress