포인트 정렬2

Imports System.Drawing
Imports System.Collections.Generic

Module Module1
    Public Structure Man
        Dim Name As String
        Dim Age As Integer
    End Structure

    Sub Main()
        Dim dict As New Dictionary(Of PointF, Man)
        For i As Integer = 0 To 2
            Dim pt As PointF = New PointF(i * 2, i * 3)
            Dim aMan As Man = New Man()
            aMan.Name = "Sam " + i.ToString
            aMan.Age = (i + 1) * 10
            dict.Add(pt, aMan)
        Next

        Dim sortDict = (From pair In dict Order By pair.Key.Y Descending Select pair)

        For Each kvp As KeyValuePair(Of PointF, Man) In sortDict
            Dim key As PointF = kvp.Key
            Dim value As Man = kvp.Value
            Dim str As String = String.Format("{0} / {1} / {2}", key.ToString, value.Name, value.Age.ToString)
            Console.WriteLine(str)
        Next

        Console.WriteLine()
        Console.ReadKey()
    End Sub

  End Module

포인트를 정렬할 수 있는 샘플입니다. 테스트 문장입니다.