RANDOM Sorting Objects in ArrayList
Please help me figure out how to sort this array list in a random sort.
Thanks
Code:
Private Sub BindBanners()
Dim ar As New ArrayList
Dim path As String = "images/banners/"
Dim item As New Telerik.WebControls.RotatorDataItem
item("BannerLocation") = path & "home.jpg"
ar.Add(item)
Dim item1 As New Telerik.WebControls.RotatorDataItem
item1("BannerLocation") = path & "about.jpg"
ar.Add(item1)
Dim item2 As New Telerik.WebControls.RotatorDataItem
item2("BannerLocation") = path & "contact.jpg"
ar.Add(item2)
Dim item3 As New Telerik.WebControls.RotatorDataItem
item3("BannerLocation") = path & "links.jpg"
ar.Add(item3)
Dim item4 As New Telerik.WebControls.RotatorDataItem
item4("BannerLocation") = path & "news.jpg"
ar.Add(item4)
Dim item5 As New Telerik.WebControls.RotatorDataItem
item5("BannerLocation") = path & "service.jpg"
ar.Add(item5)
Dim item6 As New Telerik.WebControls.RotatorDataItem
item6("BannerLocation") = path & "gallery.jpg"
ar.Add(item6)
Dim item7 As New Telerik.WebControls.RotatorDataItem
item7("BannerLocation") = path & "gallery2.jpg"
ar.Add(item7)
'Generate random value
Randomize()
Dim MyValue As Integer = CInt(Int((ar.Count * Rnd()) + 1))
ar.Sort(MyValue, ar.Count - 1, Nothing)
RadRotator1.DataSource = ar
RadRotator1.DataBind()
End Sub 'BindBanners