Textbox that can only accept integer ranging from 00 - 60

Question

I want to validate the users input in a textbox by not accepting anything except integers ranging from 00 to 60.

Conditions:

If the user input 0 or input nothing the system should considered it as 00 (take note that I padded it with 0.
I know that I can do this also in numericupdown, but for some reason I can't use that.
I need to apply this in 20 textboxes.

This is the code, actually it is working. My only problem is I can't apply it to 20 textboxes, it is only working in tb_hour_1 textbox, is there something that I can do instead of indication tb_hour_1.text in this line of code Dim num As Integer = Integer.Parse(String.Format("{0}{1}", If(Tb_Hour_1.Text = String.Empty, "", Tb_Hour_1.Text), e.KeyChar.ToString())).

Code:

    Private Sub Tb_Hour_1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Tb_Minute_2.KeyPress, Tb_Minute_1.KeyPress,
    Tb_Hour_2.KeyPress, Tb_Hour_1.KeyPress

    Dim Min_Num As Integer = 0
    Dim Max_Num As Integer = 60

    If e.KeyChar <> ControlChars.Back Then
        'allow backspace for deleting
        e.Handled = Not Char.IsNumber(e.KeyChar)
        'allow numbers only
        If Not e.Handled Then
            Dim num As Integer = Integer.Parse(String.Format("{0}{1}", If(Tb_Hour_1.Text = String.Empty, "", Tb_Hour_1.Text), e.KeyChar.ToString()))
            If num < Min_Num OrElse num > Max_Num Then
                e.Handled = True
            End If
        End If
    End If
End Sub

Using a common event handler for all TextBoxes is Ok. Just replace Tb_Hour_1 by a cast, i.e. Ctype(sender,TextBox). — Graffito
– Graffito, Commented Jul 3, 2015 at 10:20
you have a hard coded reference to Tb_Hour_1 use sender or a NumericUpDown — Ňɏssa Pøngjǣrdenlarp
– Ňɏssa Pøngjǣrdenlarp, Commented Jul 3, 2015 at 12:17
@Graffito, Your comment works for me. Please answer this question so I can make it as accepted answer. — Cary Bondoc
– Cary Bondoc, Commented Jul 4, 2015 at 0:29

Graffito · Accepted Answer · 2015-07-04 00:43:17Z

2

Using a common event handler for all TextBoxes is Ok. Just replace Tb_Hour_1 by a cast, i.e. :

Ctype(sender,TextBox)

answered Jul 4, 2015 at 0:43

Graffito

1,7181 gold badge11 silver badges11 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

NeverHopeless · Accepted Answer · 2015-07-03 06:52:56Z

2

You should better create a UserControl for this purpose. which validates the input and range and instead of creating 20 textboxes, you can use your custom control then. Also, MaskedTextBox control can also be used to avoid checking length of text and it can only allow digits as well.

Also, a shortcut could be to list down all the remaining control's event like this:

Private Sub Tb_Hour_1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Tb_Minute_2.KeyPress, Tb_Minute_1.KeyPress,
    Tb_Hour_2.KeyPress, Tb_Hour_1.KeyPress, ....... further control events

answered Jul 3, 2015 at 6:52

NeverHopeless

11.2k4 gold badges37 silver badges56 bronze badges

Collectives™ on Stack Overflow

Textbox that can only accept integer ranging from 00 - 60

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related