اريد كود يجبر المستخدم على ادخال معين فى التيكست بوكس

[إبراهيم ابوليله]

الاخوه الافاضل

هل يوجد كود يجبر المستخدم على

الكود الاول

اجبار المستخدم على ادخال الحروف باللغه العربيه

الكود الثانى

اجبار المستخدم على ادخال الحروف باللغه الانكليزيه

[شوقي ربيع]

السلام عليكم

هذه ابسط   وافضل اكواد ممكنة لفعل ذالك

توضع في حدثKeyPress لتاكست بوكس

 

1 لجعل التكست  بوكس لاتقبل الا الارقام

If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0 

2 لجعل التاكست بوكس لاتقبل الا الحرف الانجليزية الصغيرة

If ChrW(KeyAscii) Like "[!a-z]" Then KeyAscii = 0

3 لجعل التاكستبوكس  بوكس لاتقبل الا الحروف الانجليزية الكبيرة

If ChrW(KeyAscii) Like "[!A-Z]" Then KeyAscii = 0

4 لجعل التكستبوكس تقبل الا الحروف الانجليزية الصغيرة والكبيرة معا

If ChrW(KeyAscii) Like "[!A-z]" Then KeyAscii = 0

5 لجعل التكست بوكس لا تقبل الا الحروف العربية

If ChrW(KeyAscii) Like "[!أ-ي]" Then KeyAscii = 0

وهذا الملف مطبق عليه هته الاكواد

ارجوا انيفيدك ويفيد جميع الاعضاء

 

مثال توضيحي.rar

[إبراهيم ابوليله]

اخى واستاذنا

شوقى ربيع

مشكورا على الاكواد الجميله

وانا اعتبرها هديه

من اخ اكبر واستاذ عظيم

بارك الله فيك