Discussion :

[guatto]

Bonjour tout le monde,

j'ai besoin de votre aide pour un petit problème qui me casse la tête depuis des heures , 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[chrismonoye]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guatto]

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

[chrismonoye]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guatto]

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