نوشتن حروف یا فقط اعداد در تکس باکسهادر ویبی نت2010

[farhad85]

باسلام خدمت همه دوستان
من کد ریر رو جهت فقط حروف نوشتن فارسی در تکس باکسها نوشتم ولی بعضی کلماتو درج نمیکنه مثل(ئ)
اگه راه بهتری سراغ دارین لطفا راهنمایی بفرمایید. ممنونم:تشویق:113979

[sagggad]

ببین دوست من این کدی که بلدم برای عدد هستش شاید خودت بتونی به حروف تبدیلش کنی بازم من برات میگردم:
تو رویداد KeyPrees فرم این کدها رو بنویس:

If e.KeyChar = "8" Then
e.Handled = False
End If

Select Case e.KeyChar
"*"Case
e.Handled = True
"-"Case
e.Handled = True
"/"Case
e.Handled = True
"!"Case
e.Handled = True
"#"Case
e.Handled = True
"$"Case
e.Handled = True
"%"Case
e.Handled = True
"^"Case
e.Handled = True
"&"Case
e.Handled = True
"("Case
e.Handled = True
")"Case
e.Handled = True
"+"Case
e.Handled = True
End Select

If (e.KeyChar >= "0") And (e.KeyChar <= "9") = False Then
e.Handled = True
End If

[farhad85]

تاپیک بعدی رو هم یه نگاهی بنداز
http://barnamenevis.org/showthread.php?432062-%D8%AE%D8%A7%D8%B1%D8%AC-%D8%B4%D8%AF%D9%86-%D9%85%D8%A7%D9%88%D8%B3-%D8%A7%D8%B2-%DB%8C%DA%A9-%D9%85%D8%AD%D8%AF%D9%88%D8%AF%D9%87-%D9%88-%D9%85%D8%AE%D9%81%DB%8C-%D8%B4%D8%AF%D9%86-%D8%A2%D9%86-%D8%B4%DB%8C

[Hossis]

این راه ساده تری هست

Private Sub txtBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cExit.KeyPress
Dim Horuf As String = "اآبپتثجحچخدذرزسشصضطظعغفقک گلمنوهیءأإؤژيةۀ"
Dim Adad As String = "0123456789" & Keys.Back
'Horuf Faghat
If Horuf.Contains(e.KeyChar) = False Then e.Handled = True
'Number Only
If Adad.Contains(e.KeyChar) = False Then e.Handled = True

End Sub

[Hossis]

باسلام خدمت همه دوستان
من کد ریر رو جهت فقط حروف نوشتن فارسی در تکس باکسها نوشتم ولی بعضی کلماتو درج نمیکنه مثل(ئ)
اگه راه بهتری سراغ دارین لطفا راهنمایی بفرمایید. ممنونم:تشویق:
این راه ساده تری هست

Private Sub txtBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cExit.KeyPress
Dim Horuf As String = "اآبپتثجحچخدذرزسشصضطظعغفقک گلمنوهیءأإؤژيةۀ"
Dim Adad As String = "0123456789" & Keys.Back
'Horuf Faghat
If Horuf.Contains(e.KeyChar) = False Then e.Handled = True
'Number Only
If Adad.Contains(e.KeyChar) = False Then e.Handled = True

End Sub