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
- Klik Project --> Components (Ctrl + T), trus
- Trus cari component Microsoft Masked Edit Control dan beri tanda centang, kemudian klik OK.
- Kamu bisa customize option dan propertynya sesuai dengan keinginan kamu.
Mudah - Mudah bermanfaat.
Tian Zega
Chandra Lintong <[EMAIL PROTECTED]> wrote:
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 jelasnyadalam text box kita akan mengetik 100000, pada saat mengetik nilai ini secara otomatis berubah menjadi 100.000mohon bantuannya yach...Best RegardsChandra
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
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
