Kalau seperti bagaimana mas:
Private Sub Text3_Change()
*Text3.Text = Format(Text3.Text, "#,##0")
SendKeys "{end}"*
End Sub
Pada tanggal 24/06/08, god ril <[EMAIL PROTECTED]> menulis:
>
> mo tanya nih..
>
> gmana cranya supaya ketika mengetik pada textbox hasil tampilan seperti
> 123,456?
>
> saya sudah pake cara sbagai berikut:
>
>
>
> Private Sub text3_change()
> Text3.Text = Format(Text3.Text, "#,##0")
> End Sub
>
>
>
> hasilnya ketika sudah tertulis 1,234
>
> cursor akan kembali ke depan
>
> jadi ketika di tulis dengan cepat hasilnya sbg berikut : 561,234
>
>
>
> mohon petunjuk rekan2..
>
> thanks
>
>
>
