Textbox Validation for Two Decimal Places

[Orbie]

Hi All,
I need to amend the code below to cater for only two Decimal places. Anyone know how i can do this?

 Private Sub TextboxKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress, TextBox7.KeyPress

        Dim tb As TextBox = CType(sender, TextBox)
        Dim chr As Char = e.KeyChar

        If IsNumeric(e.KeyChar) And Not e.KeyChar = "-" Then
            e.Handled = Not IsNumeric(tb.Text & e.KeyChar)
        ElseIf e.KeyChar = "." Then
            If Not (tb.SelectedText = "." Or IsNumeric(tb.Text & e.KeyChar)) Then
                e.Handled = True
            End If
        ElseIf Not Char.IsControl(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub

Thanks

[!NoItAll]

Put one additional test in there...

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim tb As TextBox = CType(sender, TextBox)
        Dim chr As Char = e.KeyChar
        Dim iLoc As Integer = 0

        If IsNumeric(e.KeyChar) And Not e.KeyChar = "-" Then
            e.Handled = Not IsNumeric(tb.Text & e.KeyChar)
        ElseIf e.KeyChar = "." Then
            If Not (tb.SelectedText = "." Or IsNumeric(tb.Text & e.KeyChar)) Then
                e.Handled = True
            End If
        ElseIf Not Char.IsControl(e.KeyChar) Then
            e.Handled = True
        End If

        iLoc = TextBox1.Text.IndexOf(".")
        If iLoc > 0 Then
            If (TextBox1.Text.Substring(iLoc).Length > 2) And Char.IsControl(e.KeyChar) = False Then
                e.Handled = True
            End If
        End If

    End Sub

[Frinavale]

You could also consider using a MaskedTextBox. Specify that only 2 decimal places should be allowed.


-Frinny

[!NoItAll]

Perhaps - but that control is creepy. I don't think users understand it, and getting it to behave the way you really want I've found to be more difficult than the simple routine above. The routine is small, fast and clean. You can assign it to multiple textboxes and bang, Bob's your uncle.