[ناجي إبراهيم]

السلام عليكم و رحمة الله و بركاته...

ضع الدالة التالية في قسم التصريحات العام (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(SearchStr, Chr$(KeyAscii)) <> 0)
    End Select
End Function 


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

PHP كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not IsArabicLetter(KeyAscii) Then 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(KeyAscii, False, True, "-#") Then KeyAscii = 0
End Sub 


نرجو الاستفادة و السلام.