Discussion :

[damsmut]

Bonjour,

J'ai essayé de suivvre ce tuto pour faire un drag & drop mais cela ne fonctionne pas... j'ai un message d'erreur :

erreur d'exécution '438' - Propriété ou méthode non gérée par cet objet

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
Private Sub Form_Open(Cancel As Integer)

TreeView1.Nodes.Add , , "coucou1", "coucou1"
TreeView1.Nodes.Add , , "coucou2", "coucou2"

TreeView1.Nodes.Add "coucou1", tvwChild, "hello1", "hello1"
TreeView1.Nodes.Add "coucou1", tvwChild, "hello2", "hello2"

TreeView1.Nodes.Add "coucou2", tvwChild, "hello4", "hello4"
TreeView1.Nodes.Add "coucou2", tvwChild, "hello5", "hello5"

End Sub

Private Sub TreeView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)

    If Button = vbLeftButton Then
    
        boFlagEC = True
        
        'erreur ici
        TreeView1.DragIcon = TreeView1.SelectedItem.CreateDragImage
        'erreur ici
        TreeView1.Drag vbBeginDrag

    End If

End Sub

à l'aide please

merci
a+
Dams'

[tototiti2008]

Bonjour damsmut,

j'ai fait un truc avec des drag & drop dans un treeview, mais ça n'a pas l'air d'intéresser grand monde
Le code est disponible, jette un oeil si tu veux :

http://www.developpez.net/forums/d91...ion-codes-vba/

mais de mémoire j'ai sué...

[damsmut]

Salut tototiti2008,

c'est cool j'ai une piste déjà... par contre j'ai l'impression qu'il y'a pas mal de bugs dans les drags & drop dans ton programme.

Dès fois il ne veut pas déplacer des codes ou des groupes.


Et peux tu m'expliquer le principe d'un drag & drop ?

J'ai vu que tu as des actions sur "NodeClick" et "mousemove"... "mousemove" permettant de définir les coordonnées x,y des nodes à déplacer je pense...

mais par contre comment est-ce que tu gères un déplacement exactement au niveau des nodes du treeview ?
Là je bloque.

[tototiti2008]

Bonjour damsmut,

par contre j'ai l'impression qu'il y'a pas mal de bugs dans les drags & drop dans ton programme.

Dès fois il ne veut pas déplacer des codes ou des groupes.

Pas de soucis chez moi.... si tu pouvais décrire le cas où ça ne marche pas

mais par contre comment est-ce que tu gères un déplacement exactement au niveau des nodes du treeview ?
Là je bloque.

Euh... qu'est-ce que tu appelles un déplacement exactement au niveau des nodes ?

[damsmut]

par exemple je n'arrive pas à déplacer dans classes/g3 le fichier m5

le curseur ne change pas non plus si ge clic et que je déplace la souris

[tototiti2008]

Re,

moi je déplace le fichier m5 dans un autre dossier ou une autre catégorie sans problèmes... comprend pas trop.
De même je le copie correctement à un autre endroit en maintenant Ctrl appuyé
Je suis en XL2003, et toi ?