تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود منع ادخال ارقام او حروف داخل التيكست بوكس
#1
السلام عليكم 
ماهو الكود الذي يمنع ادخال حروف او ارقام داخل  مربع التيكست بوكس
الرد
تم الشكر بواسطة:
#2
في حالة الارقام
كود :
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  لم  يتضمن  لأنه يتضمن رموز
الرد
تم الشكر بواسطة: أسعد , أسعد , عبد الهادي بهاب
#3
كما تفضل الاخ الفاضل أنا استخدم الكود التالي كتابة ارقام فقط بحيث لا يسمح بكتابة حروف :
كود :
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
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة: عبد الهادي بهاب


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعريب عناصر جدول في الريتش بوكس _ مرفق _( كود _ مثال _صورة ) zinom 5 117 , 09:52 PM
آخر رد: zinom
  كيفية اضافة الصوت مع ظهور المسج بوكس ابو نور الهدى 1 58 , 12:52 PM
آخر رد: سعود
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 11 741 14-11-21, 03:47 PM
آخر رد: kebboud
  [VB.NET] اجراء العمليات الحسابية داخل خلية داتا غريد فيو العواد الصغير 3 1,456 14-11-21, 03:15 PM
آخر رد: walkady
  [VB.NET] رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم jam3h 4 211 10-11-21, 02:54 PM
آخر رد: Anas Mahmoud
  [سؤال] سؤال في تكست بوكس حسن الجلب 1 134 08-11-21, 12:47 PM
آخر رد: Anas Mahmoud
  كيفية البحث عن رقم داخل حقل في الجدول عبدالكريم برشدان 6 321 03-11-21, 09:01 PM
آخر رد: عبدالكريم برشدان
  الكتابة داخل ملف تكست فى سطر محدد ابو روضة 3 269 31-10-21, 02:27 AM
آخر رد: ابو روضة
  ادخال ارقام بشكل منتظم في الدليل المحاسبي بسام محمدغانم 3 251 29-10-21, 03:16 PM
آخر رد: بسام محمدغانم
  [سؤال] مستعجل بخصوص ارقام جلوس للطلاب malik98 7 414 27-10-21, 10:24 PM
آخر رد: malik98

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم