Checking all checkboxes and clearing all textboxes with single loop.

[litesh80]

I have 20 check boxes in a form.
and I have 20 textboxes in another form.
now my requirement goes as follows.
On clicking a button all the checkboxes should go checked or uncheked.
All this should happen in one loop.

The same requirement goes for clearing textboxes in next form.

Suggestions are appreciated.

 

[mark007]

I would loop through the controls on the form and check the type of the control. If it's a checkbox then check it.

 

[FYRe]

For Loop

To do so in a loop is possible, but I can't recall how to. You'll need to do so using a for loop.

Despite unable to recall, I did a solution (see attached file). Though it seems quite long, it's just one of the many ways that work.

I'd be glad if someone could come up with a solution to this problem too. I'd like to find out about it too....

 

[thenerd]

dim Chk as checkbox
for each chk in me.controls
chk.checked = true
next chk

      Dim chk As New CheckBox
        For x As Integer = 0 To Me.Controls.Count - 1
            If Me.Controls(x).GetType Is chk.GetType Then
                CType(Me.Controls(x), CheckBox).Checked = True
            End If
        Next
        chk.Dispose()

Both work.

By the way: In the future, take the .exe's out of your attachments (There's one in the bin folder and one in another folder). I'm not sure about this forum, but most forums don't allow attachments that include .exe's.

 

[FYRe]

Well, did you know that you could atually zip the .exe file? So, .zip is acceptable =)

 

[mark007]

Or to throw another way:

 Dim c As System.Windows.Forms.Control
        For Each c In Me.Controls
            If TypeName(c) = "CheckBox" Then
                CType(c, CheckBox).Checked = True
            End If
        Next

 

[litesh80]

None of ur methods worked...

Thank you for ur response.
But Unfortunately I could not work out with either ways u have mentioned.
Provide some better way.

 

[litesh80]

Not working

It's not working...

Or to throw another way:

 Dim c As System.Windows.Forms.Control
        For Each c In Me.Controls
            If TypeName(c) = "CheckBox" Then
                CType(c, CheckBox).Checked = True
            End If
        Next

 

[litesh80]

Second one worked fine when i did it in a new window.
Now I'll have to try it on the original project.
Anyway I'll check it out.
Thank you again.

 

[litesh80]

All are working fine when the Controls are directly on to the form.
But I am using 5 groupboxes in which i am placing the controls.
Its not working....

 

[PlausiblyDamp]

If the controls are in a groupbox then you will need to loop through the groupbox's controls collection rather than the form's control collection.

 

[mark007]

Or use recursion to get all the controls:

CheckBoxes(Me)

Private Sub CheckBoxes(ByVal Parent As System.Windows.Forms.Control)
        dim c As System.Windows.Forms.Control
        For Each c In Parent.Controls
            CheckBoxes(c)
            If TypeName(c) = "CheckBox" Then
                CType(c, CheckBox).Checked = True
            End If
        Next 
End Sub