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
Yapay Zeka Özeti: 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.
Kaynak Kod
<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>
Orijinal Yorumlar (3)
Wayback Machine'den kurtarıldı