Membuat format ‘Rp’ (rupiah) pada angka di textbox (visual basic 6.0)

Daftar Isi

Yaaa sekarang saya akan berbagi tutor visual basic lagi, yaitu membuat angka yang di masukkan pada textbox menjadi berformat ‘Rp’.. tapi tutor ini mungkin terlalu simpel. Tapi ga apa apa lah yang penting kan bermanfaat buat yang baca.. yooo kita mulai aja.

1.       Seperti biasa, tentunya kita membuka buka Visual basic 6.0 dulu lalu pilih standar exe

2.       Setelah itu bikin textbox. Satu aja cukup ko n_n

3.       Lalu klik dua kali textboxnya, sehingga muncul tampilan seperti ini.

4.       Setelah itu ganti ‘text1_change’ menjadi text1_click, lalu masukkan koding di bawah ini sehingga seperti di bawah ini :

Private Sub text1_Click()

Text1.Text = Format(Val(Text1.Text), "Rp,###,##,0.00")

End Sub

5.       Selesai.. tinggal di run.

Klik textboxtnya dan akan muncul seperti ini :

Sepele kaan ? gitu aja ko repot :D

*keterangan

-asumsi nama textbox adalah text1

-format rp muncul ketika anda mengklik textboxnya

-jika yang anda inputkan dalam textbox adalah huruf, maka otomatis ketika di klik textboxnya hanya menjadi ‘Rp,0.00’ karena ini khusus angka. Nah supaya anda hanya bisa menginputkan angka saja pada textbox, anda dapat membaca artikel saya ‘mengunci textbox agar hanya bisa dimasukkan  angka maupun huruf saja’..