تقييم الموضوع :
  • 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 ك ب / التحميلات : 341)
الرد }}}}
#2
ممتاز اخي الف شكر
الرد }}}}
تم الشكر بواسطة:
#3
لاشكرا على واجب
الرد }}}}
تم الشكر بواسطة:
#4
لماذا السلبية مشاهدات كثيرة ولا تعليق
الرد }}}}
تم الشكر بواسطة:
#5
ارضاء الناس غاية لا تدرك

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تكست بوكس يسمح بإدخال أرقام فقط أو حروف فقط silverlight 1 57 15-10-17, 10:02 AM
آخر رد: سعود الشامان
  [كود] تغيير حجم التيكست بوكس عند الكتابة فيه سعود الشامان 1 129 02-10-17, 09:16 AM
آخر رد: ابو روضة
  كود سهل ومفيد للبحث عن كلمة في التكست بوكس honest 6 973 18-06-17, 03:36 AM
آخر رد: أبووسم
Wink كود صغير يقوم بقراءه النص من التكست بوكس برير مسبل 2 1,151 25-01-17, 06:53 PM
آخر رد: ridha69
Wink [كود] فتح ملف نصي في التكست بوكس [ Ebram Nagy ] 2 505 27-08-16, 10:39 PM
آخر رد: [ Ebram Nagy ]
  التكست بوكس الشاغل تفكيرنا bassamreg 5 751 03-07-16, 07:01 AM
آخر رد: Apollondz
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 4 1,562 30-06-16, 07:17 PM
آخر رد: aliday03
  كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم honest 3 947 28-05-16, 11:58 PM
آخر رد: CLARO
  كود مختصر وبسيط لحفظ محتوى تيكست بوكس في مستند نصي honest 3 593 28-05-16, 11:57 PM
آخر رد: CLARO
  [سؤال] كود لو سمحتم قروب بوكس مخفية bidaya 4 544 06-05-16, 04:46 PM
آخر رد: bidaya

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


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