move qui move pas??

Question

Bonjour,



je suis entrain de reprendre un programme.



J'ai ecrit le suivant, la fenetre est sensee bouger puis on copie ce qui se trouve dessous dessus.



le probleme, c'est que la forme ne bouge pas, pire, elle bouge si je met le move apres la fonction StretchBlt je ne vois pas comment cette fonction peut annuler le deplacement de la fenetre

pouvez vous eclairer ma lanterne vant que je ne devienne chevre...



  Move Left + (X) * 15, Top + (Y) * 15

 'Avant de capturer une image il faut cacher la fen&#234;tre afin qu'elle n'apparaisse pas dans la capture.

 Visible = False

 'Il faut laisse &#224; Windows le temps de la masquer. Donc, on lui redonne la main durant un instant.

 DoEvents

'Maintenant, on capture la portion voulue de l'image et on la place comme image d'arri&#232;re plan de la fen&#234;tre.

 StretchBlt hdc, _

            0, 0, _

            ScaleWidth, ScaleHeight, _

            GetDC(0), _

            (Left / 15), (Top / 15), _

            ScaleWidth, ScaleHeight, _

            vbSrcCopy

 

 'On r&#233;affiche la fen&#234;tre

 Visible = True

Gobillot · Answer

j'ai essay&#233;, chez moi &#231;a marche.
c'est quoi X et Y ?
est-ce que le Move se fait sans StrechBlt ?
peut &#234;tre qu'un seul DoEvents ne suffit pas
essayes &#231;a:
   Do
   Loop Until DoEvents = 0

sinon il y a un l&#233;ger d&#233;calage, j'ai d&#251; rajouter les bordures de la fen&#234;tre
    4 + (Left / 15), 30 + (Top / 15), _

Daniel

cqui789 · Answer

Le move se fait quand il est apres le StrechBlt



pour les bordures, je n'en ai pas.



Le X et le Y viennent du deplacement de la souris.



je vais essayer de neutraliser le StrechBlt, c'est une bonne idee.

Gobillot · Answer

c'est pas le Move qui a besoin de temps, c'est Visible = False
donc tu peux mettre le Visible d'abord  le Move ensuite et apr&#232;s le DoEvents.
pour le X, Y j'avais pens&#233; que les unit&#233;s &#233;taient mauvaises et donc que le Move ne se faisait pas.
d'o&#249; la question est ce que le Move se fait quand m&#234;me mais peut &#234;tre pas assez vite ?
pour la bordure m&#234;me si BorderStyle = 0 t'as au moins une bordeure de 4.

Daniel

cqui789 · Answer

C'est bien le visible qui cree des problemes.



est-tu sur de ta boucle

  Do
   Loop Until DoEvents = 0

chez moi, il genere une boucle sans fin.

Gobillot · Answer

j'ai vu &#231;a dans un exemple et j'ai &#233;t&#233; &#233;tonn&#233; que DoEvents pouvait avoir une valeur.
en faisant MsgBox DoEvents il me renvoie la valeur 1.
donc apparemment DoEvents peut prendre 2 valeurs 0 ou 1.
j'ai test&#233; l'exemple et &#231;a n'a pas boucl&#233;
j'en sais pas plus...

Daniel

Move qui move pas??

5 réponses

Discussions similaires