Scroll synchronisé de 2 MSFlexGrid
Bonjour,
j'ai 2 MSFlexGrid côté à côté, avec 1 scrollbar sur la Grid de gauche (PanneauLeft) et pas celle de droite (PanneauRight).
Je veux synchroniser le scroll, j'écris donc :
Code:
1 2 3
| Private Sub PanneauLeft_Scroll()
PanneauRight.TopRow = PanneauLeft.TopRow
End Sub |
Ainsi quand je scrolle la MSFlexgrid de gauche, celle de droite doit s'aligner automatiquement.
Le problème est :
- si PanneauRight.Scrollbars = flexScrollBarVertical , cela fonctionne bien mais j'ai une scrollbar dans PanneauRight
- si PanneauRight.Scrollbars = flexScrollBarnone , je n'ai plus de scrollbar dans PanneauRight mais il n'y pas alignement non plus. En gros .topRow reste à 1.
Je sais que je peux définir un event PanneauRight_Scroll mais ça ne m'intéresse pas. Je ne veux pas de scrollbar.
Du coup, j'ai réussi à pallier au problème en écrivant :
Code:
1 2 3 4 5
| Private Sub PanneauLeft_Scroll()
PanneauRight.ScrollBars = flexScrollBarVertical
PanneauRight.TopRow = PanneauLeft.TopRow
PanneauRight.ScrollBars = flexScrollBarNone
End Sub |
Est-ce que c'est un comportement normal ou j'ai raté quelque chose ??
Sergio