Breadcrumbs

[zachman61]

How can i make a textbox only accept numerical values( no letters)?

[Codex]

Code: Select all

    Private Function TrapKey(ByVal KCode As String) As Boolean
        If (KCode >= 48 And KCode <= 57) Or KCode = 8 Then
            TrapKey = False
        Else
            TrapKey = True
        End If
    End Function

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        e.Handled = TrapKey(Asc(e.KeyChar))
    End Sub

[Axel]

under textbox keypress

Code: Select all

If Char.IsDigit(e.KeyChar) And Char.IsControl(e.KeyChar) Then
e.Handled = True
End if

I got this from a source I found somewhere (I don't know where exactly)
What it does is it checks if the pressed key is a number then the thing that should've happened will actually happen else not
Tell me if it doesn't work cooll;

[zachman61]

under textbox keypress

Code: Select all

If Char.IsDigit(e.KeyChar) And Char.IsControl(e.KeyChar) Then
e.Handled = True
End if

I got this from a source I found somewhere (I don't know where exactly)
What it does is it checks if the pressed key is a number then the thing that should've happened will actually happen else not
Tell me if it doesn't work cooll;

Sure doesn't :(

[mandai]

Codex's example worked for me.
You could also do it this way:

Code: Select all

e.Handled = Not Char.IsNumber(e.KeyChar)