[2005] Loop through checkboxes

[Godko]

I am having some difficulty figuring out how to loop through checkbox selections to be placed into a text box.

Design of the form looks like this: http://www.stelth2000inc.com/images/screen.png

Each checkbox I'm looking to have associated with a string.

Name: [color=blue][size=10]Name: character name[/size][/color]
World: [color=blue][size=10]World: World[/size][/color]

character name comes from the chNameTxt.Text from the general tab
world comes from worldCombo.SelectedText from the general tab

Sex check box will be pulling from either maleRadio or femaleRadio based on which ever is checked.

The user can select all the check boxes if they want or as little as just a single check box.

I've been trying to keep in mind of the user changing selection after clicking the "create signature" button and re-clicking the button for their alterations. So I know I will want to clear the text box prior to each click of the button.

I think I've explained this well enough for some help. If not, let me know.

[jmcilhinney]

Put the value you want to associate with each check box in its Tag property. You can then use the code in my "Visit All Controls" Codebank submission (see my signature for link). As you visit each control you can get the value associated with it something like this:

If TypeOf ctl Is CheckBox AndAlso DirectCast(ctl, CheckBox).Checked Then
    MessageBox.Show(CStr(ctl.Tag))
End If

Obviously you'll want to do something other than display the value in a message box but the principle is the same.

[Godko]

okay, I see where your coming from with that. But, by placing info in the Tag property, how do I go about pulling information from other fields.

As of this moment, I have in the Tag property of the Character Name check box

"[color=blue][size=10]Name: " & charNameTxt.Text & "[/size][/color] " & vbCrLf

When I click the button to perform the action what ends up in the text box is exactly what I place in that Tag property. Quotes and all. I need the charNameTxt.Text to read what I have in that text box and place it there

And the issue with when someone makes a selection of Sex, how do I get it to read if someone selected the Male radio button or the Female radio button.

My Current code based on what you gave me is:

Dim ctl As Control = Me.GetNextControl(Me, True) 'Get the first control in the tab order.
        Do Until ctl Is Nothing
            If TypeOf ctl Is CheckBox AndAlso DirectCast(ctl, CheckBox).Checked Then
                signatureTxt.Text = CStr(ctl.Tag)
            End If
            ctl = Me.GetNextControl(ctl, True) 'Get the next control in the tab order.
        Loop

[jmcilhinney]

You could handle the CheckChanged event of your Male and Female RadioButtons and set the Tag of the Sex (maybe Gender would be better) CheckBox then, or else handle the CheckChanged event of the CheckBox and set the Tag based on which RadioButton is selected. The second option will only work if you cannot change the RadioButtons after checking the CheckBox.

Also note that you should be appending each value in the Do loop. As it is you are overwriting the existing Text each time.

You should also note that you don't have to change the signature only when those CheckBoxes change. You might also handle the Leave event of the charNameTxt control to update the signature so that the current value is always used without you having to put the literal value in the Tag property of the corresponding CheckBox.

[Godko]

could u explain in more detail please, possibly provide examples?