Limit textbox to numeric keys

[ScareCrow]

How do I go about limiting a textbox to accepting numeric key input from the keyboard in vb.net?


--------------= Posted using GrabIt =----------------
------= Binary Usenet downloading made easy =---------
-= Get GrabIt for free from http://www.shemes.com/ =-

[Herfried K. Wagner [MVP]]

"ScareCrow" <no*****@justhe re.com> schrieb:

How do I go about limiting a textbox to accepting numeric key input from
the keyboard in vb.net?

<URL:http://groups.google.d e/groups?selm=OFw 5dO1kEHA.2504%4 0TK2MSFTNGP14.p hx.gbl>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Larry Serflaten]

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote

How do I go about limiting a textbox to accepting numeric key input from
the keyboard in vb.net?

<URL:http://groups.google.d e/groups?selm=OFw 5dO1kEHA.2504%4 0TK2MSFTNGP14.p hx.gbl>

Would you really rather use an expensive error trap when you can include
the test yourself? Testing it with code does not induce the delay you get while
the error is being caught....

Dim Source As TextBox = DirectCast(send er, TextBox)
Dim Message As String
If Source.Text Like "*[!0-9.]*" Then ' Remove '.' if decimals are not allowed.
Message = "Text is not expected here." & vbCrLf & "Enter a numeric value."
End If
Me.ErrorProvide r1.SetError(Sou rce, Message)

???
LFS

[Cor Ligthert]

Scare,

I made a sample after a long discussion in this newsgroup, the best of two
methods in my opinion.

http://groups-beta.google.com/group/...aa417bf7a25528

(It limits as well the lenght, however accepts as well decimal points and
exponents)
When you want only true numeric characters, than you get more a sample as
Herfried and Larry's.

Another advantage of this one is that it test during typing and not wait
until the end. I have somewhere one which does it during typing as well,
there are given a lot for that in this newsgroup, however that is in my
opinion easy to make as well from my sample combining with the code from
Larry.

I hope this helps?

Cor

How do I go about limiting a textbox to accepting numeric key input from
the keyboard in vb.net?


--------------= Posted using GrabIt =----------------
------= Binary Usenet downloading made easy =---------
-= Get GrabIt for free from http://www.shemes.com/ =-

[Herfried K. Wagner [MVP]]

Larry,

"Larry Serflaten" <se*******@usin ternet.com> schrieb:

Would you really rather use an expensive error trap when you can include
the test yourself? Testing it with code does not induce the delay you
get while
the error is being caught....

Dim Source As TextBox = DirectCast(send er, TextBox)
Dim Message As String
If Source.Text Like "*[!0-9.]*" Then ' Remove '.' if decimals are
not allowed.
Message = "Text is not expected here." & vbCrLf & "Enter a
numeric value."
End If
Me.ErrorProvide r1.SetError(Sou rce, Message)

That would work too and is a more evolved soltion :-).

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Alex Levi]

Try this:

Private Sub TextBox1_KeyPre ss(ByVal sender As Object, ByVal e As
System.Windows. Forms.KeyPressE ventArgs) Handles TextBox1.KeyPre ss
If (IsNumeric(e.Ke yChar) = False) Then e.Handled = True
End Sub

"ScareCrow" wrote:

How do I go about limiting a textbox to accepting numeric key input from the keyboard in vb.net?


--------------= Posted using GrabIt =----------------
------= Binary Usenet downloading made easy =---------
-= Get GrabIt for free from http://www.shemes.com/ =-