Drag and drop avec une list Box sacrilege aidez moi !

Cela fait quelque temps que je cherche !
mais rien !
Drag and drop avec deux listes box ok mais avec une c'est plus dur !

Ce que je voudrais faire c'est interchanger la place des lignes

par exemple selection de la ligne 4 pour la mettre en 1ere position la 1ere devient alors 2nd et ainsi de suite


Aidez moi

SVPpppppppppppppp

En drag-drop, je vois pas trop. Mé sinon, tu fais un click sur ta list, tu enregistre le listindex dans une variable et quand tu reklick, tu déplace...

Ca resous le pb, sinon, rappelle !

::Alan USSE::


-------------------------------
Réponse au message :
-------------------------------

Cela fait quelque temps que je cherche !
mais rien !
Drag and drop avec deux listes box ok mais avec une c'est plus dur !

Ce que je voudrais faire c'est interchanger la place des lignes

par exemple selection de la ligne 4 pour la mettre en 1ere position la 1ere devient alors 2nd et ainsi de suite


Aidez moi

SVPpppppppppppppp

J'ai trouve mais mon code fait presque 20 lignes ?
ya pas plus court ?

je vais essayer en 10 l. (/!\ code en live!)

Dim TMP as string
Dim TMPI as integer

public sub list-click()
if tmpi=vbnullstring then
tmpi=list.listindex
tmp=list.list(list.listindex)
exit sub
end if
list.removeitem TMPI
list.additem tmp, list.listindex
list.additem list.list(list.listindex),tmpi
list.removeitem list.listindex
tmpi=vbnullstring
end sub

Ca marche pas, rappelle !

::Alan USSE::


-------------------------------
Réponse au message :
-------------------------------

J'ai trouve mais mon code fait presque 20 lignes ?
ya pas plus court ?

Salut,

j'essaye de faire la même chose avec un listview, mais on dirait que ça ne marche pas.

Je pense que c'est en partie à cause de la syntaxe.

Quelqu'un aurait-il une piste, svp ?