将鼠标放在VB.net中生成的Picturebox上

Question

所以，我有一些这样的代码：

Dim box As PictureBox = New PictureBox
Dim Y As Integer
Dim X As Integer
Dim RandomClass As New Random()


Private Sub enspawn_Tick(sender As Object, e As EventArgs) Handles enspawn.Tick
    For pos = 30 To 100
        Y = RandomClass.Next(530)
        X = RandomClass.Next(980)
        box.Location = New Point(X, Y)
    Next pos
    box.Size = New Size(60, 60)
    box.Image = VB.NET_Game___1st.My.Resources.Resources.bittenfleax
    Controls.Add(box)
End Sub

因此，基本上，这将在屏幕周围生成随机图片框。 但是，我将如何制作它，以便在单击（Mouse_Down）时会执行某些操作。

我真的不知道如何解决这个问题。 可能是这样的：

If box_MouseDown Then
    MsgBox("Mouse has been pressed on the image box") 
End If 

我真的不确定。 提前致谢。

编辑

如果这是我的想法，我是否会创建一个新的“私人小组”来放置它？ 还是会在Form_Load中？

Answer 1

对于需要AddHandler语句将其事件指向Sub的动态控件。 这些变量都不需要是类级别的。 不需要时可以节省存储空间。

Private Sub enspawn_Tick(sender As Object, e As EventArgs) Handles enspawn.Tick
  Static RandomClass As New Random
  Dim box As New PictureBox
  box.Location = New Point(RandomClass.Next(980),RandomClass.Next(530))
  box.Size = New Size(60, 60)
  box.Image = VB.NET_Game___1st.My.Resources.Resources.bittenfleax
  AddHandler box.MouseDown, AddressOf box_MouseDown
  Controls.Add(box)
End Sub

Private Sub box_MouseDown(sender As Object, e As MouseEventArgs)
   ' sender is the PictureBox object
   Dim pb As PictureBox = DirectCast(sender, PictureBox)
End Sub