enhanced text box

[ThinkParis]

im trying to make an "enhanced" textbox control that only accepts numeric input. how would i do that

[PsyVision]

Put a normal textbox on your form and then under keypress event add this (it may/may not work):

If keyascii => 48 and keyascii <= 57 then
keyascii = keyascii
else
exit sub
end if

Its probably a right load o crap but baically u can interseot the keypresses and change the char it displays.

[noble]

Read down a couple of threads. Someone posted that same question a few moments ago. If you want the API I spoke of, let me know.

[noble]

Psy, your code is fine except for the first part.

If the keyascii is btw those 2 values, then you have to set keyascii equal to some other value such as 0 then use BEEP to beep the internal speaker and the let the user know he is a moron or something. This is exactly what that api does.....except it looks cooler in doing so

[YoungBuck]

Don't forget the Tab, Delete, and Backspace keys.

Private Sub Text1_KeyPress(KeyAscii As Integer)
    ' Allow characters 0 - 9
    If (KeyAscii < vbKey0) Or (KeyAscii > vbKey9) Then
        ' Allow Backspace, Delete, and Tab keys to be used
        If KeyAscii <> vbKeyBack And KeyAscii <> vbKeyTab And KeyAscii <> vbKeyDelete Then
            KeyAscii = 0
        End If
    End If
End Sub

Something more simpler...:

Private Sub Text1_KeyPress(KeyAscii As Integer)
     If KeyAscii < 33 Then Exit Sub
     If Not (IsNumeric(Chr(KeyAscii))) Then KeyAscii = 0
End Sub

[Jop]

Yep that's the way we like it matthew

YoungBuck, just to let you know, your code wouldn't work cause of the And's in it.

If KeyAscii <> vbKeyBack And KeyAscii <> vbKeyTab And KeyAscii <> vbKeyDelete Then

this should be

If Not (KeyAscii = vbKeyBack Or KeyAscii = vbKeyTab Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then

Please don't see this as a kindof attack, it was just for your educational lessons for today, but anyway, Matthew's code will work best and that's how I always write it

Sleep well!