[VB6] Drag&Drop de UserControl

Question

Bonjour, 

Je travail sur un outil qui doit pouvoir cr&#233;er et d&#233;placer des objets dans une picturebox de mani&#232;re dynamique. 

J'ai un petit probl&#232;me tr&#232;s &#233;trange avec le D&D des usercontrols  . 

Lorsque je clic sur un usercontrol, je passe dans le mouseDown (j'ai fait un raiseevent) et si je met un composant quelconque &#224; visible = true dans se MouseDown, mon usercontrol va se d&#233;caler (Top et left) l&#233;g&#233;rement et il passe par son event DragDrop ce qui est tres bizarre vu que je ne fait que un clic ... 

Je vous met un petit prog que j'ai fait &#224; part pour que vous puissiez voir le probl&#232;me par vous m&#234;me. Lorque vous cliquez sur un composant, vous passerez par le mousedown et allez mettre une textbox &#224; visible true. Donc vous allez passer par L'event D&D si la textbox etait invisible. 
Pour le usercontrol avec deux label, cliquez sur le label bleu. 

Voila le lien : http://users.skynet.be/bk290098/D&D%20user.rar 

Ps : Si je remplace le MouseDown par Click, j'ai plus ce probl&#232;me mais j'ai besoin du mousedown. 

Merci pour votre aide

PCPT · Answer

salut,

il m'a fallut un petit moment avant de reproduire le probl&#232;me. bref.

pour le d&#233;calage, c'est d&#251; au fait que tu utilises les Width et Height au lieu de Scale...



pour le surlignage (d&#233;but de drag) si tu effectues une action, c'est VB
ou l'OS qui le g&#232;re, pas un probl&#232;me de code. preuve en est, dans ton
2e usercontrol, met une bordure &#224; ton label.



et pour down pas click, c'est normal. le d&d se d&#233;clenche toujours au Down.

++

cs_Goldenkiller · Answer

Ok je testerai ca demain au boulot :)

Merci pour ton aide :)

cs_Goldenkiller · Answer

Salut,

ca marceh d&#233;j&#224; mieux. Encore un composant &#224; travailler.

Par contre je ne sais pas trop &#224; quoi correspond ScaleWidth et ScaleHeight. 
Tu serais pas decrire ca en 2 mots???

Merci :)

PCPT · Answer

&#224; peine plus : c'est la taille int&#233;rieure du composant.

exemple pour une Form, c'est la m&#234;me taille sans sa bordure.

@+ ;)

[VB6] Drag&Drop de UserControl

4 réponses

Discussions similaires