[VBA-E] réaliser un glisser-déplacer dans une listbox [Trucs & Astuces]

**bandit boy** · 30/03/2006, 10h08

Je travaille actuellement avec deux listbox et je souhaite faire passer des informations de l'une a l'autre. Pour cela j'utilise deux boutons ajouter et retirer qui fonctionnent parfaitement. Je souhaite maintenant améliorer ce fonctionnement en utilisant des glisser-déplacer d'une liste à l'autre. cela marche avec la fonction listbox1_BeforeDropOrPaste et MouseMove et les add.item.

Cependant le libellé selectionné est toujours rajouté a la fin de la liste (ce qui est logique avec additem).

J'en arrive a ma demande : est t'il possible avec un glisser-déplacer d'inserer un item au milieu d'une liste ? ( sous windows par exemple on peut dans un dossier, déplacer les fichiers en les faisant glisser a la place souhaitée)

Est t'il possible de forcer le numéro de list index par exemple pour modifier l'ordre des items?? (pour l'instant je n'ai pas trouvé)

Si quelqu'un a une piste ou une solution je suis preneuse.
Merci d'avance

**méphistopheles** · 30/03/2006, 10h20

Merci de lire la

http://vb.developpez.com/faq/?page=Autres#dragdrop

**bandit boy** · 30/03/2006, 11h01

En effet j'avais deja vu cet exemple mais ne marche t'il pas uniquement sous vb6??

Car sous vba je ne trouve pas les fonctions dragdrop et dragover, cependant j'ai before dragover et beforedroporpaste, je suppose qu'elles ont a peu près les meme fonctionnalités??

Voici donc le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub listbox1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean _
, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single _
, ByVal DragState As Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Cancel = True
    Effect = 1
End Sub
 
Private Sub listbox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean _
, ByVal Action As Long, ByVal Data As MSForms.DataObject, ByVal X As Single _
, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
    Cancel = True
    Effect = 1
    Me.ListBox1.AddItem Data.GetText
End Sub
Private Sub listbox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Dim MyDataObject As DataObject
 
 
  If Button = 1 Then
    Set MyDataObject = New DataObject
    Dim Effect As Integer
    MyDataObject.SetText Me.ListBox1.Value
    Effect = MyDataObject.StartDrag
    Me.ListBox1.RemoveItem Me.ListBox1.ListIndex
  Else
    If Me.ListBox1.ListCount > 0 Then
      Me.ListBox1.ControlTipText = "Transfert <- possible par glisser-déplacer !"
    End If
  End If
End Sub

mais comme je le disais, ca me rajoute mon item en fin de liste

je viens de vois ceci dans le code de la FAQ : List1.AddItem List2.List(List2.ListIndex) que je ne comprends pas trè bien que j'ai essayé en l'adaptant a mon programme sans changement.
Moi je souhaiterais pouvoir rajouter mon item a l'emplacement pointé par ma souris...
Est ce possible?
merci d'avance

**ouskel'n'or** · 30/03/2006, 11h25

Envoyé par L'aide

RemoveItem : Cette méthode supprime un ou plusieurs éléments d'une zone de liste ou d'une zone de liste modifiable.

J'ai bien peur que tu ne sois contraint de reconstituer ta liste en repérant l'index de la donnée se trouvant sous le curseur de la souris.

Juste une idée

A+

Edit
Je viens de voir la fin de ton message

qui donne un espoir...

List1.AddItem List2.List(List2.ListIndex)

Si cette syntaxe s'adapte à ton besoin, pour info, ListIndex correspond à l'index de la donnée pointé par ta souris. Mais pour le trouver, il lui faut un événement et je ne sais pas si List2_MouseMove est adapté. Peut-être bien qu'il faudra un MouseUp sur la donnée en dessous de l'endroit où tu veux insérer ta donnée... Tu vérifies.

**méphistopheles** · 30/03/2006, 14h37

9a vas avec les getX et Getx (api win32) mais le problèmes et de savoir si l'utilisateur lache ou non l'objet en cours de route.

et là je recherche toujours un moyens de détecter les clicks hors programme.....

**bandit boy** · 30/03/2006, 17h02

javance pas très vite, je n'arrive pas encore vraiment a bien exploiter MouseUp.

J'aurais voulu savoir si l'on peut connaitre l'index d'un item sans qu'il soit sélectionné, le pointeur de la souris étant juste positionnée dessus?

Car pour utiliser ListIndex il faut que l'item soit sélectionné, or dans mon cas j'ai deja un item selectionné (celui que je déplace) et je voudrais connaitre l'index de celui qui sera juste en dessous de mon curseur pour le nouvel emplacement...

merci d'avance

**bandit boy** · 30/03/2006, 17h43

pour l'instant j'ai contourné le problème : j'ai constaté que chacun de mes items avait une "épaisseur" de 9, (j'ai utilisé la valeur Y de la position du curseur de la souris), j'ai donc réalisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub listbox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean _
, ByVal Action As Long, ByVal Data As MSForms.DataObject, ByVal X As Single _
, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Dim place As Integer
    Cancel = True
    Effect = 1
    MsgBox Y
    place = Int(Y / 9)
    MsgBox place
    Me.ListBox1.AddItem Data.GetText, place
End Sub

