Looping through TextBoxes, need help

[KungWaz]

I want to loop through all my text boxes in my form and write a 0 (zero) in all those which don't have positive integers in them. Don't want any characters or negative numbers, only positive integers.

Thanks in advance

[janders468]

I believe this will do what you want:

  Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            If (Not (IsNumeric(ctrl.Value)) Or (ctrl.Value < 0)) Then
                ctrl.Value = 0
            End If
        End If
    Next ctrl
 

If you are controlling this from another form then use that form instead of 'me' as the form containing the controls.

[KungWaz]

Thank you very much! I will try it right away! =)

[KungWaz]

It say's:

Value is not a member of "system.windows.form.control"

... why?

[janders468]

Sorry, didn't realize that you were using vb.net, thought it was vb/vba use text instead of value. I just tested this and be sure that when you check for the typename that it is "TextBox" (case is significant) let me know if that works.

[KungWaz]

Now it works for the negative ingers, but still not if I type a char,

An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll

Additional information: Conversion from string "characters" to type 'Double' is not valid.

and it highlights this:

If (Not (IsNumeric(ctrl.Text)) Or (ctrl.Text < 0)) Then

I wrote "characters" in the TextBox...

[janders468]

Okay Sorry for all the runaround I think this will work for you

       Dim ctrl As Control
        For Each ctrl In Me.Controls
            If TypeName(ctrl) = "TextBox" Then
                If ctrl.Text = "" Then
                    ctrl.Text = 0
                ElseIf (Not IsNumeric(ctrl.Text)) Then
                    ctrl.Text = 0
                ElseIf (CInt(ctrl.Text) < 0) Then
                    ctrl.Text = 0
                End If
            End If
        Next ctrl
 

[KungWaz]

YeaY! Now it works!

Thank you very much! now I'm happy :p