تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود يسمح لك بكتابة احرف فقط في التيكست بوكس
#1
السلام عليكم  اعضاء المنتدى الكرام

هذا كود يسمح لك بكتابة احرف فقط في التيكست بوكس ولا يمكنك من كتابة ارقام

كود :
   Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       Select Case e.KeyChar
           Case "ء" To "ي", "A" To "z", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub

وهذا يسمح لك بكتابة ارقام فقط آي عكس الكود السابق

كود :
   Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox4.KeyPress
       Select Case e.KeyChar
           Case "0" To "9", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub

وهذا يسمح بكتابة احرف عربية فقط

كود :
  Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
       Select Case e.KeyChar
           Case "ء" To "ي", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub

وهذا يسمح بكتابة احرف انجليزية فقط

كود :
  Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress
       Select Case e.KeyChar
           Case "A" To "z", ControlChars.Back, Chr(Keys.Space)
               e.Handled = False
           Case Else
               e.Handled = True
       End Select
   End Sub


وهذا المشروع في المرفقات


الملفات المرفقة
.zip   WinApp2.zip (الحجم : 91.3 ك ب / التحميلات : 239)
الرد }}}}
#2
ممتاز اخي الف شكر
الرد }}}}
تم الشكر بواسطة:
#3
لاشكرا على واجب
الرد }}}}
تم الشكر بواسطة:
#4
لماذا السلبية مشاهدات كثيرة ولا تعليق
الرد }}}}
تم الشكر بواسطة:
#5
ارضاء الناس غاية لا تدرك

يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة: الوليد ☺
#6
السلام عليكم ورحمة الله

المشاهدات الكثيرة دليل على أهميه الموضوع كما في مواضيعك ومشاركاتك التي أتابعها باهتمام

بارك الله فيك، وننتظر المزيد من الأكواد المفيدة
الرد }}}}
تم الشكر بواسطة:
#7
حاضر لكن اعذروني لزحمة العمل
انا اعمل في التجارة واريد ان اكوّن شركة تسويق خاصة بي لذلك اتأخر على هذا المنتدى الرائع
الرد }}}}
تم الشكر بواسطة:
#8
شطرا أخي وجزاك الله الف خير
يا رب توفيقك
الرد }}}}
تم الشكر بواسطة:
#9
شكرا جزيلا
الرد }}}}
تم الشكر بواسطة:
#10
بارك الله فيكم والعفو للجميع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [كود] فتح ملف نصي في التكست بوكس [ Ebram Nagy ] 2 155 27-08-16, 10:39 PM
آخر رد: [ Ebram Nagy ]
  التكست بوكس الشاغل تفكيرنا bassamreg 5 341 03-07-16, 07:01 AM
آخر رد: Apollondz
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 4 1,183 30-06-16, 07:17 PM
آخر رد: aliday03
  كود سهل ومفيد للبحث عن كلمة في التكست بوكس honest 1 262 28-05-16, 11:59 PM
آخر رد: CLARO
  كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم honest 3 375 28-05-16, 11:58 PM
آخر رد: CLARO
  كود مختصر وبسيط لحفظ محتوى تيكست بوكس في مستند نصي honest 3 269 28-05-16, 11:57 PM
آخر رد: CLARO
  [سؤال] كود لو سمحتم قروب بوكس مخفية bidaya 4 314 06-05-16, 04:46 PM
آخر رد: bidaya
  مساعده بشأن الرابط بين الكومبوبوكس واللست بوكس hishamdaz 1 314 23-03-16, 03:00 AM
آخر رد: farahabdalrahmanfarah
Information [كود] مطلوب كود لجعل التكست بوكس يكتب عربي فقط Mostafa Yousry 2 517 07-12-15, 05:53 AM
آخر رد: Mostafa Yousry
  [سؤال] التعامل مع تكست بوكس moha11 5 823 12-09-15, 10:05 AM
آخر رد: moha11

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


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