Beberapa baris di bawah ini berfungsi untuk :
- Memastikan masukan textbox hanya berupa angka/numerik
- Saat angka dimasukkan ke dalam textbox, langsung terlihat angka dengan format bilangan/uang, misalnya masukan 30000 menjadi 30,000
- Mengkonversi masukan dalam bentuk string ke dalam bentuk bilangan (double/integer)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
'Memastikan hanya masukan NUMERIC saja yang bisa Private Sub Textbox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Textbox1.KeyPress If Asc(e.Handled) <> 13 AndAlso Asc(e.KeyChar) <> 8 AndAlso Not IsNumeric(e.KeyChar) Then e.Handled = True End If End Sub 'Tampilkan dalam bentuk uang Private Sub Textbox1_TextChanged(sender As Object, e As EventArgs) Handles Textbox1.TextChanged formatUang(Textbox1) End Sub 'Fungsi untuk membentuk masukan format uang misal 40000000 menjadi 40,000,000 Public Sub formatUang(ByVal Text As TextBox) If Len(Text.Text) > 0 Then Text.Text = FormatNumber(CDbl(Text.Text), 0) Dim x As Integer = Text.SelectionStart.ToString If x = 0 Then Text.SelectionStart = Len(Text.Text) Text.SelectionLength = 0 Else Text.SelectionStart = x Text.SelectionLength = 0 End If End If End Sub 'Fungsi untuk mengkonversi format uang string ke dalam bilangan (double/integer) Public Function formatUangKeBilangan(ByVal N As String) As Double formatUangKeBilangan = Replace(N, ",", "") End Function |