[المنذر]

(06-10-19, 04:34 PM)Rabeea Qbaha كتب :

كود :

If Not (Asc(e.KeyChar) = 8) Then
       Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz"
       If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
           e.KeyChar = ChrW(0)
           e.Handled = True
       End If
   End If

الحروف التي في النص هي الاخرف المقبولة ، فا اذا اردت فقط احرف عربية اكتب الاحرف العربية بدل الانجليزية وهكذا 

PHP كود :

   Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz" 


شكرا اخي كثير كله تمام وفقك الله