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. :D 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....

WindowsApplication1.zip

Edited August 26, 2005 by PlausiblyDamp

[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

 

:)