Drag and drop avec une list Box sacrilege aidez moi !

Question

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

Alan71 · Answer

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::  >:)

Remixgame · Answer

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

Alan71 · Answer

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::  >:)

IleDeMalte · Answer

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 ?

Drag and drop avec une list Box sacrilege aidez moi !

4 réponses

Discussions similaires