[ask] textbot_changed

i have a code

Code:

---

Private Sub txt1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt1.TextChanged
        Dim a As Integer
        txt1.SelectionStart = txt1.Text.Length
        a = txt1.SelectionStart
        If status = True And (Chr(Asc(txt1.SelectedText(a))) < Chr(48) Or Chr(Asc(txt1.SelectedText(a))) > Chr(57)) And Chr(Asc(txt1.SelectedText(a))) <> Chr(8) Then
            MsgBox("Only numeric text", MsgBoxStyle.OkOnly)
            txt1.Text = Chr(0)
            txt1.Focus()
        End If
    End Sub

---

i want to make a checking everytime i input a character
it's checking is it a numeric or not

plz help me

thx

The TextChanged event does fire each time a change is made in the textbox like a single character keypress.

You should be using the KeyPress event for this. You can test the character before it is added to the control instead of after. There are NUMEROUS examples on the forum of limiting input in TextBoxes using this technique so I'd suggest a search.

Just use this:

Code:

---

Private Sub txt1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt1.KeyPress
    'Editing
End Sub

---