Discussion :

[justgreat]

Pouvez vous m'expliquer ou me donner un tutoriel ou exemple de comment faire un Drag and Drop d'un item dans la meme listbox ? j'ai trouvé beaucoup d'exemples sur le net sur le drag and drop d'une liste à une autre, moi je veux dans la meme listbox et de pouvoir réorganiser les items suite au drag and drop

merci par avance

[ProgElecT]

Salut
Dans mes contributions tu trouveras RecenProjVB6.zip : Menu lanceur de projets pour l'éditeur VB6.
Ce programme contient se que tu demandes.

les parties devant t'intéresser sont,

Les variables globales à conserver:

• Dim T As Integer, U As Integer
• Dim SenSS As String
• Dim EncourDrag As Boolean, ModificatioN As Boolean
• Dim Msg$, MsgRecup$

Les subs utiles pour drag interne à la liste:

• Public Sub DeselectListe
• Public Sub SuppLignes
• Public Sub RecaleLignes
• Private Sub Timer1_Timer
• Private Sub Form_DragOver
• Private Sub ListArchive_MouseUp (juste la premiére ligne)
• Private Sub ListArchive_DragOver
• Private Sub ListArchive_MouseDown
• Private Sub ListArchive_DragDrop
• Private Sub ListArchive_MouseMove

Les subs utiles pour drag externe à la liste

• Private Sub ImgCorbeille_DragOver
• Private Sub ImgCorbeille_DragDrop

Comme il s'agit d'une contribution, il y a du commentaire pour chaque commande importante qui devrait te permettre une adaptation sans trop de problème.

[justgreat]

Bonjour et merci pour ta réponse,

franchement je n'ai pas parvenu à m'en sortir ! En fait, je lance ton projet , mais j'essaye de faire drag and drop dans la liste, mais ça le fait pas ? es tu sur que dans ce projet le drag and drop fonctionne ?
apparemment c'est trop compliqué pour moi
Merci en tout cas de m'avoir répondu, mais j'ai pas réussi à m'en sortir

[ProgElecT]

Pour le source proposé, il faut sélectionner une ou des lignes puis avec bouton Droit + Ctrl maintenu, déplacement sur une ligne ou doit se faire le déplacement, relever le bouton de la souris, et le tours est joué.
L'essentiel est que tu ais trouvé une solution.
Si resolu, n'oublis pas le bouton

[justgreat]

Merci encore une fois
Oui avec le boutton Ctrl enfoncé , ça fait le drag and drop, il drag le nom du fichier apparement pas tout l'item ...
le seul probleme qui reste est que le trouve que le code assez compliqué ou peut etre qu'il y a beaucoup de chose dont j'ai pas besoin.
Ainsi je préfère garder le sujet ouvert si quelqu'un peut me proposer une solution plus simple, sauf si vous préférez que je met résolu et que je cherche ailleurs, ce n'est pas grave, à vous de me dire.

Cordialement

[justgreat]

Je pense que j'ai trouvé ce lien qui n'est pas mal :

http://support.microsoft.com/default...;en-us;q167746

Pas bien commenté mais bon je peux le comprendre...Par contre ça c'est uniquement pour déplacer un seul élément, si on veut déplacer plusieurs dans une list multiselect=true , avez vous une idée comment le faire ?