Discussion :

[parp1]

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.



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....

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

Merci, Best regards!

[parp1]

APPELEZ MOI


LE truc tout bete!

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
 
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'