Dim dc1 As New DoubleCollection From {
            0,
            7,
            6,
            5,
            8,
            2
        }
        Dim dc2 As New DoubleCollection(dc1.Cast(Of Double)().OrderBy(Function(d) d).ToArray())
        For Each d As Double In dc2
            MsgBox(d)
        Next

同样Point3dCollection的排序：

Dim PTC as As New Point3dCollection
……
PTC = New Point3dCollection(PTC.Cast(Of Point3d)().OrderBy(Function(P As Point3d) P.X).ToArray()) '按X坐标排序

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：2*8=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情