Visual Basic 2010 Express - 如何在两个重叠的图像之间来回切换？

Question

我真的需要一些帮助来解决这个难题。

我有两张灯泡的照片。在一张照片中，灯泡亮着，而在另一张照片中，它已关闭。我应该重叠这些图片并通过单击图像来打开和关闭它，但我就是不知道它的代码。你如何在这些图像之间切换？我不允许使用按钮来执行此操作。我必须点击图片来改变它。请帮忙！链接如下，因为我还没有足够的代表来发布实际图片。

http://i1293.photobucket.com/albums/b598/BentoBoy1/ScreenHunter_02Sep202252_zps75800aea.png

公开课表1 Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 处理 ExitButton.Click '关闭程序 我关闭（） 结束子

Private Sub PrintButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintButton.Click
    'Print the form in the print preview window
    PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
    PrintForm1.Print()

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    'Turn the light bulb on.
    MessageLabel.Text = "Turn on the light"
End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MessageLabel.Click
    'Display different messages when the light bulbs are clicked.
End Sub

Private Sub RedRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedRadioButton.CheckedChanged
    'Set the MessageLabel text to Red.
    MessageLabel.ForeColor = Color.Red
End Sub

Private Sub BlackRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlackRadioButton.CheckedChanged
    'Set the MessageLabel text to Black.
    MessageLabel.ForeColor = Color.Black
End Sub

Private Sub BlueRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlueRadioButton.CheckedChanged
    'Set the MessageLabel text to Blue.
    MessageLabel.ForeColor = Color.Blue
End Sub

Private Sub GreenRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GreenRadioButton.CheckedChanged
    'Set the MessageLabel text to Green.
    MessageLabel.ForeColor = Color.Green
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgrammedByLabel.Click
    'Programmed by me.
End Sub

Private Sub ColorsGroupBox_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorsGroupBox.Enter
    'Group of different colors.
End Sub

Private Sub NameTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NameTextBox.TextChanged
    'Name field.
End Sub

Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LightOnPictureBox.Click
    'Light bulb is on.
    LightOnPictureBox.Image = My.Resources.lighton
    MessageLabel.Text = "Thanks for turning me on, " & NameTextBox.Text
End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LightOffPictureBox.Click
    'Light bulb is off.
    LightOffPictureBox.Image = My.Resources.lightoff
    MessageLabel.Text = "Thanks for turning me off, " & NameTextBox.Text
End Sub

Private Sub NameLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NameLabel.Click
    'Name label.
End Sub

结束类

Answer 1

首先，我认为您应该查看here 以了解图像比较发生的方式。其次，更改图片的正确事件是 PictureBox.Click... 代码应如下所示：

Public Class Form1
    Dim imageBulbOff As Image = My.Resources.BulbOff
    Dim imageBulbOn As Image = My.Resources.BulbOn
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Image = imageBulbOff
    End Sub
    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
        If PictureBox1.Image Is imageBulbOff Then
            PictureBox1.Image = imageBulbOn
        Else
            PictureBox1.Image = imageBulbOff
        End If
    End Sub
End Class