我已经创建了一个二维的PictureBox数组,我想向数组的所有元素添加一个DragDrop事件。
For x As Integer = 1 To 16
For y As Integer = 1 To 4
p(x, y) = New PictureBox()
p(x, y).Image = My.Resources.Kästchen
p(x, y).Location = New Point(pMain.Left + x * 48, pMain.Top + y * 48)
p(x, y).Size = New Size(48, 48)
p(x, y).Name = "p"+str(x)+str(y)
AddHandler p(x, y).DragDrop, AddressOf p(x,y)_DragDrop
p(x, y).Visible = True
Me.Controls.Add(p(x, y))
Next
Next
我知道这里有类似的答案,但我无法将其适应数组。如何为在运行时创建的所有图片框添加拖放事件?
你不能有一个名为 p(x,y)_DragDrop
的子。您需要创建一个带有签名(sender As Object, e As DragEventArgs)
的子,并使用sender
来标识图片框。