Question

我以为我会做一个非常简单的fps游戏。我有所有的图形，但我只有一个错误。

错误是您可以通过单击按钮将敌人产生到游戏中。使用该按钮，您可以根据需要在游戏中产生尽可能多的敌人。为此，我写了以下内容：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  Dim enemy As New PictureBox
  enemy.Image = My.Resources.enemy.png
  Me.Controls.Add(enemy)
End Sub

但是，为了射击敌人，你必须点击它，我不确定如何实现这一点，因为“敌人”变量实际上并不在表格上，直到程序启动并点击按钮。

我试过这个但是没有给我带来任何成功：

Private Sub Enemy_Click(sender As Object, e As EventArgs) Handles enemy.Click

Answer 1

您必须自己添加事件处理程序：

Dim enemy As New PictureBox
enemy.Image = My.Resources.enemy.png
AddHandler enemy.Click, AddressOf Enemy_Click
Me.Controls.Add(enemy)

在单击的方法方面，您将获得发件人对象单击的PictureBox：

Private Sub Enemy_Click(sender As Object, e As EventArgs)
  Dim pb As PictureBox = sender
  // do stuff
End Sub

如何使用已定义图片框的按钮事件

1 个答案: