Comment simuler un drag and drop

Salut a tous.

Le titre n'est pas explicite, en realité, j'utilise la bibliotheque Activiz (bibliotheque VTK pour VB), et je rend un volume dedans. Je commence a m'impreigner des Events, car pour faire bien Mme Activiz a ses propre Event, et est tres peu documentée.

Bon enfait il n'y a pas l'evennement dragdrop dans activiz.

Je peu vous cité quelque evennement si vous voulez? Bon allez je sais que vous en meurez d'envie.

MouseMoveEvent
LeftButtonPressEvent
LeftButtonReleaseEvent

Bon ce que je veux faire :

Cliquer dans ma fenetre faire apparaitre un plan.
Si je reste cliqué je peux déplacer le plan
Si je relace le bouton je bloque le slide du plan.


Pour l'instant ce que je sais faire, c'est cliquer,relacher deplacer le plan, mais vous aurez bien compris que je souhaite laisser mon plan a un endroit bien particulier,hors je peux desactiver l'event de mousemove pour remettre un evenement de rotation de camera (DEFINI par defaut dans VTK.)

Sauf que pour atteindre le bouton pour revenir en mode Cam.... faut que je me deplace dans ma renderWindow donc mon plan fou le camps.

:cfou:

Donc en gros je souhaiterais simuler cette action!

Je clique en maintenant celui ci je me deplace et je relache pour valider la position du Plan.


Je sais c'est lourdingue comme truc.... :lol:

Est ce que quelqu'un a une idée?

Merci, Best regards!

APPELEZ MOI :boulet: :boulet:


LE truc tout bete!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim bool as boolean     private sub Mouse_LeftButtonPressEvent() bool=true   Ecoute de l'evenement MouseMove Ecoute de l'evenement MouseLeftButtonRelease   end sub   private sub Mouse_MouseMoveEvent() if bool= true Deplacement du plan   end sub   private sub Mouse_LeftButtonReleaseEvent()   bool=False   end sub

---

Voila il suffisait d'utiliser un 'flag'