Validation of entries in textbox

[WeeBeng]

I wish to be able to enter only positive or negative numbers into a textbox.How can I go about doing this? Is there any inherent vbmethods I can use with the textbox. I am currently able to restrict entries into the textbox to be positive number but have problems with the negative sign of the negative number. For example , I need to restrict the entry of the negative sign to be only possible as the first entry in the textbox but is unable to do so. How can I do this? Is it possible to know the cursor position in the textbox?

I thank you

[cksiow]

do it in keypress event, i.e. say text1 is the textbox

if len(text1) > 0 then
if asciikey = asc("-") then
asciikey = 0
end if
end if

HTH

cksiow
http://vblib.virtualave.net - share our codes

[sudheer]

this is for you my dear friend


sudheer

[Toracle]

do it in keypress event, i.e. say text1 is the textbox

if len(text1) > 0 then
if asciikey = asc("-") then
asciikey = 0
end if
end if

HTH

cksiow
http://vblib.virtualave.net - share our codes


something wrong this this codes? seem to have error in the first line

[rahul.kul]

I wish to be able to enter only positive or negative numbers into a textbox.How can I go about doing this? Is there any inherent vbmethods I can use with the textbox. I am currently able to restrict entries into the textbox to be positive number but have problems with the negative sign of the negative number. For example , I need to restrict the entry of the negative sign to be only possible as the first entry in the textbox but is unable to do so. How can I do this? Is it possible to know the cursor position in the textbox?

I thank you

Hi

try out this and definately you will thanks me for this ;;


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
If KeyAscii = 45 And Val(Text1.Text) = 0 Then
Else
KeyAscii = 0
End If
End If

End Sub


So Enjoy and Happy Coding !

Regards Rahul !:wave:

[GremlinSA]

I use this in the keypress subSelect Case KeyAscii
Case 1 To 7
KeyAscii = 0
Case 9 To 44
KeyAscii = 0
Case 47
KeyAscii = 0
Case 58 To 255
KeyAscii = 0
End Select Using the select case method i get a bit more control on what i want to let through..

Gremmy....