[VB.NET] Limiter le déplacement d'un objet

Bonjour tout le monde,

j'ai besoin de votre aide pour un petit problème qui me casse la tête depuis des heures :aie: , je vous explique au moindre détail : j'ai un Bouton que je déplace avec l'événement MouseDown et MouseMove à l'intérieur d'un Panel et j'ai beau essayé de limiter son déplacement pour qu'il ne puisse plus sortir des limites du Panel mais j'y arrive pas, ou plutôt je bloque à un certain point, voici le code que j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Public Class Form1   Dim M As Point   Private Sub Button1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown   If e.Button = Windows.Forms.MouseButtons.Left Then   M = e.Location   End If   End Sub   Private Sub Button1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove   If ((Button1.Location.Y < (0)) Or ((Button1.Location.Y > (0)) Or (Button1.Location.X < (0)) Or (Button1.Location.X > (113))) And (e.Button = Windows.Forms.MouseButtons.Left)) Then   Button1.Location += New Point(0, 0)     Else   If (e.Button = Windows.Forms.MouseButtons.Left) Then   Button1.Location += e.Location - M   End If   End If   End Sub   End Class

---

Merci pour votre aide et à bientôt :P !

Bonsoir,
voici une première approche avec la propriété Clip du curseur dont on limite le déplacement à la surface du panel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim M As Point Private Sub Button2_MouseDown(sender As Object, e As MouseEventArgs) Handles Button2.MouseDown   M.X = MousePosition.X - DirectCast(sender, Button).Left M.Y = MousePosition.Y - DirectCast(sender, Button).Top   End Sub   Private Sub Button2_MouseMove(sender As Object, e As MouseEventArgs) Handles Button2.MouseMove   If e.Button = MouseButtons.Left Then Cursor.Clip = Me.Panel1.RectangleToScreen(Me.Panel1.ClientRectangle)   DirectCast(sender, Button).Left = MousePosition.X - M.X DirectCast(sender, Button).Top = MousePosition.Y - M.Y Else Cursor.Clip = Nothing End If End Sub

---

Salut chrismonoye,

Je n'ai pas bien compris ton exemple, c'est en quelque sorte ce que je cherche à faire seulement je dois préciser les limites du bouton parce que là il limite le déplacement du curseur (une fois le MouseDown et MouseMove enclanchées) ! Merci de bien vouloir m'aider :P

Bonsoir,
pourquoi utiliser le curseur ?.
Dans ce contexte, parce qu’il est intimement lié au Bouton dans ses déplacements et qu'il offre des propriétés .Net Framework, justement optimisées pour les déplacements.
Ensuite pour que le Bouton reste entièrement dans le Panel, il suffit de restreindre le champ d'action du Curseur, qui correspond pour le moment au rectangle de la zone cliente du Panel.
Il faut donc lui appliquer les correctifs suivants :
- Déplacer son origine à l'intérieur du Panel des valeurs X et Y de la Location du point réactif du Curseur sur le Bouton.
- Réduire ses dimensions des valeurs de celles du Bouton.

Code:

---

1 2 3 4 5 6

Dim rect As New Rectangle rect = Me.Panel1.ClientRectangle rect.X += ptC.X rect.Y += ptC.Y rect.Width -= Button1.Width rect.Height -= Button1.Height

---

Ce qui donne globalement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Dim ptM As Point Dim ptC As Point   Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown   ptM.X = MousePosition.X - DirectCast(sender, Button).Left ptM.Y = MousePosition.Y - DirectCast(sender, Button).Top   ptC = e.Location   End Sub   Private Sub Button1_MouseMove(sender As Object, e As MouseEventArgs) Handles Button1.MouseMove   If e.Button = MouseButtons.Left Then Dim rect As New Rectangle rect = Me.Panel1.ClientRectangle rect.X += ptC.X rect.Y += ptC.Y rect.Width -= Button1.Width rect.Height -= Button1.Height   Cursor.Clip = Me.Panel1.RectangleToScreen(rect)   DirectCast(sender, Button).Left = MousePosition.X - ptM.X DirectCast(sender, Button).Top = MousePosition.Y - ptM.Y Else Cursor.Clip = Nothing End If End Sub

---

ça a fonctionné ! :P Merci "chrismonoye" ! c'est exactement ce que je cherchais je vais essayer de comprendre le fonctionnement du code ! un grand merci ;)