Hi Chandra,
 
Solusi untuk pertanyaan kamu ada 2:
1. Coba masukkan prosedur ini didalam property Sub Text_Change:
 
Private Sub Text1_Change()

    Text1.Text = Format$(Text1, "#,###0") 'rutin untuk merubah format Text1
    Text1.SelStart = Len(Text1) + 1 'rutin untuk meletakkan kursor pada akhir

End Sub
 
2. Pergunakan component MaskedEditBox yang tersedia di VB
  1. Klik Project --> Components (Ctrl + T), trus
  2. Trus cari component Microsoft Masked Edit Control dan beri tanda centang, kemudian klik OK.
  3. Kamu bisa customize option dan propertynya sesuai dengan keinginan kamu.
Mudah - Mudah bermanfaat.
 
Tian Zega

Chandra Lintong <[EMAIL PROTECTED]> wrote:
Teman-teman...
Saya mohon bantuannya nih,
gimana caranya pada saat kita input nilai dalam text box, secara otomatis membuat nilai nominal. lebih jelasnya
dalam text box kita akan mengetik 100000, pada saat mengetik nilai ini secara otomatis berubah menjadi 100.000
mohon bantuannya yach...
 
Best Regards
Chandra


Yahoo! DSL Something to write home about. Just $16.99/mo. or less

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]





SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language


YAHOO! GROUPS LINKS




Kirim email ke