+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=39636)
كود منع ادخال ارقام او حروف داخل التيكست بوكس - ابو نور الهدى - 04-10-21
السلام عيكم ورحمة الله وبركاته
اساتذتي الاكارم لدي مجموعة من التيكست بوكس كما موضح بالصورة المرفقة هل من الممكن ان امنع ادخال حروف او ارقام عربي او انكليزي داخلهم بكود واحد
تحياتي للجميع
RE: كود منع ادخال ارقام او حروف داخل التيكست بوكس - ابو انس - 05-10-21
وعليكم السلام ورحمة الله وبركاته
اولا الكود يجب ان يكون في حدث KeyPress للتيكست بوكس
مثال لمنع كتابة الاحرف العربية والانكليزية
كود :
If (e.KeyChar >= "a" And e.KeyChar <= "z") Or (e.KeyChar >= "A" And e.KeyChar <= "Z") Or (e.KeyChar >= "ا" And e.KeyChar <= "ي") Then
e.Handled = True
End Ifمثال لمنع كتابة كل شيء الا الارقام والفاصلة
كود :
If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
e.Handled = True
End Ifمثال لمنع كتابة حرف واحد وهو في حالتنا حرف a سمول
كود :
If (e.KeyChar = "a") Then
e.Handled = True
End IfRE: كود منع ادخال ارقام او حروف داخل التيكست بوكس - ابو نور الهدى - 05-10-21
الف شكر اخي الغالي الله يرحم والديك ويجعل عملك هذا جواز سفرك انت ووالديك وممن تحب الى الجنةامين يارب العالمين