تشخیص عدد یا رشته در textbox

[mvb_mehran]

با سلام
من چجوری می تونم بفهمم که کاربر در textbox عدد وارد می کند یا رشته ؟
با تشکر از دوستان

[ACorvinus]

سلام.

اگه اینو در KeyPress مربوط به TextBox بنویسی و کاربر عدد وارد کنه، نوشته نمیشه!!



If IsNumeric(e.KeyChar) Then
e.Handled = True
End If



موفق باشی.

[رضا نانوا]

با سلام
من چجوری می تونم بفهمم که کاربر در textbox عدد وارد می کند یا رشته ؟
با تشکر از دوستان
این سورس بدردت میخوره ، میتونه یه MsgBox به آخر کدت اضافه کنی تا پیام بهت بده

[abureyhan]

درود .

مثال :

Dim i, As Integer
i = Text1.Text
If i <> Val(i) Then
Print "bayad be surate adad vared konid !"
End If

By Arman Hosseini From Neyshaboor

[sagggad]

سلام
عذر میخوام اما تمام کدهای دوستان بیش از حد پیچیده شده
این کد به راحتی این کار رو انجام میده:

If IsNumeric(TextBox1.Text) Then
MsgBox("Numeric")
End If