Programming
-
포인트 정렬2카테고리 없음 2015. 12. 10. 22:37
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..