| | Joined: Mar 2002 Posts: 185 Member | | Member Joined: Mar 2002 Posts: 185 | How could I make it possible for users to only enter numbers into a text box? Is it possible for it to just not display letters period? Or how would I just make a messagebox giving an error if they did enter a letter and hit enter? | | | |
▼ Sponsored Links ▼
▲ Sponsored Links ▲
| | | | Joined: Mar 2002 Posts: 1,273 DollarDNS Owner | | DollarDNS Owner Joined: Mar 2002 Posts: 1,273 | Here's the easiest and most effective way:
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = -16
Const ES_NUMBER = &H2000&
SetWindowLong Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_NUMBER | | | | | Joined: Mar 2002 Posts: 197 Member | | Member Joined: Mar 2002 Posts: 197 | hmm, no idea about that one SR, this one is without api and is also very simple a little example: Private sub textbox_keypress(keyAscii as Integer)
If (KeyAscii < 48 or KeyAscii > 57) and Keyascii <> 8 Then
'messagebox here
Keyascii = 0
'ascii value 8 = backscpace (when they entered a wrong number :) )
End if
End sub
Never argue with fools... They will only drag you down to their level, and beat you with experience...
| | | | | Joined: Mar 2002 Posts: 197 Member | | Member Joined: Mar 2002 Posts: 197 | argh, ok just delete this one I did wanted to correct something and accidenlty clicked on reply with a quote 
Never argue with fools... They will only drag you down to their level, and beat you with experience...
| | | | | Joined: Mar 2002 Posts: 1,273 DollarDNS Owner | | DollarDNS Owner Joined: Mar 2002 Posts: 1,273 | I fixed your post Predator so that the <'s and >'s are displayed properly. Yes, I still use that technique to outlaw various characters. Did you learn that technique from my whois code?  I made a textbox in it only accept domain-relevent characters. But yeah, try out my technique predator. The characters besides numbers and the backspace are blocked at the source. It's more efficient.  Besides, that, you can use other styles to make it all upper case letters or lowercase. Maybe more, I can't remember all the edit box styles. | | | | | Joined: Mar 2002 Posts: 197 Member | | Member Joined: Mar 2002 Posts: 197 | Na, i did learn this technique at school, cause we did learn to use vb and databases, so sometimes it was really necesarry to use it, and since we didn't learn any api calls... Maybe your code is the best solution, but for people not familiar with api it might be a problem (don't know if Mornse is familiar with it) so i gave a little alternative
Never argue with fools... They will only drag you down to their level, and beat you with experience...
| | | | | Joined: Mar 2002 Posts: 185 Member | | Member Joined: Mar 2002 Posts: 185 | Well, I've used API before, but I wouldn't say I'm really familiar with it. I dislike using it cause I'm lazy and don't like using/understanding all that code cause I like to understand the code I use. I'll probably just use pred's example because I understand it all. Thanx for the help guys. | | | | | Joined: Mar 2002 Posts: 1,273 DollarDNS Owner | | DollarDNS Owner Joined: Mar 2002 Posts: 1,273 | bah humbug. cheap, cheap excuse! but oh well, what pred described is definately a technique worth learning though. | | |
|
Posts: 7,204 Joined: February 2002
| | | Forums41 Topics33,839 Posts68,797 Members2,177 | | Most Online73,244
Nov 9th, 2025 | | |
|
