Question

So at present I am learning VB and I have a project in which I have to display a picture box based on:

Which radio box is checked

and

if a checkbox to make the picture box visible is checked. As someone who values clean, good code this is my code and it horrifies me. My question, is there some way to condense the following using cases or some other construct I don’t know in VB.net?

    If CheckBox1.Checked = False Then
        BooksPictureBox.Visible = False
        MusicPictureBox.Visible = False
        PeriodicalsPictureBox.Visible = False
        CoffeeBarPictureBox.Visible = False
    End If
    If RadioButton1.Checked And CheckBox1.Checked = True Then
        BooksPictureBox.Visible = True
        MusicPictureBox.Visible = False
        PeriodicalsPictureBox.Visible = False
        CoffeeBarPictureBox.Visible = False
    End If
    If RadioButton2.Checked And CheckBox1.Checked = True Then
        BooksPictureBox.Visible = False
        MusicPictureBox.Visible = True
        PeriodicalsPictureBox.Visible = False
        CoffeeBarPictureBox.Visible = False
    End If
    If RadioButton3.Checked And CheckBox1.Checked = True Then
        BooksPictureBox.Visible = False
        MusicPictureBox.Visible = False
        PeriodicalsPictureBox.Visible = True
        CoffeeBarPictureBox.Visible = False
    End If
    If RadioButton4.Checked And CheckBox1.Checked = True Then
        BooksPictureBox.Visible = False
        MusicPictureBox.Visible = False
        PeriodicalsPictureBox.Visible = False
        CoffeeBarPictureBox.Visible = True
    End If

Note- all the images stack on one another, and all of them start without being visible.

Answer 1

I would create a SUb that sets all picBoxes to not visible

Private Sub setInvisible
   BooksPictureBox.Visible = False
   MusicPictureBox.Visible = False
   PeriodicalsPictureBox.Visible = False
   CoffeeBarPictureBox.Visible = False
End sub

Then another routine

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    setInvisible
    if checkbox1.checked = false then exit sub
    if radiobutton1.checked = true then bookspicturebox.visible = true
    if radiobutton2.checked = true then musicpicturebox.visible = true
etc...

End Sub

Of course, an easier way would be to just have the image dynamically load based upon radio button selection.