Перемешать строки в ListBox - VB
Формулировка задачи:
Можно ли перемешать строки в ListBox? Ну то есть в случайном порядке.
Решение задачи: «Перемешать строки в ListBox»
textual
Листинг программы
- Private Sub Form_Click()
- Dim tmp As String, i As Long, r As Long
- Randomize
- For i = 0 To List1.ListCount - 1
- r = Int(Rnd * List1.ListCount)
- tmp = List1.List(i)
- List1.List(i) = List1.List(r)
- List1.List(r) = tmp
- Next i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
