Names of Form Controls - conditional calling

[Karja]

Hello,

The title might a bit fussy but I could not come up with something better. I was wondering whether somebody could supply me with a tip on the following:

In a Form I've got lots of pictureboxes. Here is a bit of my code:

        If p = 1 And n = 1 Then Me.PictureBox11.Image = objImage
        If p = 1 And n = 2 Then Me.PictureBox12.Image = objImage
        If p = 2 And n = 1 Then Me.PictureBox21.Image = objImage
        If p = 2 And n = 2 Then Me.PictureBox22.Image = objImage
        If p = 3 And n = 1 Then Me.PictureBox31.Image = objImage
        If p = 3 And n = 2 Then Me.PictureBox32.Image = objImage
        If p = 4 And n = 1 Then Me.PictureBox41.Image = objImage
        If p = 4 And n = 2 Then Me.PictureBox42.Image = objImage
        If p = 5 And n = 1 Then Me.PictureBox51.Image = objImage
        If p = 5 And n = 2 Then Me.PictureBox52.Image = objImage
        If p = 6 And n = 1 Then Me.PictureBox61.Image = objImage
        If p = 6 And n = 2 Then Me.PictureBox62.Image = objImage
        If p = 7 And n = 1 Then Me.PictureBox71.Image = objImage
        If p = 7 And n = 2 Then Me.PictureBox72.Image = objImage
        If p = 8 And n = 1 Then Me.PictureBox81.Image = objImage
        If p = 8 And n = 2 Then Me.PictureBox82.Image = objImage

It is clear that the variables p en n determine what picturebox to populate. As this is rather a lot of code I was wondering whether there is an easier way to do this. Setting the name of the picturebox in a string or something. Any good idea's, any help appreciated.

Kind regards,

 

[earthandfire]

This question demonstrates why it is so important to specify which version of VB you are using.

Although the solution in VB 2002/2003 will work in VB 2005, the reverse is not true and the 2005 solution is much neater.

Form has four TextBoxes and four RadioButtons, the Text property of the TexBoxes should show the Checked status of the RadioButtons

Long Solution (all versions)
============================
Private Sub RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged

Dim rb As RadioButton = CType(sender, RadioButton)
Dim cname As String = "TextBox" + rb.Name.Substring(rb.Name.Length - 1)
For Each ctrl As Control In Me.Controls
If ctrl.Name = cname Then
If rb.Checked Then
CType(ctrl, TextBox).Text = "Checked"
Else
CType(ctrl, TextBox).Text = "Unchecked"
End If
Exit For
End If
Next

End Sub

=============================

2005 Solution
=============
Private Sub RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged

Dim rb As RadioButton = CType(sender, RadioButton)
Dim cname As String = "TextBox" + rb.Name.Substring(rb.Name.Length - 1)
If rb.Checked Then
Me.Controls(cname).Text = "Checked"
Else
Me.Controls(cname).Text = "Unchecked"
End If

End Sub

 

[Karja]

Thanks for your quick answer. I just started programming in VB2005. Your tip helped me a lot. Thanks again!