Как случайным образом перемашать всё в ListBox

[Nikolka]

Вот алгоритм потребовался, который случайным образом перемешивает все его элементы (ну Item`ы). Просто

Rnd*(ListBox.ListCount-1) - а что делать с повторами. Не исключать же и заново все делать. Может кто подскажет алгоритм.

[Konst_One]

выполняй и каждый раз уменьшай окно значений на вставленное кол-во записей

[vvs_adm]

Вот алгоритм потребовался, который случайным образом перемешивает все ... элементы

Когда то я писал сервер-клиент, где сервер расдает карты (преф). Тоже хотел по рандому устанавливать карты, уменьшая и т.д. Но потом мне пришел в голову один алгоритм, на котором я и остановился ( не претендую на оригинальность, но в поисковиках не смотрел) : можно рандомом выбрать две карты(итема) и поменять их местами. И так несколько раз. Простенько и со вкусом

[Memfivosfey]

Private Sub Form_Load()
Dim I As Integer
Dim J As Integer

For I = 0 To 200
List1.AddItem I
Next I

Dim A, B As String
For I = 0 To List1.ListCount - 1

Randomize Timer
J = Rnd * List1.ListCount - 1

While J = -1
J = Rnd * List1.ListCount - 1
Wend

A = List1.List(I)
B = List1.List(J)

List1.List(I) = B
List1.List(J) = A
Next I
End Sub


Вот вариант, на форме только объект List1...Проюзай...

[Nikolka]

Пасиба!