Probleme pour faire glisser une picture box a la sourisRésolu

Question

Bonjour,

quelqu'un pourrait 'il m'aider pour r&#233;soudre le probl&#232;me suivant. Lorsque je fais glisser une picture box avec l'&#233;v&#233;nement mouse move la picture box apparait &#224; deux positions diff&#233;rentes en clignotant.Voila mon code:

Sub pictureBox_mouseMove(
ByVal sender 
As 
Object, 
ByVal e 
As System.Windows.Forms.MouseEventArgs) 
Handles cadre.MouseMove, rectangle.MouseMove



   If isDrag 
Then
      cadre.Location = e.Location
      cadre.Refresh()
   
End 
If
End 
Sub

merci.

Utilisateur anonyme · Accepted Answer

Bijour,

Utilise plut&#244;t:

Private PtClick As System.Drawing.Point
Private Sub PictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Cadre.MouseDown, Rectangle.MouseDown  If e.Button Windows.Forms.MouseButtons.Left Then PtClick e.Location
End Sub
Private Sub PictureBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Cadre.MouseMove, Rectangle.MouseMove
  If e.Button = Windows.Forms.MouseButtons.Left Then
    Dim PictureBox As System.Windows.Forms.PictureBox = CType(sender, System.Windows.Forms.PictureBox)
    PictureBox.Location = New System.Drawing.Point(PictureBox.Left + (e.X - PtClick.X), PictureBox.Top + (e.Y - PtClick.Y))
  End If
End Sub

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

treson · Answer

Merci pour ta r&#233;ponse Kenji,
ca marche!
encore merci

Probleme pour faire glisser une picture box a la souris

2 réponses

Discussions similaires