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

[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