problème d'image qui disparaît à son déplacement
Bonjour,
Alors j'essaie de faire déplacer une image qui doit suivre le curseur de la souris. Seulement lorsque je clique sur l'image elle disparaît !
voici mon code lors de la création de ma picturebox :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
|
Dim Path As String
Path = "Image\b_jaune.png"
pictCJaune = New PictureBox()
pictCJaune.Image = Image.FromFile(Path)
pictCJaune.SizeMode = PictureBoxSizeMode.AutoSize
pictCJaune.Location = New System.Drawing.Point(5, 5)
'Associer un événement a une image
AddHandler pictCJaune.MouseDown, AddressOf SelectCouleur
AddHandler pictCJaune.MouseMove, AddressOf PositionSouris |
Voici mon code lors du déclenchement des événements:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Private Sub SelectCouleur(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
DepartSouris = MousePosition
End Sub
Private Sub PositionSouris(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
'Si le boutton gauche est appuyé
If (e.Button = MouseButtons.Left) Then
ActSouris = MousePosition
pictCJaune.Location = ActSouris
Me.TextBox1.Text = ActSouris.X
Me.TextBox2.Text = ActSouris.Y
End If
End Sub |
Je ne comprend pas comment remédier au problème et pourtant les coordonnées ont étaient vérifiés.
Merci pour votre aide. ;)