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
AI
AIサマリー: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ソースコード
<pre> 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 </pre>
オリジナルのコメント (3)
Wayback Machineから復元