Question

Is there an easy way to get the nearest control to a control of choice?

I have a picture box and some other moving controls. I want to delete the nearest control to my picture box.

So I have to get the position of all controls and delete that with the Location nearest to the Location of my picture box. I’m not sure about how to do that the best way.

Answer 1

If “closest” in your case indeed means “with the Location nearest to the Location of my picture box”, then the easiest would be:

Me.Controls.Remove((From c In Me.Controls.Cast(Of Control)() Order By c.Location.Distance(PictureBox1.Location) Select c).Skip(1).Take(1)(0))

, where Distance is defined in a module like this:

<System.Runtime.CompilerServices.Extension()> _
Public Function Distance(ByVal p1 As Point, ByVal p2 As Point) As Integer
    Return (p1.X - p2.X) * (p1.X - p2.X) + (p1.Y - p2.Y) * (p1.Y - p2.Y)
End Function