[hikmat]

اريد كود لادخال النص باللغة العربية فقط 
الاقتراح : كود يصل الى اعدادات اللعة في الكمبيوتر والتاكد من ان نص الادخال اللغة العربية
اريد كود يمنع ادخال  علامات الترقيم

[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 


[سعود الشامان]

[VB.NET] طريقة معرفة لغة الإدخال الحالية How to find the current input language

[a.ahmed]

PHP كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
    If Not (Char.IsControl(e.KeyChar) Or Char.IsWhiteSpace(e.KeyChar) Or (e.KeyChar >= "ء" And e.KeyChar <= "ي")) Then e.Handled = True
End Sub