نوشتن فقط حروف در داخل تکست باکس

[hamidrezax1]

وقت بخیر دوستان عزیز
اگر خواستید فقط درون یک تکست باکس حروف قرار بدین و به کاربر اچازه وارد کردن عدد ندید میتونید از این کد توی رویداد کی پرس (keyperess)استفاده کنید.موفق باشید



If ((e.KeyChar >= "a" And e.KeyChar <= "z") Or (e.KeyChar >= "A" And e.KeyChar <= "Z") And (e.KeyChar >= "آ" And e.KeyChar <= "ی")) Then
Else
If (e.KeyChar = Convert.ToChar(Keys.Back) or e.KeyChar = Convert.ToChar(Keys.Space)) Then
Else
e.Handled = True
End If


End If

[Hossein Bazyan]

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


Public Sub IsNumeric4TextBox(ByVal txtToCheck As TextBox, ByVal e As System.Windows.Forms.KeyPressEventArgs, ByVal InsertPlus As Boolean) If e.KeyChar = "." Then e.KeyChar = ","
Dim m = AscW(e.KeyChar)
', 44
'. 46
If m = 46 Then m = 44
Select Case m 'AscW(e.KeyChar)
Case 48 To 57
e.Handled = False
Case 45 ' -
e.Handled = False
Case 44 ' cama
CamaChek = txtToCheck.Text.Split(",")
If CamaChek.Length = 1 Then
e.Handled = False
Else
e.Handled = True
Beep()
End If
Case 8 ' Backspace
e.Handled = False


Case 43
If InsertPlus Then
e.Handled = False
Else
e.Handled = True
End If
Case Else
e.Handled = True
Beep()
End Select
End Sub

سپس در رویداد KeyPress کد زیر را دخل کنید


Private Sub TextBox1_KeyPress_1(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress, TextBox1.KeyPress IsNumeric4TextBox(sender, e)
End Sub

خوبی این روش اینه که میتوانید همه تکست باکسها رو با هم گروه بندی کنید و نمیخواد برای تک تک انها کد بنویسید.

البته تابع بالایی رو میتوانید خودتان اغییر دهید.
من برای زبان هلندی طراحی کردم (مثلا باید . به , تبدیل شود ) و نمیتوان بیشتر از یکی از اینها رو داشت که بسته به نیاز میتوانید تغییر دهید.

[Hossis]

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


Public Sub IsNumeric4TextBox(ByVal txtToCheck As TextBox, ByVal e As System.Windows.Forms.KeyPressEventArgs, ByVal InsertPlus As Boolean) If e.KeyChar = "." Then e.KeyChar = ","....
End Sub

خوبی این روش اینه که میتوانید همه تکست باکسها رو با هم گروه بندی کنید و نمیخواد برای تک تک انها کد بنویسید.

البته تابع بالایی رو میتوانید خودتان اغییر دهید.
من برای زبان هلندی طراحی کردم (مثلا باید . به , تبدیل شود ) و نمیتوان بیشتر از یکی از اینها رو داشت که بسته به نیاز میتوانید تغییر دهید.
نیازی به این همه کد نیست
برای چند تکست باکس میشه یک بار کد رو نوشت و رویداد کی پرز همه تکست باکس ها رو به همون یکی هندل کرد.
ساده اش هم اینه (تو رویداد keypress)
Dim num As String = "01234546789" & Chr(Keys.Back)
If num.Contains(e.KeyChar) Then e.Handled = True

[Hossein Bazyan]

نیازی به این همه کد نیست
برای چند تکست باکس میشه یک بار کد رو نوشت و رویداد کی پرز همه تکست باکس ها رو به همون یکی هندل کرد.
ساده اش هم اینه (تو رویداد keypress)
Dim num As String = "01234546789" & Chr(Keys.Back)
If num.Contains(e.KeyChar) Then e.Handled = True




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