FAIRE GLISSER UN ÉLÉMENT DANS UNE LISTBOX FAÇON "WINAMP"

Dim ancien_index As Integer 'index de l'élément de départ
Dim nouvel_index As Integer 'nouvel index de la souris en "temps réel"
Dim nom_index As String 'nom de l'élément de l'ancien index


'Action à effectuer lors d'un clic gauche de la souris sur un élément de la liste
Private Sub Liste1_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
ancien_index = Liste1.ListIndex
End Sub


'Action à effectuer lors d'un mouvement de la souris dans la liste
Private Sub Liste1_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
If button = 1 Then 'il faut évidemment que le clic gauche reste enfoncé
    nouvel_index = Liste1.ListIndex
    If nouvel_index <> ancien_index Then 'il faut aussi que la souris ai quitté l'ancien élément
        'on inverse ensuite les deux éléménts
        nom_index = Liste1.List(ancien_index)
        Liste1.RemoveItem ancien_index
        Liste1.AddItem nom_index, nouvel_index
        'on modifie enfin l'index de l'élément séléctionné
        Liste1.ListIndex = nouvel_index
        'on reinitialise l'ancien index a la nouvelle position
        ancien_index = nouvel_index
    End If
End If
End Sub

13 juillet 2007 18:23:28 :

Je viens tout juste de revoir cette petite source: - j'y ai incorporé les suggestions apportées par "soldier8514" (il y a exactement 2 ans pile, pure coïncidence!), qui évite de redéclarer quelques variables à chaque mouse_move. - optimisation de la fin du code (modification de l'élément sélectionné, ainsi que la réinitialisation de l'ancien index, qui sont codés de façon plus direct)