Deplacement PictureBoxRésolu

Question

Bonjour q'qun aurait t'il le code complet ca fait 4 H que je suis dessus et je n'arrive pas a le faire fonctionner, ma picturebox disparait des que je passe la souris dessus Merci pour la reponse Picture1_MouseMove (...) if INT_X <> X then Picture1.left = picture1.left + (X - int_X) end if if INT_Y <> Y then Picture1.top = picture1.top + (Y - int_Y) end if int_X = X int_Y = Y end sub

Gobillot · Accepted Answer

Salut,

il faut tester le bouton pour savoir &#224; quel moment on d&#233;place,

et &#224; quel moment on arr&#234;te.





Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then

       Picture1.Left = Picture1.Left + (X - int_X)

       Picture1.Top = Picture1.Top + (Y - int_Y)

       Else

       int_X = X

       int_Y = Y

       End If

End Sub


Daniel

Utilisateur anonyme · Answer

Private Sub Form_Load()

     Me.KeyPreview = True

 End Sub

 

 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

     With Picture1

         Select Case KeyCode

            Case
vbKeyUp:       .Top = .Top - 200

             Case vbKeyDown:     .Top = .Top + 200

             Case vbKeyLeft:     .Left = .Left - 200

             Case vbKeyRight:    .Left = .Left + 200

         End Select

     End With

 End Sub

cs_patoch · Answer

Bonjour 

Le code de 278023  Gobillot (Daniel) fonctionne un petit peu je peut bouger la PictureBox de 1 Cm et aussitot elle disparait pourquoi ?

par contre le code de =608437 blinix123 ne fonctionne pas du tout

pour r&#233;sum&#233; je voudrais d&#233;placer ma PictureBox ou je veut dans ma Form

precision : ma PictureBox a une image charg&#233; en memoire .Si vous avez encore la patiente de m'aider je suis preneur
Merci

Gobillot · Answer

Salut,

tu dois devoir bouger partout et m&#234;me en dehors de la forme.

v&#233;rifie que le scalemode de la forme et celui de la picturebox soit de la m&#234;me unit&#233;.

Daniel

Gobillot · Answer

Remarque,


si les unit&#233;s sont en Twips, et la PictureBox en pixels, &#231;a va bouger
quand m&#234;me mais tr&#232;s lentement. si c'est l'inverse &#231;a va bouger
beaucoup trop vite.


ou alors faut convertir les unit&#233;s.




une autre m&#233;thode qui utile les API:remplace Form_MouseMove par Picture1_MouseMove

Daniel

cs_patoch · Answer

Salut Daniel 

J'ai fait le test sur une feuille vierge ca fonctionne et sur la mienne ca fonctionne pas et il me demande de declare les variables     int_X  et int_Y,dans ma feuille j'ai des declarations deja ca viendrais pas de la ?


Dim texte As String
Dim Lg As Integer
Dim max As Integer
Dim i As Integer

Gobillot · Answer

variables pas d&#233;clar&#233;es hum c'est pas bon !!

doit manquer option explicit

le mieux c'est de les d&#233;clarer en Single.

si pas option explicit, et pas d&#233;clar&#233;es, elles sont prises en Variant,

et ....

le probl&#233;me, c'est quelles sont prises en locale, 

donc elles perdent leur valeur, et &#231;a donne des r&#233;sultats bizarre.



Option Explicit



Dim int_x As Single

Dim int_y As Single

Dim texte As String

Dim Lg As Integer

Dim max As Integer

Dim i As Integer


Daniel

cs_patoch · Answer

J'ai trouv&#233; c'etait bien ScalMode , il fallait que je le mette sur Pixel   

Merci Daniel

Utilisateur anonyme · Answer

Maieuuuh, il marche tr&#232;s bien mon code, tu fais une picturebox et elle bouge avec les felche directionnelles du clavier !!!!! ^^

Deplacement PictureBox

9 réponses

Discussions similaires