VB.NET 获取离散点的边界

获取离散点的边界可以通过计算凸包来实现。凸包是一个包含所有点的最小凸多边形，它的边界就是离散点的边界。

在 VB.NET 中，可以使用 `System.Windows.Point` 类表示一个点，使用 `System.Windows.Media.PathGeometry` 类表示一个几何路径。可以通过以下步骤获取离散点的边界：

1. 将所有点存储在一个 `List(Of Point)` 中。
2. 使用 `Geometry.Combine` 方法将所有点转换为一个 `PathGeometry`。
3. 使用 `PathGeometry.GetFlattenedPathGeometry` 方法将 `PathGeometry` 扁平化为一个 `PathGeometry`。
4. 使用 `PathGeometry.GetWidenedPathGeometry` 方法将 `PathGeometry` 扩展为一个 `PathGeometry`。
5. 使用 `PathGeometry.GetOutlinedPathGeometry` 方法将 `PathGeometry` 转换为一个 `PathGeometry`，其中只包含边界路径。
6. 使用 `PathGeometry.Figures` 属性获取边界路径。

下面是一个获取离散点边界的示例代码：

Imports System.Collections.Generic
Imports System.Windows
Imports System.Windows.Media

Public Module DiscretePointsBoundary
    Public Function GetBoundary(points As List(Of Point)) As PathFigureCollection
        ' 将所有点转换为 PathGeometry。
        Dim pathGeometry As New PathGeometry()
        pathGeometry.AddGeometry(New PathGeometry(New PathFigure() {New PathFigure(points(0), points.Select(Function(p) New LineSegment(p, True)).ToList(), True)}))

        ' 扁平化 PathGeometry。
        Dim flattenedGeometry As PathGeometry = pathGeometry.GetFlattenedPathGeometry()

        ' 扩展 PathGeometry。
        Dim widenGeometry As PathGeometry = flattenedGeometry.GetWidenedPathGeometry(New Pen(Brushes.Black, 1))

        ' 获取边界 PathGeometry。
        Dim outlineGeometry As PathGeometry = widenGeometry.GetOutlinedPathGeometry()

        ' 获取边界路径。
        Return outlineGeometry.Figures
    End Function
End Module

示例代码中，`GetBoundary` 方法接受一个 `List(Of Point)` 参数，返回一个 `PathFigureCollection` 对象，其中包含离散点的边界路径。