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

[mahaniom]

با عرض سلام و آرزوي خوشبختي براي تمامي دوستان . من مي خواستم در text box فقط متن وارد کنم و همچنين کد وارد شده فقط فارسي باشه اگه ممکنه کمکم کنيد .:متفکر:

[a1b2uu]

Imports

System.Globalization

Public


Class Class1

PublicSharedSub insertFA()
Dim c AsNew System.Globalization.CultureInfo("FA-IR")InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(c)
EndSub
End


Class

[Ghaisard]

سلام

با كد زير، TextBox فقط كاراكترهاي فارسي خواسته شده (allowedchars) و كليد Backspace رو قبول مي‌كنه :



Private Sub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
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
End Sub

[ali_a1354]

سلام دوست عزیز دستت درد نکنه