Help, Only numbers, no letters

[Zoom]

Hi!

I need to make a textbox only accept numbers! No letters or special symbols!

//H

[Calebb]

masked textbox?

[Lolland]

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

    Dim NumbersAccepted As String = "0123456789" 'or the numbers you want to use

    If NumbersAccepted.IndexOf(e.KeyChar) = -1 Then
        e.Handled = True
    End If

[mnpeep]

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

    Dim NumbersAccepted As String = "0123456789" 'or the numbers you want to use

    If NumbersAccepted.IndexOf(e.KeyChar) = -1 Then
        e.Handled = True
    End If

DAM for a 12 year old your beast at VB

PS you should make a multitool.

[Lolland]

I would, but I prefer smaller projects.

[Zoom]

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

    Dim NumbersAccepted As String = "0123456789" 'or the numbers you want to use

    If NumbersAccepted.IndexOf(e.KeyChar) = -1 Then
        e.Handled = True
    End If

Awsome thanks! It works only numbers and no letters! Thanks!

But i can´t use backspace now :/ u know how to fix?

[Lolland]

Yeah, that's the only thing that sucks about that method. There's other better ways of doing it, I'll check my project folder (about 100 projects )

[Pixie]

Yeah, that's the only thing that sucks about that method. There's other better ways of doing it, I'll check my project folder (about 100 projects )

I think this may be why you can't backspace:

If NumbersAccepted.IndexOf(e.KeyChar) = -1 Then
        e.Handled = True

I'm not sure, but you should probably look at it...
I have another possible solution, but I don't feel like posting it right now
Just PM me and I will answer it later (I'm too busy unpacking stuff from vacation)

[Zoom]

Problem solved //Close

Found a other way that worked much better Thans btw

[Lolland]

What was it? I know I have it somewhere, but I've gone through 30 projects in like 2 hours and I don't wanna check the rest -.-

[Lolland]

Post the code, I know I have it but I cant find it :@

[Zoom]

Post the code, I know I have it but I cant find it :@

Sure,

 Private Function ValidateNumeric(ByVal strText As String) _
        As Boolean
        ValidateNumeric = CBool(strText = "" _
            Or strText = "-" _
            Or strText = "-." _
            Or strText = "." _
            Or IsNumeric(strText))
    End Function

  If Not ValidateNumeric(TextBox1.Text) Then

code here

end if

[mnpeep]

cool code.