OK, so I am new to the VB caper, but I am trying.

I want to do something simple like restrict a users input into
a textbox, making sure that it is a real (or integer). I
know that you can use the keypress event to limit the allowable
keystrokes to numbers and the decimal, but I can't stop the
user from entering 3.14.159.

I know I am missing something. Can someone please help me. By
the way, I'm using VB4 standard edition.
--
---------------------------------------------------------------------
Brian Hoover http://www.*-*-*.com/ ~hoover   |  Multiline BBS

---------------------------------------------------------------------

        Sub Text1_KeyPress(keyAscii as integer)
                If keyAscii= Asc(".") then
                        if instr(text1,".") then
                                beep
                                keyAscii=0
                        endif
                endif
        end sub

You should also limit entering "-" to at the front of the text, using
Text1.SelStart.

Be careful about using CSng(Text) + error catching, since this won't
allow you to enter a sibngle "-".

Gent (Ghent, Gand),
Belgium,
Europe,
3rd planet from the sun.

The Masked Edit-control (included in VB 4.0) can be used here. Check it
out in help.

Use the following code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
        If InStr(Text1.Text, ".") = 0 And KeyAscii = 46 Then
            Exit Sub
        End If
        KeyAscii = 0
    End If
End Sub

This will allow for only number 1 decimal point anywhere in the string
and the use of the backspace key.

        -Steve
Innovative Communications

On Thu, 08 May 1997 16:33:35 +0800, Brian Hoover

Use the following code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
        If InStr(Text1.Text, ".") = 0 And KeyAscii = 46 Then
            Exit Sub
        End If
        KeyAscii = 0
    End If
End Sub

This will allow for only number 1 decimal point anywhere in the string
and the use of the backspace key.

        -Steve
Innovative Communications

On Thu, 08 May 1997 16:33:35 +0800, Brian Hoover

Use the following code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
        If InStr(Text1.Text, ".") = 0 And KeyAscii = 46 Then
            Exit Sub
        End If
        KeyAscii = 0
    End If
End Sub

This will allow for only number 1 decimal point anywhere in the string
and the use of the backspace key.

        -Steve
Innovative Communications

On Thu, 08 May 1997 16:33:35 +0800, Brian Hoover