Search Tools Links Login

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

Original Author: Blues Scatman

Code


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

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 89 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.