Question

是否有一种简单的方法可以将最近的控件放到选择的控件上？

我有一个图片框和其他一些移动控件。我想删除最近的控件到我的图片框。

所以我必须得到所有控件的位置并删除最靠近我的图片框位置的位置。我不确定如何以最好的方式做到这一点。

Answer 1

如果您案件中“最近”确实意味着“最靠近我的图片框位置的位置”，那么最简单的将是：

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))

，其中Distance在这样的模块中定义：

<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

Answer 2

这是一个完整的样本表单，它通过检查提供的控件是否位于相对于基本控件的8个区域中的1个区域来计算“最接近”。设置的一半代码试图模仿您描述的场景。 MainButton_Click及以下是工作的核心。

Option Explicit On
Option Strict On

Public Class Form1
    Private MainPB As PictureBox
    Private OtherPB As List(Of PictureBox)
    Private WithEvents MainButton As Button
    Private Rnd As New Random()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Setup the form with sample data
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

        Me.MainButton = New Button()
        Me.MainButton.Text = "Update"
        Me.MainButton.Left = 1
        Me.MainButton.Top = 20
        Me.Controls.Add(Me.MainButton)


        Me.Width = 1000
        Me.Height = 1000
        MainPB = New PictureBox()
        MainPB.BackColor = Color.Red
        MainPB.Width = 100
        MainPB.Height = 100
        MainPB.Left = (Me.Width \ 2) - (MainPB.Width \ 2)
        MainPB.Top = (Me.Height \ 2) - (MainPB.Height \ 2)
        Me.Controls.Add(MainPB)

        Me.OtherPB = New List(Of PictureBox)
        For I = 0 To 50
            Me.OtherPB.Add(New PictureBox())
            With Me.OtherPB(I)
                .BackColor = Color.Transparent
                .BorderStyle = BorderStyle.FixedSingle
                .Width = 50
                .Height = 50
            End With
            SetRandomPbLocation(Me.OtherPB(I))
            Me.Controls.Add(Me.OtherPB(I))
        Next
    End Sub
    Private Sub SetRandomPbLocation(ByVal pb As PictureBox)
        'Just sets a random location for the picture boxes and ensures that it doesn't overlap with the center PB
        Do While True
            pb.Left = Rnd.Next(1, Me.Width - pb.Width)
            pb.Top = Rnd.Next(1, Me.Height - pb.Height)
            If (pb.Right < Me.MainPB.Left OrElse pb.Left > Me.MainPB.Right) AndAlso (pb.Top > Me.MainPB.Bottom OrElse pb.Bottom < Me.MainPB.Top) Then
                Exit Do
            End If
        Loop
    End Sub
    Private Sub MainButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MainButton.Click
        'Randomizes the location of the picture boxes
        For Each PB In Me.OtherPB
            SetRandomPbLocation(PB)
        Next
        'Will hold the closest control after the loop
        Dim ClosestPB As Control = Nothing
        Dim ClosestD, TempD As Double
        For Each PB In Me.OtherPB
            'Reset the control's background color
            PB.BackColor = Color.Transparent
            'Calculate the distance
            TempD = GetDistanceBetweenToControls(PB, Me.MainPB)
            If ClosestPB Is Nothing Then 'If this is the first time through the loop then just use this control as the closest
                ClosestPB = PB
                ClosestD = TempD
            ElseIf TempD < ClosestD Then 'Otherwise if this control is closer than the current closest
                ClosestPB = PB
                ClosestD = TempD
            End If
        Next
        'Set the closest controls background color so that we can see it
        ClosestPB.BackColor = Color.Blue
    End Sub
    Private Shared Function GetDistanceBetweenToControls(ByVal controlToCheck As Control, ByVal baseControl As Control) As Double
        If controlToCheck.Bottom < baseControl.Top Then
            If controlToCheck.Right < baseControl.Left Then 'Above and to the left
                Return DistanceBetweenTwoPoints(New Point(controlToCheck.Right, controlToCheck.Bottom), baseControl.Location)
            ElseIf controlToCheck.Left > baseControl.Right Then 'above and to the right
                Return DistanceBetweenTwoPoints(New Point(controlToCheck.Left, controlToCheck.Bottom), New Point(baseControl.Right, baseControl.Top))
            Else 'Above
                Return baseControl.Top - baseControl.Bottom
            End If
        ElseIf controlToCheck.Top > baseControl.Bottom Then
            If controlToCheck.Right < baseControl.Left Then 'Below and to the left
                Return DistanceBetweenTwoPoints(New Point(controlToCheck.Right, controlToCheck.Top), New Point(baseControl.Left, baseControl.Bottom))
            ElseIf controlToCheck.Left > baseControl.Right Then 'Below and to the right
                Return DistanceBetweenTwoPoints(controlToCheck.Location, New Point(baseControl.Right, baseControl.Bottom))
            Else 'Below
                Return controlToCheck.Top - baseControl.Bottom
            End If
        Else
            If controlToCheck.Right < baseControl.Left Then 'Left
                Return baseControl.Left - controlToCheck.Right
            ElseIf controlToCheck.Left > baseControl.Right Then 'Right
                Return controlToCheck.Left - baseControl.Right
            End If
        End If
    End Function
    Private Shared Function DistanceBetweenTwoPoints(ByVal point1 As Point, ByVal point2 As Point) As Double
        'Standard distance formula
        Return Math.Sqrt((Math.Abs(point2.X - point1.X) ^ 2) + (Math.Abs(point2.Y - point1.Y) ^ 2))
    End Function
End Class

VB.net最近的控件

2 个答案: