Перемешать строки в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д