[sendbad100]

(29-03-17, 08:15 PM)ahmed elkazaz كتب : كيف أسوي التصريح من Private إلي Public ??

السلام عليكم

عدل الكلمة الاولى في الكود من Private  الى  Public

ويكفي ان تضعها مرة واحدة في الموديل   وتستخدمها في اي فورم في المشروع

---

كالتالي 

PHP كود :

Public 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 


والله الموفق