en intrégrant ca au reste du programme( que j'ai posté plus haut) jarrive donc a déplacer mes items en fonction de la position de la souris.
Cependant je trouve cette solution pas très propre et bricolé car si la largeur de mes items change, la position ne sera plus bonne...

Je garde cette solution en réserve, mais jamais quelqu'un a une solution plus propre et plus unviverselle, faites moi signe
merci beaucoup

**jmfmarques** · 30/03/2006, 18h22

1) Je ne sais pas si VBA connait :
les événements MouseDown et MouseUp et s'il gère l'objet Clipboard (presse-papier)...

:
parce que si oui ...
2)

or dans mon cas j'ai deja un item selectionné (celui que je déplace) et je voudrais connaitre l'index de celui qui sera juste en dessous de mon curseur pour le nouvel emplacement...

ben ... il est facile de connaître l'index decelui qui est sélectionné et donc facile de connaitre cet index + 1 !...

**bandit boy** · 31/03/2006, 08h49

vba_e gère les évenement mousDown et mouseUp par contre je n'ai pas l'impression qu'il connaisse l'objet clipboard. en revanche il connait l'objet Dataobject (qui a l'air d'offrir quelques possibilités similaires non?)

ben ... il est facile de connaître l'index decelui qui est sélectionné et donc facile de connaitre cet index + 1 !...

en effet, mais mon problème est que une fois mon item sélectionné, je souhaite le déplacer parfois de plusieurs places (a l'aide de glisser-déplacer) au nouvel endroit pointé par ma souris, je peux donc me retrouver avec un écart de plusieurs index qui n'est pas prévisible à l'avance... et c'est donc l'index pointé par ma souris qui m'intéresse afin de pouvoir positionner mon item sélectionné à ce nouvel emplacement

**ouskel'n'or** · 31/03/2006, 10h08

Juste une indication sur clipboad, si ça peut aider... Tu dois déclarer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long

Pour le vider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard

A toi jemefe

Psst - J'ai renoncé mais je suis...

**jmfmarques** · 31/03/2006, 11h24

Alors (et à toi de nous montrer ta volonté de chercher à faire un peu) :
Quand je presse (sans le relacher) le bouton gauche de la souris, se déclenche un événement MouseDown dont je profite pour mettre ce que je décide de mettre dans le presse-papier (relire Ouskel'n'or si tu n'as pas dans VBA l'objet clipboard).
Je promène ma souris jusqu'où je veux, sans relacher mon bouton et, quand elle a atteint son but, je relâche le bouton, déclenchant ainsi l'évènement Mouse-up du contrôle où elle se trouve et profite de ce grand événement pour exécuter une autre instruction (par exemple celle d'utiliser ce que j'ai mis dans le presse-papier.
A toi, maintenant, bandit !

PS : quand tu auras passé cette 1ère étape, on pourra reparler de ton problème d'indexes

**jmfmarques** · 31/03/2006, 22h24

Allez !
Bonsoir !
J'avais besoin de rire un peu, la veille du 1er avril !
Passons quand même aux choses sérieuses :
Tu n'as, ami Bandit, nul besoin d'utiliser le presse papier (ni clipboard, ni son substitut par API)
Je te laisse réfléchir un tout petit peu et, si tu ne vois pas comment d'ici demain, tout seul, je reviendrai !

EDIT : que personne ne "souffle" la solution à Bandit avant demain, SVP !

**méphistopheles** · 31/03/2006, 22h51

en effet, pas besoin d'api si c'est dans une eule listbox (je pensait que c'étais d'une listbox à l'autre).

**jmfmarques** · 31/03/2006, 22h53

que ce soit dans une seule litbox ou entre deux, voire n listboxes : kif kif !
mais.... chut ....

**méphistopheles** · 31/03/2006, 22h58

non car si on veut gérer un évenement du type un petit label qui suis la souris indiquant qu'on fait un dropdown, c'est mieux que de devoir passer le relais à la frame puis à la seconde listbox.

cependant, le problème reste le relachement intermédiaire.

enfin, ce n'est pas vraiment le problme de notre ami.

**jmfmarques** · 31/03/2006, 23h02

ce n'est pas vraiment le problme de notre ami.

en effet ! Pas du tout, même !
Et il ne fera pas un dragdrop du tout, non plus ! !!!

**jmfmarques** · 01/04/2006, 23h08

Et alors ?
Où est passé notre bandit ?
Plus là ?
C'est dommage car, de mon côté, j'ai "travaillé"... et je sais que d'autres sont intéressés !...
Qui relance donc à la place de Bandit ?
Méphisto ?

:

**bandit boy** · 03/04/2006, 09h28

Désolé d'avoir mis si longtemps a répondre mais le week end étant passé, me revoila!
Cependant pas très fier car je n'ai toujours pas trouvé de solution me convenant parfaitement...

J'avoue que vendredi je me suis perdu dans toutes vos pistes mais au moins j'ai appris des trucs

Maintenant je suis toute ouie pour vos solutions ou vos conseils

Et merci de vous etre intéressé a mon problème

**jmfmarques** · 03/04/2006, 09h41

Là, c'est moi qui vais devoir m'absenter pour environ 2 heures ...
Ce que tu peux faire en attendant :
un petit projet acomposé d'une Form contenant :
une textbox nommée depart avec propriété multiline = true
une textbox nommée arrivee avec propriété multiline = true
un tout petit cadre nommé copie - propriété invisible = true
voilà, nous verrons à mon retour quel code va permettre de faire un glisser-déposer d'une textbox vers l'autre.
Une fois franchie cette étape, nous passerons au cas de listboxes...
A bientôt