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 As OleDbConnection

    Public da As OleDbDataAdapter

    Public ds As DataSet

    Public cmd As OleDbCommand

    Public rd As OleDbDataReader

    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 Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call Koneksi()

        Call Tampilkan()

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox2.Focus()

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

        End If

    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.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 Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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 :