Glisser Deposer pas très au point

Question

Lut

J'essaye de faire un glisser deposer d'un bouton de commande dans le contenu sur un label.
Premiere Question : Est ce que ca peut marcher ?
Deuxieme Question : Je peut deplacer mon bouton de commande mais pas le deposer ?
Y a t'il une synthaxe special &#224; adopter si oui laquelle ?

Merci
Maiku

Gobillot · Answer

salut Emilie

un bouton dans un Label, c'est bien &#231;a ?

Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
    Source.Move Label1.Left + X, Label1.Top + Y
End Sub

Daniel

Maiku · Answer

Lut Daniel

Ton Truc marche moyennement disons.
Je peux deplacer mon bouton de commande mais il ne veut jamais se mettre exactement a l'endroit ou je lui dis il se deplace par petit coup.
En fait si tu veux pour une proc&#233;dure qui consiste a rejouer : les deux boutons de commandes sont Oui.Caption et Non.Caption. Mon Label s'appelle Rejouer.Caption
Le truc c'est que je veux pouvoir faire une glisser deposer du oui ou du non dans mon rejouer.caption et apres lui dit si rejouer.caption = oui.caption alors il rejoue sinon il quitte.
Et comme je suis encore plus nuelle en glisser deposer qu'en fichier ben ca fonctionne pas encore totalement.
Voila si tu pouv&#233; m'en dire plus sur le code que tu as ecrit et ce qui ne vas pas parce que moi suis un tt petit peu largu&#233; ds tt &#231;a.

Merci
Emilie Alias Maiku

Gobillot · Answer

relu.
merci pour le moyennement.
bon le X,Y renvoie la position de la souris par rapport au Label, coin sup&#233;rieur droit (valeurs donn&#233;es en Twips m&#234;me si la forme est en Pixels, bizarre ?).
si le curseur est au milieu du bouton, &#231;a doit donner &#231;a:

Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
    Source.Move Label1.Left + X - Source.Width / 2, Label1.Top + Y - Source.Height / 2
    MsgBox Source.Caption
End Sub

mais si le curseur est n'importe o&#249;, il faut faire des corrections et &#231;a a pas l'air tr&#232;s simple.

Daniel

Maiku · Answer

ReLut

Ben disons que ca marche mais c'est vrai que ca a l'air compliqu&#233; je v&#233; essay&#233; de mettre le prob de c&#244;t&#233; je pense et d'essayer un autre evenement car je suis en bts et il me faut 5 evenements pour mon application.
En plus j'ai d'autres prob pour mon application comme comment creer un fichier d'aide pour l'associer a mon application et comment fermer une form une fois qu'on n'en a plus besoin et qu'on passe a une autre.
En Clair j'ai encore pas mal de choses a perfectionner car il faut que je comprenne ce que je fasse sinon ca sert a rien.

Merci quand mm
Maiku

Gobillot · Answer

je vais continuer &#224; chercher de mon c&#244;t&#233;.
il faudra utiliser GetSursorPos pour avoir la position de la souris.
pour le fichier d'aide j'en sais rien, cherche dans le site, il doit y en avoir.
pour cacher une forme c'est NomdelaForme.Hide ou Me.Hide si c'est la forme courante.
pour la d&#233;charger de la m&#233;moire c'est UnLoad NomdelaForme ou UnLoad Me 

bon courage.

Daniel

Maiku · Answer

ReLut

Decidement tu es mon sauveur Daniel^^
Merci pour tout ces fonctions.

Maiku

Glisser Deposer pas très au point

6 réponses

Discussions similaires