[silverlight]

عليك أن تترك المستخدم يكتب ما يريده في التكست بوكس
ثم فقط تتأكد أن المدخلات كلها عبارة عن حروف لغة عربية

يمكنك أن تستخدم دالة بهذا الشكل
عليك فقط أن تكمل بقية الحروف العربية في المصفوفة chars

PHP كود :

  Public Function IsValidString(s As String) As Boolean
        Return s.All(Function(c)
                         'أكمل بقية الحروف العربية
                         Dim chars As Char() = New Char() {ChrW(1570), ChrW(1571), ChrW(1572), ChrW(1573), ChrW(1574), ChrW(1575), ChrW(1576), ChrW(15777), ChrW(1576), ChrW(1588), ChrW(1589), ChrW(1590)}
                         For i As Integer = 0 To chars.Length - 1
                             If chars(i) = c Then
                                 Return True
                             End If
                         Next
                         Return False
                     End Function)
    End Function 


الاستخدام :

PHP كود :

       Dim s As String = "فيجوال بيسك"
        Dim bool As Boolean = IsValidString(s) 


حل أخر
فقط غير الرقم 1255 الي أول رقم أسكي قبل اول رقم أسكي في الحروف العربية لأني مش متذكر الرقم

PHP كود :

   Public Function IsValid(s As String) As Boolean
        Return s.Any(Function(c) c > ChrW(1255))
    End Function