کد ورود عدد در textbox

با سلام :
چه کدی در رویداد keypress مربوط به textbox میشه نوشت که فقط و فقط عدد وارد بشه؟؟؟

سلام
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از کدهای زیر هم میتونی استفاده کنی

برای گرفتن عدد صحیح

کد:

---


IfChar.IsNumber(e.KeyChar) = FalseThen
e.Handled = True
EndIf
If e.KeyChar = (vbBack) Then
e.Handled = False
EndIf
If e.KeyChar = (vbTab) Then
e.Handled = False
EndIf


---

برای گرفتن عدد اعشاری

کد:

---


IfChar.IsNumber(e.KeyChar) = FalseThen
e.Handled = True
EndIf
If e.KeyChar = (vbBack) Then
e.Handled = False
EndIf
If e.KeyChar = (vbTab) Then
e.Handled = False
EndIf
If e.KeyChar = "." Then
If InStr(TextBox1.Text, ".") = FalseThen
e.Handled = False
EndIf
EndIf


---

ممنون از لطفتون