如何使子例程单击图片框？

Question

我有单击图片框时的子例程。

Public Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click


        If player = "p1" Then
            PictureBox5.BackgroundImage = My.Resources.cross
            pic5 = 1
        End If

        If player = "p2" Then
            PictureBox5.BackgroundImage = My.Resources.nought
            pic5 = 2
        End If
        blnFlag = True
        PictureBox5.Update()
    End Sub

我想创建一个子例程，该子例程单击图片框将图像更改为无。 有谁知道我会怎么做。

Answer 1

有两种方法可以完成此操作：

1. 在子对象中调用点击事件PictureBox5_Click()：

   Private Sub AnotherClick_Click(sender as Object, e as EventArgs) handles AnotherClick.Click 
        ~Do Stuff
        PictureBox5_Click(sender, e)
   End Sub

2. 使用PerformClick()：

   Me.PictureBox5.PerformClick()

编辑：我更新了选项1以包括完整点击事件子项。

Answer 2

Private Sub SetPicture(PicBox as PictureBox)\
  If player = "p1" Then
    PicBox.BackgroundImage = My.Resources.cross
    pic5 = 1
  End If

  If player = "p2" Then
    PickBox.BackgroundImage = My.Resources.nought
    pic5 = 2
  End If
  blnFlag = True
  PicBox.Update()
End Sub

Public Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
  SetPicture(PictureBox5)
End Sub

这就是应该做的事情...现在您还可以从其他任何地方调用SetPicture，传入您想要的任何其他图片框...