Memformat harga di Textbox Maksudnya adalah membuat tampilan angka misal 50000 menjadi 50,000 secara otomatis di textboz ketika kita mengetiknya di textbox, ini ilmu yang saya peroleh dari hasil memonitoring di sebuah forum para develover disini tepatnya : http://i-bego.com/ Nah sekarang mari kita coba ikuti langkah-langkahnya :

  1. coba buat new preject di Visual Studio
  2. New Windows Application di Visual Basic nya
  3. Tambahkan satu textbox pada form dan beri nama txtHarga
  4. Double klik textboxnya atau beri event TextChange coding ini di dalam event textchage nya : 
   1: If txtHarga.Text.Length > 0 Then
   2:     If txtHarga.Text.Substring(0, 1) = "." Then txtHarga.Text = txtHarga.Text.Replace(".", "")
   3:
   4:     Dim x As Double = CDbl(txtHarga.Text.Replace(",", ""))
   5:     Dim s As String = Strings.FormatNumber(x, 0)
   6:
   7:     If txtHarga.Text <> s Then
   8:         Dim pos As Integer = txtHarga.Text.Length - txtHarga.SelectionStart
   9:
  10:         txtHarga.Text = s
  11:
  12:         If ((txtHarga.Text.Length - pos) < 0) Then
  13:             txtHarga.SelectionStart = 0
  14:         Else
  15:             txtHarga.SelectionStart = txtHarga.Text.Length - pos
  16:         End If
  17:     End If
  18: End if

  1. Tambahkan event Keypress juga pada txtHarga dan coding ini di dalam event textKeyPress nya : 
       1: e.Handled = ValidAngka(e)
  2. lalu kita buat Function ValidAngka : 

   1: Private Function ValidAngka(ByVal e As System.Windows.Forms.KeyPressEventArgs) As Boolean
   2:         Dim strValid As String = "0123456789"
   3:
   4:         If Strings.InStr(strValid, e.KeyChar) = 0 And Not (e.KeyChar = Strings.Chr(Keys.Back)) Then
   5:             Return True
   6:         Else
   7:             Return False
   8:         End If
   9: End Function
 Maka sekarang kita dapat membuat tampilan harga secara otomatis berubah saat diinputkan seperti gambar berikut :



 Nah itulah yang dapat di share pada kesempatan ini, [:D]