تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ماهو كود كتابة الحقل حروف عربية فقط
#1
سؤال  ماهو كود كتابة في الحقل حروف عربية فقط   وكذلك كود كتابة في الحقل حروف انجليزية وراقام فقط مثال حقل رقم جواز السفر يكون حروف انجليزية وارقام 

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

ضع الدالة التالية في قسم التصريحات العام (General Declarations) للنموذج (إذا أردت استعمالها على مستوى المشروع - أي في أكثر من نافذة - فضعها في Module و غير كلمة Private إلى Public):

PHP كود :
Private Function IsArabicLetter(ByVal KeyAscii As Integer_
                                Optional ByVal IncludeSpace 
As Boolean True_
                                Optional ByVal IncludeDigits 
As Boolean False_
                                Optional ByVal ExceptChars 
As String "") As Boolean
    Const ARABIC_LETTERES 
As String "اىءأإآئؤبتثجحخدذرزسشصضطظعغفقكلمنهوية"
 
   Dim SearchStr As String
    
    Select 
Case KeyAscii
        Case Is 
32
            IsArabicLetter 
True
        Case 32
            IsArabicLetter 
IncludeSpace
        Case 48 To 57
            IsArabicLetter 
IncludeDigits
        Case 
Else
 
           SearchStr ARABIC_LETTERES Trim$(ExceptChars)
 
           IsArabicLetter = (InStr(SearchStrChr$(KeyAscii)) <> 0)
 
   End Select
End 
Function 

ثم في الحدث KeyPress لمربع النص اكتب السطر التالي:

PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
   If Not IsArabicLetter(KeyAsciiThen KeyAscii 0
End Sub 


* لاحظ أن للدالة IsArabicLetter ثلاثة بارامترات اختيارية بعد البارامتر الأول (KeyAscii) و هي:
= البارامتر IncludeSpace: يحدد هل يتم قبول الفراغ (space) أم لا. قيمته الافتراضية هي True أي أن الفراغ مقبول.
= البارامتر IncludeDigits: يحدد هل يتم قبول الأرقام (0 - 9) أم لا. قيمته الافتراضية هي False أي أن الأرقام غير مقبولة.
= البارامتر ExceptChars: يحدد مجموعة من الرموز أو الحروف التي تريد استثناءها، أي قبولها (من غير الحروف العربية و الفراغ و الأرقام). قيمته الافتراضية نص فارغ (empty string) أي لا توجد حروف أو رموز مستثناة.

* إذا أردنا مثلاً منع الفراغات و قبول الأرقام بالإضافة إلى الشرطة الأفقية (علامة الناقص) و الهاش:

PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
   If Not IsArabicLetter(KeyAsciiFalseTrue"-#"Then KeyAscii 0
End Sub 

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

بالتوفيق
محاسب / أحمد عبد العليم
الرد }}}}
تم الشكر بواسطة:
#4
شكر لك
ممكن الكود في vb6
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم...

الكود أصلاً للـ VB6.

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة في كتابة كود الزر تخزين مزنة 9 218 28-11-16, 12:44 PM
آخر رد: مزنة
  [vb6.0] كود فتح صفحه + كتابة اليوزر UAE 6 171 22-07-16, 05:38 PM
آخر رد: LoveVb
  ماهو كود إلزامي إضافة الصور عند الحفظ alfakeeh 1 152 28-02-16, 11:26 PM
آخر رد: Ahmed_Mansoor
  سوال حول كتابة حرف ك فوقه ثلاث نقط tichouckt 3 618 22-01-16, 12:12 AM
آخر رد: كاظم هاشم البهادلي
  [vb6.0] عندى مشكلة فى كتابة اللغة العربية فى inputbox Acc.MohamedSamir 3 608 14-12-15, 01:42 PM
آخر رد: Ashraf Elafify
  مساعدة في كتابة كود يتم من خلاله طباعة الفورم عدد معين من المرات نصر صالح 2 562 20-12-14, 10:03 PM
آخر رد: Ahmed_Mansoor
  تحويل الارقام الى حروف Convertir des chiffres en lettres derbaliammar 4 1,020 19-08-13, 09:39 PM
آخر رد: ولد رائع
  المساعدة في تصميم برنامج مزخرف حروف وجُمل Hassan Khamees 2 449 19-06-13, 11:35 PM
آخر رد: Hassan Khamees
  سؤال_ ماهو الحد الأقصى لتحميل الملفات رضا المصرى 0 331 18-05-13, 11:21 PM
آخر رد: رضا المصرى
  سؤال_ ماهو الحد الأقصى لتحميل الملفات رضا المصرى 0 302 18-05-13, 11:20 PM
آخر رد: رضا المصرى

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


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