Membuat Format Rupiah Di Textbox Vb 2010

Membuat Format Rupiah Di Textbox Vb 2010


Langkah :

1. Buat sebuah Form Di Visual basic 2010
2. Tambahkan 1 Buah "textbox', maka akan terlihat seperti Dibawah ini :

3. Kemudian, klik double pada textboxt, lalu paste kan kode berikut :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim f As Long
        If TextBox1.Text = "" Or Not IsNumeric(TextBox1.Text) Then
            Exit Sub
        End If
        f = TextBox1.Text
        TextBox1.Text = Format(f, "Rp,   ##,##0")
        TextBox1.SelectionStart = Len(TextBox1.Text)
    End Sub

4. Langkah terakhir, Tekan F5, lalu masukkan nilai (angka) pada textbox, maka hasilnya akan seperti ini :

Selamat mencoba....!!!

Salam
HarleY DaoelaY