• 0
sunbol

Textbox يستقبل احرف ولايستقبل الفراغ

سؤال

السلام عليكم ورحمة الله وبركاته

مشكلتي تنحصر لدي textbox استخدمت كود لجعل المستخدم يدخل احرف فقط بدون ارقام والكود اشتغل معاي جيدا ولكنه

لايستقبل الفراغ space اريده textbox يقبل الفراغ مع الاحرف فقط

ارفقت نسخه من برنامجي

لكم جزيل الشكر

presskey.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

   If Char.IsLetter(ch) = True Or ch = " " Then
e.Handled = False
Else
e.Handled = True
End If

الآن سيقبل الفراغ مع الحروف

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الطريقة التي استعملها

	Private Sub TextBox1_KeyPress
If InStr("0123456789", e.KeyChar.ToString) > 0 Then e.Handled = True
End Sub

أكيد أن هناك طرق أخرى .... و لكن هذه تفي بالغرض

تم تعديل بواسطه الفريد
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

يمكنك استخدام هذه الطريقة

If (!
(((e.KeyChar >= 'a') And (e.KeyChar <= 'z')) Or
((e.KeyChar >= 'A') And (e.KeyChar <= 'Z')) Or
(e.KeyChar == ' '))) Then
e.Handled = true;
End If

ضع هذا الكود في الحدث KeyPress للـ TextBox

بس طريقة الاستاذ lelian هي افضل

وشكرا

تم تعديل بواسطه عبد الكريم كنعان
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم ورحمة الله وبركاته

اخي lelian اشكرك كثيرا حلك هو الحل اللذي اتبعته جزاك الله خيرا

اخي الفريد جزاك الله خيرا على الطريقة

اخي عبد الكريم كنعان جزاك الله خيرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السؤال قد طُرح من قبل يمكنك البحث في ذلك الشأن.

لإستفادة من الخانة النصية تتكلم العربية على هذا الرابط تجدها بالتوفيق إن شاء الله.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي العزيز الشهاب لقد اتبعت طريقة اخي lelian

ولكن اسعدني موضوعك عن الخانة النصية وبالحقيقة انت مبدع دائما

اتمنى لك التوفيق والسداد دائما إن شاء الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .