Continuer le panel scroll en arrivant aux bords

**zebrette** · 28/03/2011, 22h46

Bonsoir,

dans un form, J'ai un panel en mode "autoscroll" sur lequel l'utilisateur peut faire glisser des controls (des labels en gros).

Je voudrais que lorsque l'utilisateur approche le label d'un des bords du panel, celui ci scroll automatiquement dans la direction approprié, et si le panel est au maximum du scroll, qu'il grandisse, prolongeant le scroll presque indéfiniment...

j'ai beau chercher, je ne trouve pas d'exemple probant; peut être dois-je utiliser un autre type de container que le panel?

merci de votre aide,

Zebrette.
(petite image en pj)

**zebrette** · 29/03/2011, 13h22

Je vais peut être faire plus simple:

Ou puis je trouver une documentation qui explique les mécanismes (properties, events, sub & function)et les objets (scroll bar, scrollable controls) relatifs à un scroll?

zebrette

**zebrette** · 31/03/2011, 11h30

Alors en fait c'est plutôt directe la méthode que j'ai trouvé, je ne sais ni si c'est le meilleur moyen, ni si c'est dans les règles de l'art mais bon:

prendre un form avec un Panel, Panel1
AutoScroll = true
AutoScrollMargin = (80,80)
AllowDrop = true

ajouter 3 boutons (pour le test)
un bouton qui sera fix et deux qui pourront bouger sur le form;
pour activer le drag des bouton on ajoute la sub:

Code :

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

1
2
3
4
5
6
7
8
 
    Private DxDy As Point
    Private ClickedButton As Control
    Private Sub Buttons_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown, Button2.MouseDown
        ClickedButton = sender
        DxDy = New Point(ClickedButton.PointToClient(MousePosition))
        DoDragDrop(ClickedButton, DragDropEffects.Move)
    End Sub

maintenant dans le DragOver event du panel

Code :

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

1
2
3
4
 
    Private Sub Panel1_DragOver(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel1.DragOver
        ClickedButton.Location = Panel1.PointToClient(MousePosition) - DxDy
    End Sub

ici on a deux bouton qui peuvent glisser sur le panel pendant le runtime; maintenant si on veut les déplacer au dela de la taille du panel en provoquant le scroll (mon problème de départ) il faut ajouter ses lignes dans le handler du DragOver

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
 
    Private Sub Panel1_DragOver(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel1.DragOver
        ClickedButton.Location = Panel1.PointToClient(MousePosition) - DxDy
 
'Si la souris est au bord du panel:
'attention ici il faut être dans la AutoScrollMargin
'ie Panel1.ClientSize.Width - AutoScrollMargin
        If Panel1.PointToClient(MousePosition).X > Panel1.ClientSize.Width - 80 Then
                'Incrément du horizontal scroll
                Panel1.HorizontalScroll.Value += 20
                'pause sur le thread sinon le scroll s'emballe très loin
                Threading.Thread.Sleep(80)
        End If
 
    End Sub

là dessus, libre à vous de rajouter le même code pour faire un 'scrollback' vers la gauche et scroll haut/bas
Pour ma part j'ai aussi ajouté une marge plus petite plus prêt du bord où le scroll accélère

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        If Panel1.PointToClient(MousePosition).X > Panel1.ClientSize.Width - 80 Then
            If Panel1.PointToClient(MousePosition).X > Panel1.ClientSize.Width - 30 Then
                'Rapide
                Panel1.HorizontalScroll.Value += 40
                Threading.Thread.Sleep(50)
            Else
                'Plus Lent
                Panel1.HorizontalScroll.Value += 20
                Threading.Thread.Sleep(80)
            End If
        End If