Quantcast
Viewing all articles
Browse latest Browse all 15765

[RESOLVED] Moving any Listbox item to Top Listindex

This code on a double-click of my listbox will move the selected item to the top (simple).

Code:

Private Sub List1_DblClick()    Dim ListItem As String
    ListItem = List1.List(List1.ListIndex)
    List1.RemoveItem List1.ListIndex
    List1.AddItem ListItem, 0
End Sub

But I would like to move an item up or down in my list (song list in Jukebox) by using the mouse and 'dragging' it to any given location/listindex.

As easy???

EDIT---title is misleading...Should read: Moving any Listbox Item to ANY Position.

Viewing all articles
Browse latest Browse all 15765


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>