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

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران محمد ايمن 3 394 19-04-20, 03:07 PM
آخر رد: asemshahen5
  [كود] حفظ ما يتغير في التيكست بعد اغلاقه محمد ايمن 0 195 21-03-20, 09:13 PM
آخر رد: محمد ايمن
Lightbulb [VB.NET] ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس EYADISMAIL 3 946 29-07-19, 03:59 AM
آخر رد: EYADISMAIL
  كود بسيط لتغيير لون النص والخلفية لكل ليبل وا تيكست بوكس في الفرم honest 4 4,623 03-02-19, 11:07 AM
آخر رد: alshandodi
  كود للانتقال الى التكست بوكس التالي عند الضغط على زر انتر ahmadpal 4 1,910 08-12-18, 02:38 PM
آخر رد: قناص المدينة
  كود سهل ومفيد للبحث عن كلمة في التكست بوكس honest 11 4,114 11-11-18, 01:27 AM
آخر رد: عماد السيد
  [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم احمد عبد الحكيم 5 3,273 11-11-18, 01:24 AM
آخر رد: عماد السيد
Wink كود صغير يقوم بقراءه النص من التكست بوكس برير مسبل 3 2,720 08-08-18, 03:55 PM
آخر رد: alsouf
  السلام عليكم اريد كود لما تكون موجوده التكست بوكس ندير فوقها بطم وفي التنفيذ تطلعلي nosa 0 812 11-05-18, 09:36 PM
آخر رد: nosa
Star [كود] كود يسمح لك بكتابه احرف فقط في ال TextBox YousefOkasha 3 1,374 04-05-18, 08:13 PM
آخر رد: YousefOkasha

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


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