format the text in the texbox

[pingpang]

How would you format the text(numeric) in a textbox?

Private Sub txtUprice_Change()
txtUprice.Text = Format(txtUprice.Text, "Php ###,###&quot
End sub

what i want is when the user starts typing the comma and would appear while the user inputs the amount.

thanks!

 

[vb5prgrmr]

You might want to look at the maskedit box for the visual you are looking for.

Good Luck

 

[zemp]

Assuming 'Php' is your currency symbol, you can try.

Private Sub txtUprice_Change()
txtUprice.Text = Format(txtUprice.Text, "Php #,###,##0.00&quot
End sub
Thanks and Good Luck!

zemp

 

[newbob1999]

I have the following bit of code on the Keypress for a text box.

Text1.Text = Format(Text1.Text, "##,###,###,###.##&quot

This works to a certain extent, but when I'm typing in a large number, at various points the cursor moves to the start of the text box and the number doesn't appear in the ordered I typed it.

Any ideas how to fix this problem?

 

[zemp]

I would take it out of the Keypress event. Running the code every time an entry is made can cause problems.

Instead, place the code in the validate or lost focus event. Or use a mask edit box so the user can see a properly formatted entry as they are typing.

Thanks and Good Luck!

zemp