Как я могу отобразить два разных изображения поочередно, щелкнув изображение в картинке?

Question

Я хочу, чтобы можно было щелкнуть в окне рисунка и отобразить изображение и текст на ярлыке 1, второй щелчок для отображения второго изображения и текста на ярлыке 1, как указано. последовательные щелчки должны быть в состоянии отображать изображения в чередующемся порядке в этом отношении.

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

        `PictureBox1.Image = My.Resources.bulb_turned_off_e
        `Label1.Text = "Turn on the light," + TextBox1.Text


        `Label1.Text = "Turn off the light," + TextBox1.Text
        `PictureBox1.Image = My.Resources.bulb_when_turned_on_e

Answer 1

Объявить переменную isChanged (Private isChanged As Boolean вне Sub). И обратите внимание на следующий код:

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    if isChanged = False Then
        PictureBox1.Image = My.Resources.bulb_turned_off_e
        Label1.Text = "Turn on the light," + TextBox1.Text
        isChanged = True ' if not changed, then change image
    Else
        Label1.Text = "Turn off the light," + TextBox1.Text
        PictureBox1.Image = My.Resources.bulb_when_turned_on_e
        isChanged = False ' if changed, then set to back
    End If
End Sub

Это должно работать для вас. Наслаждайтесь!