Membuat Format Uang Pada TextBox Vb.Net
Di malam hari pada saat gw termenung kelelahan cozz habis halalbihalal-an kerumah kerabat, tanpa sengaja klak-klik-kluk-klek-klok di depan LapTop, eh… ga tw-nya ketemu kode kayak di bawah ini nih :
Dim f As Long If TxtHarga.Text = "" Or Not IsNumeric(TxtHarga.Text) Then Exit Sub End If f = TxtHarga.Text TxtHarga.Text = Format(f, "##,##0") TxtHarga.SelectionStart = Len(TxtHarga.Text)
Gimana… bingung ga liat kode diatas…?? ga usah bingung deh, sekarang ada cara mudah untuk membuat format uang pada vb.net. Dengan kode diatas kamu bisa membuat format uang dengan mudah. Contohnya kamu mo buat format “50.000″. Sebenarnya dengan menggunakan Component MaskEdit-pun udah bisa tapi agak ribet pada setting formatnya. Nah, kamu tinggal copy paste kode diatas di TextBox pada event Changed, coba jalankan programnya, trus masukkan angka semaumu pada textbox. udah bisa diliat khan hasilnya…
selamat mencoba ya…. jangan lupa dikembangin terus…
Incoming search terms:
- format textbox vb net
- format uang vb net
- format uang di vb net
- vb net textbox format number
- format uang vb
- format angka di vb net
- vb net textbox format
- vb net format textbox
- format angka vb net
- textbox format vb net
stmikbg.com adalah web untuk komunitas bagi anak-anak stmik bumigora khususnya dan anak-anak IT umumnya, baek yang cupu maupun yang expert.
September 29th, 2009 at 9:54 pm
coding di atas klw dijumlahkan ko’ hasilnya = 2 y, tolong ya pak agar di kasih pencerahan lagi:
saya menginputkan angka 1000 + 1000
Private Sub txtGajiPokok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtHarga.TextChanged
Dim f As Long
If TxtHarga.Text = “” Or Not IsNumeric(TxtHarga.Text) Then
Exit Sub
End If
f = TxtHarga.Text
TxtHarga.Text = Format(f, “##,##0″)
TxtHarga.SelectionStart = Len(TxtHarga.Text)
End Sub
Private Sub txtb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtb.TextChanged
Dim f As Long
If txtb.Text = “” Or Not IsNumeric(txtb.Text) Then
Exit Sub
End If
f = txtb.Text
txtb.Text = Format(f, “##,##0″)
txtb.SelectionStart = Len(TxtHarga.Text)
End Sub
Private Sub cmdhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhitung.Click
txhsil.Text = Val(TxtHarga.Text) + Val(txtb.Text)
End Sub
May 28th, 2011 at 1:18 am
Mungkin textboxt hasil dari jumlahan itu di kasih juga format moneynya mbak anita….