Scrolling à la souris sur un panel

Question

Salut &#224; tous !



J'esp&#232;re que mon probl&#232;me n'a pas d&#233;j&#224; &#233;t&#233; abord&#233; et r&#233;solu dans les forums. Je n'ai rien trouv&#233; &#224; ce sujet.



(Je d&#233;veloppe en Vb .NET.)



J'ai un contr&#244;le Panel dans lequel j'ai ins&#233;r&#233; un contr&#244;le PictureBox affichant une image plus large que le Panel. La fonction AutoScroll &#233;tant activ&#233;e sur ce dernier, les barres de d&#233;filement apparraissent et permettent de faire scroller l'image dans le Panel. Jusqu'ici tout va bien :)



Mais mon objectif est de permettre aux utilisateurs de faire scroller l'image en faisant un cliqu&#233;-gliss&#233; sur celle-ci, dans le Panel. L'utilisation des &#233;v&#232;nements MouseDown / MouseUp / MouseMove sur le PictureBox, alli&#233;s &#224; la propri&#233;t&#233; AutoScrollPosition du Panel m'a donn&#233; des comportements bizarres (le scrolling continue m&#234;me si le mouvement de la souris s'arr&#234;te).



Comment faire ?

crenaud76 · Answer

Pour gérer cela avec les evt MouseDown/MouseUp/MouseMove, il te faut :

1-Une variable de type booléenne accessible depuis tes trois EVT (a déclarer au niveau de la form par exemple ou Public dans un module)
2-Passer cette variable à True dans l'EVt MouseDown si le bouton utilisé correspond à ton bouton de fonction Pane
3-Passer cette variable à False dans l'EVT MouseUp
4-Faire le scroll de l'image dans l'EVT MouseMove SI ET SEULEMENT SI ta variable est à True.

Avec ces conseils, cela devrait le faire.


Christophe R.

Sicyons · Answer

C'est ce que j'ai fait :

    

Private Sub Dessin_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dessin.MouseDown

        Dessin.nPosSourisX = e.X + Panel.AutoScrollPosition.X

        Dessin.nPosSourisY = e.Y + Panel.AutoScrollPosition.Y

        bDeplacement = True

    End Sub

    Private Sub Dessin_MouseUp(ByVal sender As Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dessin.MouseUp

        bDeplacement = False

    End Sub

    Private Sub Dessin_MouseMove(ByVal sender As Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dessin.MouseMove

        Dim Delta As Point

        If (bDeplacement = True And Dessin.nZoom > 1 And e.X <> 0) Then

            Delta.X = e.X - Dessin.nPosSourisX

            Delta.Y = e.Y - Dessin.nPosSourisY

           
Panel.AutoScrollPosition = New Point(Delta.X -
Panel.AutoScrollPosition.X, Delta.Y - Panel.AutoScrollPosition.Y)

            Dessin.nPosSourisX += Delta.X

            Dessin.nPosSourisY += Delta.Y

        End If

    End Sub



Mais une fois le mouvement enclench&#233;, il va jusqu'au bout du scrolling m&#234;me si on arr&#234;te de bougerla souris !

Sicyons · Answer

D&#233;sol&#233;, le formattage de mon code a foir&#233; :   



     Private Sub Dessin_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dessin.MouseDown

        Dessin.nPosSourisX = e.X + Panel.AutoScrollPosition.X

        Dessin.nPosSourisY = e.Y + Panel.AutoScrollPosition.Y

        bDeplacement = True

    End Sub



    Private Sub Dessin_MouseUp(ByVal sender As Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dessin.MouseUp

        bDeplacement = False

    End Sub



    Private Sub Dessin_MouseMove(ByVal sender As Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dessin.MouseMove

        Dim Delta As Point

        If (bDeplacement = True And Dessin.nZoom > 1 And e.X <> 0) Then

            Delta.X = e.X - Dessin.nPosSourisX

            Delta.Y = e.Y - Dessin.nPosSourisY

           
Panel.AutoScrollPosition = New Point(Delta.X -
Panel.AutoScrollPosition.X, Delta.Y - Panel.AutoScrollPosition.Y)

            Dessin.nPosSourisX += Delta.X

            Dessin.nPosSourisY += Delta.Y

        End If

    End Sub

Scrolling à la souris sur un panel

3 réponses

Discussions similaires