نوع نوشتار در textbox

سلام
در vb.Net2 چطور می تونم کاری کنم که در textbox فقط بشه عدد بنویسی

سلام
با فرض اینکه فقط میتونیم از Back Space استفاده کنیم:

نقل قول:

---

PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If Asc(e.KeyChar) = 8 ThenExitSub
If (Char.IsNumber(e.KeyChar) <> True) Then
e.Handled = True
EndIf
If (Char.IsPunctuation(e.KeyChar)) Then
e.Handled = True
EndIf
EndSub

---

یا این :

کد:

---

Private

Sub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

 

SelectCase Asc(e.KeyChar)

Case 48 To 57

Case 8
CaseElse : e.Handled = True
EndSelect
EndSub

---