Textbox that ONLY shows numbers ??

[vbNeo]

How do i make a textbox that you ONLY can write numbers in ?
I thought of something like this:

If  txtNumbers.Text = "a" or "A" Then
txtNumbers.Text = ""
End If

It works fine, but it will just be a hell of a lot of work !
And i'm... pretty lazy
Regards

[fllewis]

Try this:

Private Sub txtTextBox_KeyPress(KeyAscii As Integer)
 
If (KeyAscii = 8) Or (KeyAscii = 32) Then Exit Sub
 
    If IsNumeric(Chr(KeyAscii)) = False Then
        KeyAscii = 0
        Exit Sub
    End If
End Sub

I didn't test is, but I think this is what I usually use.

[phinds]

look up isNumeric

[vbNeo]

Thanks dude !
It works perfectly ! i will look it up laters

[peet]

Originally posted by vbNeo
Thanks dude !
It works perfectly ! i will look it up laters

until the user paste something into the textbox

[Fox]

This neat snippet will make it the "correct way"

'Consts
    Private Const GWL_Style As Integer = (-16)
    Private Const ES_Number As Long = &H2000&
 
'Declares
    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
 
Public Sub SetNumbersOnly(iTextBox As TextBox, Optional iActive As Boolean = True)
    Dim Temp As Long
    
    'Get the current style
    Temp = GetWindowLong(iTextBox.hWnd, GWL_Style)
    
    'Set the new style
    SetWindowLong iTextBox.hWnd, GWL_Style, IIF(iActive, Temp Or ES_Number, Temp And (Not ES_Number))
End Function

[peet]

you can still paste nonenumeric data into the textbox

[BuggyProgrammer]

that's why they invented sublcassing

[phinds]

catch any changes via the change event & then run isNumeric

[phinds]

actually, that was a little too flip. I don't think isNumeric will work on long strings, and the thing about being able to past non-numeric was a good catch against my solution.

[DiGiTaIErRoR]

Muwhahaha!

In the change event put:

Text1.Text = Val(Text1.Text)

[DiGiTaIErRoR]

Either that or do a val command manually:

Function NumData(byval StrDat as String) as string
validchrs = "01234567890.-+"
For X = 1 to len(strdat)
if instr(validchrs,mid$(strdat,x,1)) > 1 then newstr = newstr & mid$(strdat,x,1)
Next
NumData = newstr
End Function
 
' use like:
' in change event
 
text1.text = numdata(text1.text)