MEMBUAT FORMAT RUPIAH DI VISUAL BASIC 6.0

Sevcom17 - Kali ini insyaallah saya akan membuat sebuah trik dari Visual Basic 6.0, trik ini dapat kita pergunakan dalam melakukan peng-inputan data yang berhubungan dengan mata uang, tentu saja dengan mata uang Negara saya "Indonesia". Kita tidak pernu menambahkan titik atau simbol mata uang (Rp) pada saat melakukan peng-inputan, karena akan otomatis ditampilkan. Mungkin trik ini banyak sekali di kalangan internet, tapi apa salahnya bila saya mengulangnya kembali. Tutorial ini saya ambil dari buku trik visual basic 6.0. Yuk kita simak baik-baik.

• Buka program Visual Basic 6.0. di pastikan anda sudah mempunyai softwarenya. Jika belum memiliki silahkan download di sini
• Masukan satu buah komponen TextBox ke dalam area form dan ubah propertis Alignment menjadi 1-Right Justify dan kosongkan properti text-nya.
• Klik ganda pada area komponen TextBox dan ketikan perintah kode di bawah ini.

Prive Sub Text1_Change()
             On Error Resume Next
             Text1 = "Rp " & Format (CDb1 (Text1), "#,#")
             SendKeys "{end}"
End Sub

• Ubah event Change pada komponen Text1 menjadi event KeyPress dan ketikan perintah kode di bahwah ini

Private Sub Text1_KeyPress (KeyAscii As Integer)
      If IsNumberic (Chr(KeyAscii)) <> True Then KeyAcii = 0
End Sub

Itu saja trik Membuat Format Rupiah Di Visual Basic 6.0, Mudah bukan ?. Selamat Mencoba