TextBox limit number of digit to enter

Hello,

does somebody know to limit in a TextBox possible digits
e.g.

Form1 - TextBox1

Sub TextBox1_KeyPress (key)
If StrLength(textbox1.Text)>3 Then
key=""
End If
End Sub

I want to limit the Textbox to max. 3 digits, is this possible.

Best Regards

Michael

This was not done by me.
I think it's agraham who wrote this code.
I think the number 2 is correct for your needs.

If you want to do it a more elegant way, just have a look at filippos fgcontrols library.

The fgTextBox provides a MaxLenght and a OnlyNumber property.


specci48

Thanks for all the idea,
my final solution is now

On Form1 are 2 TextBox Controls:

Sub App_Start
AddEvent("TextBox1",KeyPress,"TextBox_maxC5_KeyPress")
AddEvent("TextBox2",KeyPress,"TextBox_maxC5_KeyPress")
Form1.Show
End Sub


Sub TextBox_maxC5_KeyPress (key)
If StrLength(Control(Sender))=5 AND _
( IsLetter(key) OR IsNumber(key) ) Then
Control(Sender).IgnoreKey
End If
End Sub