Dear Experts,
I need a text box for entering only for 0 to 9,.,Delete key ,Backspace key and Enter key except this i want nothing to do for this i am coding like as given below

Private Sub TxtAmendment_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtAmendment.KeyDown

If (e.KeyCode >= 48 And e.KeyCode <= 57) Or e.KeyCode = 190 Or e.KeyCode = 8 Or e.KeyCode = 46 Then

Else
' I WANT TO RETURN 13 E.KEYCODE BUT UNABLE TO ASSIGN
e.KeyCode=13 'NOW ALLOWED

End If

End Sub


so suggest me how to return 13 or Enter Kay to e.keycode

Best Regards,
Pardeep

>> I need a text box for entering only for 0 to 9,.,Delete key ,Backspace key and Enter key

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Or Asc(e.KeyChar) = 13 Then
            e.Handled = True
        End If
        If Asc(e.KeyChar) = 8 Then
            e.Handled = False
        End If
    End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then
            
            e.Handled = False
        End If
    End Sub
This article has been dead for over six months. Start a new discussion instead.