Numeric characters

[Sathyaish]

Feeling foolish coming up with these silly things but God knows why, the last few days, I've been hamstrung by these trivial errors.

This code does what it is supposed to do only while I step through it. When I run it, whether in the IDE or in the EXE, it does not block non-numeric characters. It let's me enter all kinds of characters.

Private Sub txtNewIPAddress_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode
        Case vbKeyBack Or vbKeyDelete Or Asc(".") Or vbKeyHome Or vbKeyEnd
        Case 48 To 57
        Case Else
            KeyCode = 0
    End Select
    
End Sub

[opus]

I don't fully understand what you are trying to do.
Do you want to assign the KeyCode a "0" whenever it is not between 48 and 57 or one the other Keys?
In this case I would put it like that:

Private Sub txtNewIPAddress_KeyDown(KeyCode As Integer, Shift As Integer)
If Not (KeyCode = vbKeyBack Or KeyCode = vbKeyDelete Or KeyCode = Asc(".") Or KeyCode = vbKeyEnd Or (48 <= KeyCode <= 57)) Then
    KeyCode = 0
End If
 
End Sub

[Sathyaish]

Thanks. But tell me, what difference would that make? The problem persists. Please remember that it runs while stepping through the code but not while running it.

[lengwai]

if you want to block no numeric characters .. you can use

isNumeric() function...
and then verify the ascii value of it to make sure it is not any of the symbols like "/", "(", etc


why dont you try this?

[opus]

I made a small change, but I don't think that'S your problem. ???

Private Sub TextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyBack Or KeyCode = vbKeyDelete Or KeyCode = 190 Or KeyCode = vbKeyEnd Or (48 <= KeyCode And KeyCode <= 57)) Then
 
Else
    KeyCode = 0
End If
 
End Sub

[manavo11]

I think keydown won't work since there is keyup also. So unless you put the same code in the keyup event you can use the keypress event as following. If you step through the code the keyup event won't fire if I am not mistaken :

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> vbKeyBack) And (KeyAscii <> vbKeyBack) And (KeyAscii <> vbKeyDelete) And (KeyAscii <> Asc(".")) And (KeyAscii <> vbKeyHome) And (KeyAscii <> vbKeyEnd) Then
        KeyAscii = 0
    End If
End Sub