Membuat format angka - uang dalam vb.net

Format angka uang sangat diperlukan dalam pembuatan aplikasi yang mengandung data angka. Sebagai contoh angka 1234567890 sangat sulit ditentukan berapa jumlahnya. Berbeda dengan 1,234,567,890. Untuk membuat format angka uang sebenarnya ada banyak pola. Salah satunya akan saya jelaskan disini.

1. Pertama buatlah sebuah project baru
2. Kemudian buatlah form dengan bentuk seperti gambar di bawah ini

Form diatas  terdiri dari textbox, button dan datagridview

Setelah membuat form, ketiklah atau copy coding dibawah ini (selamat mencoba semoga berhasil)

Imports System.Data.OleDb

Public Class form1

    Public Conn AsOleDbConnection

    Public da AsOleDbDataAdapter

    Public ds As DataSet

    Public cmd AsOleDbCommand

    Public rd AsOleDbDataReader

    Public Sub Koneksi()

        Conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=PENJUMLAHAN.mdb")

        Conn.Open()

    End Sub

    Sub Tampilkan()

        da = New OleDbDataAdapter("Select * from TABLE1", Conn)

        ds = New DataSet

        ds.Clear()

        da.Fill(ds)

        DGV.DataSource = (ds.Tables(0))

        DGV.Columns(0).DefaultCellStyle.Format = "###,###,###"

        DGV.Columns(1).DefaultCellStyle.Format = "###,###,###"

        DGV.Columns(2).DefaultCellStyle.Format = "###,###,###"

        DGV.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        DGV.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        DGV.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        DGV.ReadOnly = True

    End Sub

    Private Subform1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        Call Koneksi()

        Call Tampilkan()

    End Sub

    Private SubTextBox1_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) HandlesTextBox1.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox2.Focus()

            TextBox1.Text = FormatNumber(TextBox1.Text, 0) 'ini format angka

        End If

    End Sub

    Private SubTextBox2_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) HandlesTextBox2.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox2.Text = FormatNumber(TextBox2.Text, 0) ' ini format angka

            TextBox3.Text = Val(Microsoft.VisualBasic.Str(TextBox1.Text)) + Val(Microsoft.VisualBasic.Str(TextBox2.Text))

            TextBox3.Text = FormatNumber(TextBox3.Text, 0) 'ini format angka

            Button1.Focus()

        End If

    End Sub

    Private SubButton1_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesButton1.Click

        cmd = New OleDbCommand("insert into TABLE1 values ('" & Microsoft.VisualBasic.Str(TextBox1.Text) & "','"& Microsoft.VisualBasic.Str(TextBox2.Text) & "','"& Microsoft.VisualBasic.Str(TextBox3.Text) & "')", Conn)

        cmd.ExecuteNonQuery()

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox1.Focus()

        Call Tampilkan()

    End Sub

End Class

hasil coding :