سلام دوستان یه بار دیگه اومدیم با یه تابع کاربردی دیگه بیسیک فور اندروید با این تابعی که براتون اوردم میتونید ایتم های لیست خودتون رو به صورت رندوم بهم ریخته کنید

تابع :

Sub ShuffleList(pl As List) As List
  For i = pl.Size - 1 To 0 Step -1
    Dim j As Int
        Dim k As Object
    j = Rnd(0, i + 1)
    k = pl.Get(j)
    pl.Set(j,pl.Get(i))
    pl.Set(i,k)
  Next
    Return pl
End Sub

برای استفاده از تابع بالا از کد زیر استفاده کنید

list1=ShuffleList(list1)

برای مشاهده دیگر توابع کاربری بیسک فور اندروید کلیک کنید