Using an array to assign values to 36 radio buttons

Question

Okay, here's another doozy for y'all.
As some of you know, I'm trying to create a character creation program for D&D. When we roll ability scores, we roll 3 sets of 6 rolls, rolling 4 six-sided dice, rerolling 1s and dropping the lowest number, then add the highest 3 rolled numbers together.
Great! Got that part done!
The next thing I'm having some issues with is transferring those numbers to radio button text property. What I have done is created a form that has the rolled values in listboxes so the user can see what was rolled. They can only choose one "set"
of rolls, so each set of 6 rolls is in a separate listbox. I can get the values from the listbox to an array, but I can't figure out how to get the values from an array to the radio buttons on the next form in the program.
The next form in the program has 6 group boxes, each labeled with a different ability score name (ie: Strength, Dexterity, etc.). Also in each group box are 6 radio buttons. Each radio button in each group box needs to have the same values. For example,
the first listed radio button in each group box needs to have the first value listed in the list box on the previous page. The second listed radio button in each group box needs to have the second value listed in the list box, and so on. I want it
to automatically load, but I'll settle for ANY load at the moment!
The other thing is that I don't want to write 36 lines of code for each group box's radio buttons! I would like to be able to populate the values with a loop. So, the biggest question is how to create an array containing all 36 radio buttons, then assign
my list box values to them according to their position in the multidimensional array.
Here is a tidbit so you'll have an idea what I'm looking at.
list box 1 has values 17, 18, 8, 12, 15, and 13. I want the radio buttons in each group box on the second form to be 17 for the 1st radio button, 18 for the 2nd radio button, 8 for the 3rd radio button, 12 for the 4th radio button, 15 for the 5th radio
button, and 13 for the 6th radio button.
Any ideas?

Answer 1

The array of radio buttons:
radGr1_1
radGr1_2
radGr1_3
radGr1_4
radGr1_5
radGr1_6
radGr2_1
radGr2_2
radGr2_3
radGr2_4
radGr2_5
radGr2_6
radGr3_1
radGr3_2
radGr3_3
radGr3_4
radGr3_5
radGr3_6
radGr4_1
radGr4_2
radGr4_3
radGr4_4
radGr4_5
radGr4_6
radGr5_1
radGr5_2
radGr5_3
radGr5_4
radGr5_5
radGr5_6
radGr6_1
radGr6_2
radGr6_3
radGr6_4
radGr6_5
radGr6_6
Those listed with “radGr1” are in the first group box labeled grpST, “radGr2” are in the second group box labeled grpDX, and so on (grpCN, grpIQ, grpWS, grpCH). What I want the code to do is change the labels of the radio buttons so that the text displayed
in everything with a suffix of “_1” is filled with the first number in the selected listbox. For example, if I select the first list box, the other 2 are cleared and only the 6 numbers in the first one are used for the rest of the program. If those numbers
are 12, 13, 14, 15, 17, and 11, then everything with _1 at the end should have “12”, everything with _2 should have “13”, and so on. What I don’t want to have to do is initialize 36 elements, then have 6 different selections for each group box. I tried to
attach an image, but it wouldn’t let me…something about verifying my account or something…
Can I suggest a different layout?  It seems like the status selection process is over-complicating the code... please consider this form layout:
Once the user has selected the set of rolls they want you use, you can then just work with that single listbox.  The radio buttons let them select a particular stat and the listbox lets them select a value.  The "<-" button then assigns
the selected value to the selected stat, and removes it from the listbox.  The "->" button clears the selected stat and returns the value to the listbox.  The code is something like:
Public Class Form1
Private Sub SetButton_Click(sender As Object, e As EventArgs) Handles SetButton.Click
If ChosenRollsListBox.SelectedIndex > -1 Then
Select Case True
Case StrRadioButton.Checked
If Not StrLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(StrLabel.Text)
End If
StrLabel.Text = ChosenRollsListBox.SelectedItem.ToString
ChosenRollsListBox.Items.RemoveAt(ChosenRollsListBox.SelectedIndex)
Case DexRadioButton.Checked
If Not DexLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(DexLabel.Text)
End If
DexLabel.Text = ChosenRollsListBox.SelectedItem.ToString
ChosenRollsListBox.Items.RemoveAt(ChosenRollsListBox.SelectedIndex)
Case ConRadioButton.Checked
If Not ConLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(ConLabel.Text)
End If
ConLabel.Text = ChosenRollsListBox.SelectedItem.ToString
ChosenRollsListBox.Items.RemoveAt(ChosenRollsListBox.SelectedIndex)
Case IntRadioButton.Checked
If Not IntLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(IntLabel.Text)
End If
IntLabel.Text = ChosenRollsListBox.SelectedItem.ToString
ChosenRollsListBox.Items.RemoveAt(ChosenRollsListBox.SelectedIndex)
Case WisRadioButton.Checked
If Not WisLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(WisLabel.Text)
End If
WisLabel.Text = ChosenRollsListBox.SelectedItem.ToString
ChosenRollsListBox.Items.RemoveAt(ChosenRollsListBox.SelectedIndex)
Case ChaRadioButton.Checked
If Not ChaLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(ChaLabel.Text)
End If
ChaLabel.Text = ChosenRollsListBox.SelectedItem.ToString
ChosenRollsListBox.Items.RemoveAt(ChosenRollsListBox.SelectedIndex)
End Select
End If
End Sub
Private Sub ClearButton_Click(sender As Object, e As EventArgs) Handles ClearButton.Click
Select Case True
Case StrRadioButton.Checked
If Not StrLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(StrLabel.Text)
StrLabel.Text = "_"
End If
Case DexRadioButton.Checked
If Not DexLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(DexLabel.Text)
DexLabel.Text = "_"
End If
Case ConRadioButton.Checked
If Not ConLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(ConLabel.Text)
ConLabel.Text = "_"
End If
Case IntRadioButton.Checked
If Not IntLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(IntLabel.Text)
IntLabel.Text = "_"
End If
Case WisRadioButton.Checked
If Not WisLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(WisLabel.Text)
WisLabel.Text = "_"
End If
Case ChaRadioButton.Checked
If Not ChaLabel.Text = "_" Then
ChosenRollsListBox.Items.Add(ChaLabel.Text)
ChaLabel.Text = "_"
End If
End Select
End Sub
End Class
This may not suit your requirements but I thought it was at least worth considering an alternate design that would be much easier to implement.
Reed Kimble - "When you do things right, people won't be sure you've done anything at all"