المشاركات : 8
المواضيع 0
الإنتساب : Feb 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
كيف اجعل صندوق النص لا يقبل الا كلمات انكليزيةارجو المساعدة
المشاركات : 189
المواضيع 19
الإنتساب : Sep 2012
السمعة :
13
الشكر: 114
تم شكره 144 مرات في 81 مشاركات
السلام عليكم
استاذى العزيز
اسمحلى بالمرور على المشاركة وذلك لاحتياجى ايضا لمثل هذا الكود
ولكن يوجد ملاحظات عند محاولة تطبيق الكود .... وهى كما يلى :-
1 - لا يمكن الكتابة اذا كانت الحروف اسمول وليست كابتال
2 - لا يقبل المسافات بين الكلمات
عذارا على التدخل ........... تقبل تحياتى
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
اكتب الدالة التالية في قسم التصريحات العام:
كود :
Private Function IsEngLetter(ByVal KeyAscii As Integer, Optional ByVal AllowDigits As Boolean = False) As Boolean
If KeyAscii <= 32 Then
IsEngLetter = True
ElseIf AllowDigits And (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
IsEngLetter = True
Else
IsEngLetter = (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Or (KeyAscii >= Asc("a") And KeyAscii <= Asc("z"))
End If
End Function
لاحظ أن البارامتر الثاني AllowDigits اختياري لتحديد ما إذا سيتم قبول الأرقام أم لا و قيمته الافتراضية False أي لا يتم قبول الأرقام.
بعد ذلك نستدعي الدالة من الحدث KeyPress لمربع النص (أي مربع نص):
كود :
' قبول الحروف الإنجليزية فقط
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsEngLetter(KeyAscii) Then KeyAscii = 0
End Sub
' قبول الحروف الإنجليزية و الأرقام
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsEngLetter(KeyAscii, True) Then KeyAscii = 0
End Sub
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 157
المواضيع 17
الإنتساب : Oct 2013
السمعة :
1
الشكر: 5
تم شكره 64 مرات في 12 مشاركات
بارك الله فيك وجزاك الله خيرا
المشاركات : 8
المواضيع 0
الإنتساب : Feb 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
شكرا لكم اخواني على الاجابةفهذا هو المطلوب