by Webmonster (6 Submissions)
Category: Miscellaneous
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating:
(3 Votes)
Stops letters from being typed in a textbox
This will stop letters being put in a textbox named text1
private sub text1_keypress(keyascii as integer)
select case keyascil
case is < 42
case 48 To 57
case else
keyascil = 0
end select
end sub