02 April 2014

VB.NET: MaskedTextBox Control


MaskedTextBox Control serupa dengan TextBox control namun dengan tambahan fungsi membatasi input user dengan format tertentu.


Contoh Penggunaan:
Design UI
Code
Private Sub Form1_Load(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Me.Load

    Button1.Text = "Jumlah!"
    MaskedTextBox1.Mask = "0000000"
    MaskedTextBox2.Mask = "0000000"

End Sub
 

Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click


    MaskedTextBox1.Mask = "0000000"
    MaskedTextBox2.Mask = "0000000"

 
    Dim a As Integer = Val(MaskedTextBox1.Text)
   
Dim b As Integer = Val(MaskedTextBox2.Text)
   
Dim c As Integer = Val(MaskedTextBox1.Text) + Val(MaskedTextBox2.Text)
 
    Dim str As String = CInt(c)

    If Len(str) = 1 Then
        MaskedTextBox3.Mask = "0"
    ElseIf Len(str) = 2 Then
        MaskedTextBox3.Mask = "00"
   
ElseIf Len(str) = 3 Then
        MaskedTextBox3.Mask = "0,00"
   
ElseIf Len(str) = 4 Then
        MaskedTextBox3.Mask = "0,000"
   
ElseIf Len(str) = 5 Then
        MaskedTextBox3.Mask = "00,000"
   
ElseIf Len(str) = 6 Then
        MaskedTextBox3.Mask = "0,00,000"
   
ElseIf Len(str) = 7 Then
        MaskedTextBox3.Mask = "00,00,000"
    End If
    MaskedTextBox3.Text = c


End Sub

Runtime



Click here if you like this article.


0 comments: