تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اجعل صندوق النص لا يقبل الا كلمات انكليزية
#1
كيف اجعل صندوق النص لا يقبل الا كلمات انكليزيةارجو المساعدة
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

- استخدم هذا الكود الذي سيكون في حدث الكي برس لأداة التكست :-

كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim KeyChar As String
"KeyChar = "MNOPQRSTUVWXYZABCDEFGHIJKL
IF Instr(1, KeyChar,Chr(KeyAscii)) =0 Then
KeyAscii =0
Exit Sub
End IF
End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم

استاذى العزيز
اسمحلى بالمرور على المشاركة وذلك لاحتياجى ايضا لمثل هذا الكود

ولكن يوجد ملاحظات عند محاولة تطبيق الكود .... وهى كما يلى :-

1 - لا يمكن الكتابة اذا كانت الحروف اسمول وليست كابتال

2 - لا يقبل المسافات بين الكلمات

عذارا على التدخل ........... تقبل تحياتى
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم...

اكتب الدالة التالية في قسم التصريحات العام:
كود :
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

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة:
#5
بارك الله فيك وجزاك الله خيرا
الرد }}}
تم الشكر بواسطة:
#6
شكرا لكم اخواني على الاجابةفهذا هو المطلوب
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل الكتابة من اليمين الى اليسار والعكس بالكود؟ imatawen 4 2,964 04-09-23, 12:14 PM
آخر رد: Nasa_use
  هل هنالك امكانية لطباعة النص داخل الداتا ريبورت بشكل عامودي mohammed_atallah 2 700 11-09-22, 06:00 PM
آخر رد: mohammed_atallah
  [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 2 1,386 18-12-21, 01:41 PM
آخر رد: اسلام الكبابى
  شرح مفيد جداً لــ Msgbox (صندوق الرسائل) علاء الاكرمي 15 31,695 27-10-21, 10:53 AM
آخر رد: yahiagemaey10
  المساعدة - في تجزئة النص hamedi2727 7 3,293 19-12-17, 07:20 PM
آخر رد: Amir_Alzubidy
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 3,048 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  كيف اجعل chek box في data gred hamada666 7 3,206 20-08-13, 10:35 AM
آخر رد: hamada666
  سؤال عن اداة النص AhmedSamir3 16 5,869 19-08-13, 09:44 PM
آخر رد: AGASHE
  مرحبا؟اريد كود تصوير الفورم ووضع الصورة في اداة مربع النص واظهار حوار لحفظ الصورة بتنسيق bmp وشكرا طارق 2 3,325 13-08-13, 04:32 AM
آخر رد: VB_Coder
  تغير لون النص الكوماند عند مرور المؤشر عليه ويرجع اللون الى اصله عند ابتعاد المؤشر عنه علي عبد الوهاب 2 2,428 31-07-13, 09:21 PM
آخر رد: عبد الله190

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


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