今天碰到一个 list 乱序问题,解决方案如下
Public Function random_shuffle(ByVal org As List(Of global_seedlink)) As List(Of global_seedlink)
Dim newList As New List(Of global_seedlink)
Try
newList = org.OrderBy(Function(x) x.GetHashCode).Take(org.Count).ToList
Catch ex As Exception
Debug.Print(ex.Message)
End Try
Return newList
End Function