تحديد نوع المدخلات في مربع النص

[youssef103]

السلام عليكم و رحمة الله و بركاته
اخواني اقدم لكم
طريقة تحديد المدخلات في مربع النص
مثلاً
يمكنك تحديد نوع البيانات المدخلة الى مربع النص بالكود
كــ إدخال :
1 - (أرقام فقط) فعند الضغط على الحروف لا يستجيب
2 - (نص فقط) وينقسم الى ثلاثة اقسام

* إدخال حروف عربية فقط
* إدخال حروف أجنبية فقط
* إدخال احرف عربية و أجنبية



فعند الضغط على الأرقام لا يستجيب

موضوع له صلة :
حل مشكلة ال sendkey capslock, numlock ,scrolllock

تم تعديل مايو 5, 2014 بواسطه أبـوخليل
الاكتفاء بالمرفق الصحيح في المشاركة رقم3

[ابوخليل]

اخونا المبدع يوسف

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

[youssef103]

بارك الله فيك استاذ أبو خليل

و ما هذا الا نقطة صغيرة في بحر ابداعك

=================================

هناك خطأ بسيط في تسمية احدى الليبل

سيتم اعدة رفع المرفقات ارجوا من الادارة استبدال هذا المرفق بالمرفق القديم وشكراً

تحديد نوع المدخلات في مربع النص up.rar

[محمدحمدي]

ما شاء الله كود عبقري

ناقص فقط التحكم في التاريخ..

جزاك الله خيرا..

[ابوخليل]

ومن باب جمع المتشابهات :

هذا كود رائع  ابدعته انامل استاذنا عبدالله المجرب كإجابة لمسابقة مجلة اوفيسنا لشهر مايو 2014

 

Private Sub AR_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 122 Then KeyAscii = 0
If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0
End Sub




Private Sub EN_KeyPress(KeyAscii As Integer)
If KeyAscii > 122 Then KeyAscii = 0
If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0
End Sub


Private Sub NUMB_KeyPress(KeyAscii As Integer)


Select Case KeyAscii
    Case 46, 48 To 57
    Case Else
        KeyAscii = 0
        End Select
End Sub


Private Sub txtan_KeyPress(KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0
End Sub