enhanced text box

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

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.

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.

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

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

Code:

---

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...:rolleyes::

Code:

---

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

---

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.

Code:

---

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

---

this should be

Code:

---

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!