چطور میشه تکست باکس رو در vb.netبرای حروف فارسی محدود کرد

[pasargadsaeed]

چطور میشه تکست باکس رو در vb.netبرای حروف فارسی محدود کرد

[ali_najari]

دوست عزیز شما یه آرایه از نوع String معرفی کن و سپس حروف مجازت رو توش قرار بده بعد از اون از دستور Instr در keypress اون تکس باکس محدودش کن یه نونه میزارم :


Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim StrCondition As String = ""

If InStr(StrCondition, e.KeyChar) > 0 Or e.KeyChar = Chr(Keys.Return) Or _
e.KeyChar = Chr(Keys.Delete) Or e.KeyChar = Chr(Keys.Back) Or _
e.KeyChar = Chr(Keys.Space) Then

e.Handled = False

Else

e.Handled = True

End If
End Sub

[salam333]

تعريف TEXTBOXبصورت يونكد

[Hossis]

Dim Fa As String="ابپتثجچحخدذرزسشصضطظعغفقکگ لمنوهآءأًٌٍ؍؛،ۃژۀيّ٘"
if not fa.contains(e.keychar) then e.handled=true

[Miryam]

روی فرم اصلی برنامه دوبار کلیک کنید تا وارد قسمت load فرم بشید بعد این کد تایپ کنید.با این کد میشه این محدودیت ایجاد کرد.

InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))