تقييم الموضوع :
  • 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
شكرا لكم اخواني على الاجابةفهذا هو المطلوب
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 190 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  شرح مفيد جداً لــ Msgbox (صندوق الرسائل) علاء الاكرمي 11 3,345 24-01-15, 07:56 PM
آخر رد: اسلام الكبابى
  كيف اجعل chek box في data gred hamada666 7 784 20-08-13, 10:35 AM
آخر رد: hamada666
  سؤال عن اداة النص AhmedSamir3 16 1,603 19-08-13, 09:44 PM
آخر رد: AGASHE
  مرحبا؟اريد كود تصوير الفورم ووضع الصورة في اداة مربع النص واظهار حوار لحفظ الصورة بتنسيق bmp وشكرا طارق 2 1,082 13-08-13, 04:32 AM
آخر رد: VB_Coder
  تغير لون النص الكوماند عند مرور المؤشر عليه ويرجع اللون الى اصله عند ابتعاد المؤشر عنه علي عبد الوهاب 2 602 31-07-13, 09:21 PM
آخر رد: عبد الله190
  كيف اجعل text يخذ خاصية MaskEdBox ؟؟ softmail8 6 799 31-07-13, 12:54 PM
آخر رد: softmail8
  ازاى اجعل التكست يقبل الرموز مثل "۞" ولا يحولها الى علامات ؟؟ Yasso 13 1,136 29-07-13, 04:50 AM
آخر رد: Yasso
  جعل مربع النص يقبل أرقام فقط Ahmed Abdulla 5 1,387 22-07-13, 05:20 PM
آخر رد: الهجري
  كيف اعمل text.SetFocus اخر النص ابو بدران 5 633 21-07-13, 09:30 PM
آخر رد: ابو بدران

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


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