View Full Version : سوال: نوشتن حروف یا فقط اعداد در تکس باکسهادر ویبی نت2010
farhad85
یک شنبه 24 آذر 1392, 12:29 عصر
باسلام خدمت همه دوستان
من کد ریر رو جهت فقط حروف نوشتن فارسی در تکس باکسها نوشتم ولی بعضی کلماتو درج نمیکنه مثل(ئ)
اگه راه بهتری سراغ دارین لطفا راهنمایی بفرمایید. ممنونم:تشویق:113979
sagggad
یک شنبه 24 آذر 1392, 13:07 عصر
ببین دوست من این کدی که بلدم برای عدد هستش شاید خودت بتونی به حروف تبدیلش کنی بازم من برات میگردم:
تو رویداد 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
یک شنبه 24 آذر 1392, 13:12 عصر
تاپیک بعدی رو هم یه نگاهی بنداز
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
یک شنبه 24 آذر 1392, 14:05 عصر
این راه ساده تری هست
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
یک شنبه 24 آذر 1392, 14:07 عصر
باسلام خدمت همه دوستان
من کد ریر رو جهت فقط حروف نوشتن فارسی در تکس باکسها نوشتم ولی بعضی کلماتو درج نمیکنه مثل(ئ)
اگه راه بهتری سراغ دارین لطفا راهنمایی بفرمایید. ممنونم:تشویق:
این راه ساده تری هست
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.