فقط ورود متن فارسی در text box

[mahaniom]

با عرض سلام . مشکل این کد چیه که بعضی از حروف رو وارد text box نمیکنه . اصلا روش درستیه ؟
"ايپتثجچحخدذرزژسشصضطظعغفقك گلمنوهي" = Dim allowedChars As String
If e.KeyChar = ControlChars.Back Then
e.Handled = False
ElseIf allowedChars.IndexOf(e.KeyChar) = -1 Then
e.Handled = True
End If

[yekta64]

با عرض سلام . مشکل این کد چیه که بعضی از حروف رو وارد text box نمیکنه . اصلا روش درستیه ؟
"ايپتثجچحخدذرزژسشصضطظعغفقك گلمنوهي" = Dim allowedChars As String
If e.KeyChar = ControlChars.Back Then
e.Handled = False
ElseIf allowedChars.IndexOf(e.KeyChar) = -1 Then
e.Handled = True
End If


دوست عزیز برای داشتن یه تکس باکسی که فقط حروف فارسی بگیره می تونی به صورت عکس عمل کنی یعنی در تکس باکست اجازه درج حروف لاتین رو ندی




If ((Asc(e.KeyChar) >= 65) And (Asc(e.KeyChar) <= 90)) Or ((Asc(e.KeyChar) >= 97) And (Asc(e.KeyChar) <= 122)) Or (Asc(e.KeyChar)) = 8 Then
e.Handled =True
Else
e.Handled = False
End If