Cara Membuat Separator Angka Ribuan di Visual Studio (.Net) 2010 |
Langkah-langkah:
1. Buat sebuah form (Form10) dengan komposisi 1 buah TextBox = TextBox1 dan atur seseuai kebutuhan.
contoh:Contoh Form untuk Membuat Separator Angka Ribuan di Visual Studio (.NET) 2010 |
2. Buat prosedur dengan nama FormatRibuan yang berisi kode seperti di bawah ini:
Public Sub FormatRibuan(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
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
3. Klik 2 kali TextBox1 dan isikan kode di bawah ini:
FormatRibuan(TextBox1)
4. Tekan F5 dan lihat hasilnya
Hasil Separator Angka Ribuan di Visual Studio (.NET) 2010 |
**dari berbagai sumber
EmoticonEmoticon