Membuat Format Currency/Mata Uang Indonesia dengan VB.NET dan C#

Setelah beberapa hari yang lalu saya memposting tentang Filter Kata-Kata Buruk/Kotor dengan VB.NET dan C# pada sore kali ini saya akan membahas tentang Membuat Format Currency/Mata Uang Indonesia dengan VB.NET dan C#.

Mungkin terkadang anda ingin merubah value pada textbox dari 100000 menjadi Rp1.000.000 agar lebih mudah dibaca oleh user/pengguna, oke langsung saja

Langkah - langkah Membuat Format Currency/Mata Uang Indonesia dengan VB.NET dan C#

1. Buka Visual Studio anda lalu tambahkan 1 buah label dan juga textbox, dan atur lah tata letaknya seperti gambar dibawah ini

2. Pada Event Form_Load ketikan script dibawah ini
VB.NET

' merubah cultureinfo menjadi indonesia
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("id-ID")
System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("id-ID")

textBox1.Text = FormatCurrency(0)

// merubah cultureinfo menjadi indonesia
System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("id-ID");
System.Threading.Thread.CurrentThread.CurrentUICulture = new System.Globalization.CultureInfo("id-ID");

textBox1.Text = Convert.ToDecimal(0).ToString("c");

3. Pada Event textbox1_KeyPress ketikan script dibawah ini
VBNET

If ((e.KeyChar >= Convert.ToChar(48)) AndAlso (e.KeyChar <= Convert.ToChar(57))) Then ' 0 - 9
    e.Handled = False
ElseIf (e.KeyChar = Convert.ToChar(8)) Then ' backspace
    e.Handled = False
ElseIf (e.KeyChar = Convert.ToChar(13)) Then ' enter
    e.Handled = False
Else
    e.Handled = True
End If

if (e.KeyChar >= Convert.ToChar(48) && e.KeyChar <= Convert.ToChar(57)) // 0 - 9
{
    e.Handled = false;
}
else if (e.KeyChar == Convert.ToChar(8)) // backspace
{
    e.Handled = false;
}
else if (e.KeyChar == Convert.ToChar(13)) // enter
{
    e.Handled = false;
}
else
{
    e.Handled = true;
}

4. Pada Event textbox1_TextChanged ketikan script dibawah ini
VBNET

If textBox1.Text.Length <= 2 Then ' jika panjang karakter pada textbox1 <= 2
    textBox1.Text = FormatCurrency(0) ' menampilkan Rp0
Else ' jika tidak
    textBox1.Text = FormatCurrency(textBox1.Text) ' mengubah format pada textbox1 menjadi currency
    textBox1.SelectionStart = textBox1.Text.Length '  menetapkan titik awal dari teks yang dipilih pada textbox
End If

if (textBox1.Text.Length <= 2) // jika panjang karakter pada textbox1 <= 2
{
    textBox1.Text = Convert.ToDecimal(0).ToString("c"); // menampilkan Rp0
}
else // jika tidak
{
    textBox1.Text = decimal.Parse(textBox1.Text, System.Globalization.NumberStyles.Currency).ToString("c"); // mengubah format pada textbox1 menjadi currency
    textBox1.SelectionStart = textBox1.Text.Length; // menetapkan titik awal dari teks yang dipilih pada textbox
}

5. Jalankan program tersebut dengan menekan F5 maka tampilannya akan seperti gambar dibawah ini