• Home
 · 
• Coding Standards
 · 
• Move listbox items

Move listbox items

I was asked how to move items in a listbox up and down, to place then in any order of my choice.
Here's one way of doing it. You need two buttons, I named them 'buttonUp' and 'buttonDown', and ofcourse a listbox named 'List1'. Then all you have to do is select the item you wish to move, and press the up or down button. Great for playlists.
Scatman

Rate Move listbox items

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub buttonDown_Click()
 Dim nItem As Integer
 With list1
 If .ListIndex < 0 Then Exit Sub
 nItem = .ListIndex
 If nItem = .ListCount - 1 Then Exit Sub
 .AddItem .Text, nItem + 2
 .RemoveItem nItem
 .Selected(nItem + 1) = True
 End With
End Sub
'----------------------------------------
Private Sub ButtonUp_Click()
 Dim nItem As Integer
 With list1
 If .ListIndex < 0 Then Exit Sub
 nItem = .ListIndex
 If nItem = 0 Then Exit Sub
 .AddItem .Text, nItem - 1
 .RemoveItem nItem + 1
 .Selected(nItem - 1) = True
 End With
End Sub