Allow NumbersOnly

[Zach_VB6]

    Private Sub Text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text1.KeyPress
        If (IsNumeric(e.KeyChar)) = False Then e.KeyChar = vbNullString
    End Sub

Replace Text1 with your textbox.

[JuggaloBrotha]

Or use the NumericUpDown control, which is a textbox designed to handle numbers.

It's in the same toolbox as the Textbox, Label, Combobox, etc..

[snakegaer]

i tried it and it didn't work well something is wrong

i used this code and works fine

Private Sub Text1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.TextChanged
        If (IsNumeric(Text1.Text)) = False Then Text1.Clear()
End Sub

Or use the NumericUpDown control, which is a textbox designed to handle numbers.

It's in the same toolbox as the Textbox, Label, Combobox, etc..

where is this control???

[Paul M]

The NumericUpDown control serves a different purpose it allows you to move the number in the textbox up and down. Where as using the IsNumeric method allows you to enter numbers only.

In any case it is in the toolbox (NumericUpDown) to be more specific in the "Common Controls" node. Just expand it and it should be mid way up that node

[stanav]

    Private Sub Text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text1.KeyPress
        If (IsNumeric(e.KeyChar)) = False Then e.KeyChar = vbNullString
    End Sub

Replace Text1 with your textbox.

Are negative numbers or decimal numbers (i.e -123 or 123.56) considered numbers? Your solution won't work for these.

[JuggaloBrotha]

Are negative numbers or decimal numbers (i.e -123 or 123.56) considered numbers? Your solution won't work for these.

I don't know about the IsNumeric() function, but I do know the NumericUpDown control handles all this gracefully.

Also with the NUD control, you can set a couple of properties to have it look and act just like a TextBox too, so really people need to stop "re-creating" a Numeric Only TextBox, they serve no purpose, and means you have more code to maintain.