Scroll dans plusieurs VBFLEXGRID [Résolu]

Signaler
Messages postés
78
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
6 mars 2020
-
Notpa
Messages postés
78
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
6 mars 2020
-
Bonjour,

Mon appli a plusieurs Flexgrid, 3 par exemple. Quand je fais un scroll avec la molette de la souris, la grille sélectionnée défile bien, mais les autres restent figées.

Ma question est simple : comment faire défiler les autres grilles quand je fais un Scroll sur l'une d'entre-elles ? Par exemple, si le scroll sur Grille1 descend de 5 lignes, je voudrais que les autres descendent de 5 lignes aussi.

C'est possible ?

Merci d'avance !

Notpa

2 réponses

Messages postés
2098
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
25 mars 2020
89
Bonsoir !
La première FlexGrid doit avoir une barre verticale de Scroll et les 2 autres non .
Maintenant comment faire ?
Supposons que les 3 FlexGrid affichent chacune 5 lignes à l'écran . Chacune des FleXGrid affichent les lignes 1 à 5 au départ .
Maintenant tu scrolles la première FlexGrid et tu affiches les lignes 12 à 16 . Il faut juste que les 2 autres FlexGrid affichent les lignes 12 à 16

En un mot tu scrolles sur la première et les 2 autres affichent les mêmes lignes que la première .
Regarde la propriété TopIndex ou TopRow pour savoir l'index de la première ligne affichée dans la première FlexGrid ( pas sûr du nom de la propriété : Vb6 est loin pour moi )


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
Messages postés
78
Date d'inscription
dimanche 13 janvier 2019
Statut
Membre
Dernière intervention
6 mars 2020
1
Hello VB65,

Merci de répondre. Désolé, mais j'ai dû m'absenter, d'où mon retard à répondre.

Ça marche ! J' ai codé pour la première grille :
Private Sub grille1_scroll()
grille2.TopRow = grille1.TopRow
grille3.TopRow = grille1.TopRow
End Sub 


Et là, toutes les grilles défilent !

Merci du coup de main !

Je passe en résolu.

Notpa