بازم سلام .
خب این دفعه یه کد واقعا کاربردی واستون نوشتم که در بعضی مواقع واقعا به برنامه کمک زیادی میکنه ( به من که تابحال خیلی کمک کرده ).
در بعضی مواقع لازمه که کاربر رو از نوشتن هرچیزی به جز اعداد در TextBox منع کنیم . این کد به شما کمک میکنه که این کار رو انجام بدید . البته واسه کلید Backspace هم شرطی در نظر گرفته شده تا این کلید کار کنه . کد زیر رو در داخل رویداد KeyPress مربوط به تکست باکستون بنویسید :


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
در کد بالا فقط نوشتن کاراکتر نقطه منع نشده ( به خاطر نوشتن اعشار ) که در صورت که صلاح دیدید میتونید کاراکتر نقطه رو هم به ساختار Select-Case ی که در کد هست اضافه کنید . برای اینکار میتونید کد زیر رو بعد از یکی از Case ها بنویسید : 


Case "."

    e.Handled = True
اگه بازم مشکلی بود من در خدمتم ......