Gambas France BETA


Pas de compte ? Incription

Déplacer un contrôle avec la souris

Ce sujet est résolu.

1
AuteurMessages
Foromus#1 Posté le 17/7/2015 à 08:52:38
Bonjour à tous,

Une idée comme ça : j'aimerais, quand mon projet tourne, pouvoir déplacer un contrôle, en l’occurrence, une movie ou une picture, avec la souris (je clique et je déplace), (histoire de voir ce qui est caché derrière). J'espérais trouver une propriété "move" dans les propriétés des contrôles, mais je ne vois pas.
Une idée ?

Merci !
didier18#2 Posté le 17/7/2015 à 18:28:16
Bonjour Foromus

Drag & drop peut être...
C'est ce qui me vient spontanément à l'esprit.

Bonne fin de journée.
vuott#3 Posté le 18/7/2015 à 19:36:33
Ne cedere ineluctabili possimus...or you can try also without "Drag & Drop".

Example:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
PRIVATE spx AS SHORT
PRIVATE spy AS SHORT


PUBLIC SUB TextLabel1_MouseDown()

spx = Mouse.X
spy = Mouse.Y

END


PUBLIC SUB TextLabel1_MouseMove()

' The "TextLabel" will be positioned in this case, with respect to the cursor of the mouse, to the coordinates as below specified:
WITH TextLabel1
.X = .X + Mouse.X - spx
.Y = .Y + Mouse.Y - spy
END WITH

END





(www.gambas-it.org/wiki/index.php?title=Spostare_oggetti_con_il_mouse_all%27interno_di_un_contenitore_senza_Drag_%26_Drop)
« Vita non suavis esse potest, nec Mors amara. »
Foromus#4 Posté le 19/7/2015 à 08:49:28
Hello Vuott,

Yes, that is OK, is just on my way !
Thank you very much for your help, thank you !
1