validation

[technohead]

hi i want ot validate a textbox so that only numbers and a dot can be entered.


thanks.

 

[Swi]

Use this same information that I gave you before just replace the decimal representations:

Public Function CustomKeys(KeyAscii As Integer) As Integer
Select Case KeyAscii
Case 46, 48 To 57
Case Else
KeyAscii = 0
End Select
CustomKeys = KeyAscii
End Function

Then call it in the text keypress event:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = CustomKeys(KeyAscii)
End Sub

This will take care of #'s 0 - 9 and '.'

If you are wondering what other characters are go to

http://www.asciitable.com.

 

[Swi]

You may also want to add an '8' to the list of numbers so the user can backspace if they make a mistake. Sorry I did not include this the first time.