vb.net - 找到最小值。 vb.net 中列表中的值

Question

我有一个特定类别的列表。 在此列表中，包括职位类别。 该位置类包括 X 和 Y 坐标。 我有当前坐标和 list 中的坐标。 我想计算列表中每个项目的距离并找到哪个项目具有最小距离。 这是我的代码:

  For Each item As ITEMX In xHandle.ItemList

        Dim CurrX As Integer = txt_TrainX.Text
        Dim CurrY As Integer = txt_TrainY.Text
        Dim NextX As Integer = item.Position.x
        Dim NextY As Integer = item.Position.y

        Dim distance As Integer = DistanceBetween(CurrX, CurrY, NextX, NextY)


    Next

所以距离是我的坐标和项目之间的距离。 我为列表中的每一项计算它，但如何找到最小的一项？

谢谢。

Answer 1

在 VB.NET 中使用 Linq:

Dim CurrX As Integer = txt_TrainX.Text
Dim CurrY As Integer = txt_TrainY.Text

Dim NearestITEM = xHandle.ItemList.Min (Function(i) DistanceBetween(CurrX, CurrY, i.Position.x, i.Position.y));

有关 VB.NET 中的 Linq 的一些信息和示例，请参阅 http://msdn.microsoft.com/en-us/vbasic/bb688088