trap non numeric entry

[martialdc]

I’m trying to trap non-numeric entry in a regular text box including decimal point trapping

I put this code on the Keypress Event of the TextBox1 but it doesn’t work!

e.KeyChar = IIf((e.KeyChar >= Chr(48) And e.KeyChar <= Chr(57)) Or e.KeyChar = Chr(8) Or e.KeyChar = Chr(13) Or (e.KeyChar = Chr(46) And InStr(TextBox1.Text, ".") = Chr(0)), e.KeyChar, Chr(0))

[Edneeis]

Try using the different IsMethods of KeyChar to figure out what it is.

If e.KeyChar.IsNumber then

[RichardAtherton]

No better to add a handler.

In fact I created my own custom controls, for numeric only, decimal only and date inheriting from the text box control and adding a handler to check characters enter and disregard any that didn't meet the criteria.

Not near my system at the moment but if you want a code exampple I'll post it here.

[Pirate]

Edneeis's way is perfect but is this what you are looking for :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim KeyAscii As Integer
        KeyAscii = Asc(e.KeyChar)
        'only allow numbers, a single decimal point, backspace  or enter        
        Select Case KeyAscii
            Case Asc("0") To Asc("9"), Asc(ControlChars.Back)
                'acceptable keystrokes 
                e.Handled = False
            Case Asc(".")
                e.Handled = False
            Case Else
                e.Handled = True
        End Select
 
    End Sub