Discussion :

[noftal]

Bonjour,

J'ai créé un Binding Navigator (BN) pour un Datagridiew (DG)

tout d'abord, je l'ai initialisé comme ceci :

Code :

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

1
2
3
4
5
6
 'création binding entre DG et BN
' DGBindingSource a été créé dans le designer
        DGBindingSource.DataSource = DG.DataSource
        Me.BN.BindingSource = DGBindingSource
        CurMa_DG = CType(Me.BindingContext(Me.dtv_DG), CurrencyManager)
' dtv_DG est un dataview du contenu de DG créé dans le designer

Pour naviguer d'une ligne à l'autre en utilisant le BN, je donne la possibilité à l'utilisateur d'utiliser l'un des 3 méthodes suivantes :
- les boutons de BN
- les flèches du clavier
- la souris.

Pour les boutons du BN, cela donne ceci (par exemple pour aller à la ligne suivante) :

Code :

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

1
2
3
4
5
6
7
8
9
   Private Sub BN_MoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BN_MoveNextItem.Click
        If CurMa_DG.Position < CurMa_DG.Count - 1 Then
            CurMa_DG.Position += 1
            DG.Rows(CurMa_DG.Position).Selected = True
            Me.DG.CurrentCell = DG.Rows(CurMa_DG.Position).Cells(1) 'utile pour mettre à jour l'identité du CurrentRow
' la ligne suivante me permet de gérer le scroll du DG à bon escient sachant que mon cadre n'affiche que 10 lignes.
            Me.DG.FirstDisplayedScrollingRowIndex = Math.Min(Math.Max(Me.DG.FirstDisplayedScrollingRowIndex,CurMa_DG.Position - 9), CurMa_DG.Position)
        End If
    End Sub

Pour le flèches du clavier, cela donne ceci :

Code :

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

1
2
3
4
5
6
7
8
Private Sub DG_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DG.KeyUp
            'séléctionne toute la ligne active
            Me.DG.CurrentRow.Selected = True
            Me.DG.CurrentCell = Me.DG.CurrentRow.Cells(1)
            CurMa_DG.Position = DG.CurrentRow.Index
            BN_PositionItem.Text = CurMa_DG.Position + 1
 
End Sub

La gestion par les boutons fonctionne parfaitement.
En revanche, la gestion par la souris ou par le clavier fonctionne correctement pour la sélection des lignes et pour la mise à jour du TextBox BN_PositionItem, mais les boutons suivant restent grisés :
- MoveFirst et MovePrevious si je suis sur la première ligne et que je sélectionne une ligne suivante
- MoveLast et MoveNext si je suis sur la dernière ligne et que je sélectionne une ligne précédente.

J'ai dû rater un truc, mais je ne vois pas trop quoi d'autant que j'ai mis des espions sur
- CurMa_DG.Position
- DG_CaveListeContenu.CurrentRow.Index

ce qui m'a permis de vérifier la cohérence de ces valeurs par rapport à l'affichage.

Pourquoi donc :
- MoveFirst et MovePrevious restent grisés alors que CurMa_DG.Position>1
- MoveLast et MoveNext restent grisés alors que CurMa_DG.Position<CurMa_DG.Count-1 ?

Quelqu'un voit-il une explication ?

[noftal]

J'ai cherché toute la journée et j'ai trouvé une piste d'explication mais pas la solution pour y remédier.

En effet j'ai testé un code qui ferait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Private Sub BN_MoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BN_MoveNextItem.Click
 
Call MySub()
 
End Sub
 
...
Private Sub DG_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DG.KeyUp
 
Call MySub()
 
End Sub
 
'MySub est une procédure commune aux 2 événements qui gère le changement de ligne dans le DG

Le fonctionnement est similaire à mon premier post :
- Le premier appel de MySub fonctionne correctement et les boutons du BN se grisent et se dégrisent à bon escient.
- Le deuxième appel de MySub fonctionne correctement mais les boutons du BN restent grisés (en fait d'autres tests m'ont permis de montrer que tout se passe comme si CurMa_DG.Position était bloqué à la position précédente)

Donc cette façon de coder ne résout pas le pb...

...MAIS...

montre que le fonctionnement de MySub n'est pas le même selon d'où cette procédure est appelée.

Je suspecte donc qu'il s'agit d'un pb de lien parent-enfant entre la procédure appelante et la procédure appelée.

Est-ce que cela vous aide à y voir plus clair dans la résolution de mon problème ? A défaut, où puis-je trouver un tuto expliquant comment régler ces problème de liens parent-enfant ?

[Graffito]

A partir du moment ou le BindingNavigator est lié au bindingsource du DataGridView (BN.BindingSource = DGBindingSource), pas besoin de gérer les events du BindingNavigator.

Les actions liées au changement de ligne dans le DGV doivent être exécutées depuis l'event RowEnter du DGV.

[noftal]

Merci Graffito pour ta réponse.

A peu près au même moment où tu me répondais je trouvais le coeur de la solution (concernant la non mise à jour de l'apparence des boutons du BN lorsque je passe par le clavier ou la souris pour naviguer dans le DG) :

Il faut en fait écrire :

Code :

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

CurMa_DG = CType(Me.BindingContext(DGBindingSource), CurrencyManager)

En revanche, je ne suis pas convaincu par l'event RowEnter et ce n'est pas faute d'avoir exploré ta piste. Le pb est que les événements Click de MoveNext, MoveLast, MovePrevious, MoveFirst ne déclenche pas en soi l'événement RowEnter du DG. J'ai d'ailleurs découvert à mes dépens que la mise à jour de la position du CurrencyManager se fait bien automatiquement lorsque l'un de ces 4 événements est déclenché, mais uniquement après le End Sub associé.
Moyennant adaptation de mon code, j'ai donc pu régler mon problème.

Exemple pour l'événement KeyUp du DG :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Sub DG_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DG_CaveListeContenu.KeyUp
        Dim index As Integer
        Dim firstscrollindex As Integer
 
        index = Me.DG.CurrentRow.Index
        firstscrollindex = Min(Me.DG.FirstDisplayedScrollingRowIndex, index)
        BN_PositionItem.Text = index + 1
        Me.CurMa_DG.Position = index
        Me.DG.Rows(index).Selected = True
        Me.DG.CurrentCell = Me.DG.Rows(index).Cells(1)
        Me.DG.FirstDisplayedScrollingRowIndex = firstscrollindex
 
    End Sub

et pour MoveNext :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub BN_MoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BN_MoveNextItem.Click
        Dim index As Integer
        Dim firstscrollindex As Integer
 
        index = CurMa_DG.Position + 1
        firstscrollindex = Min(Max(Me.DG.FirstDisplayedScrollingRowIndex, index - 9), index)
        Me.DG.Rows(index).Selected = True
        Me.DG.CurrentCell = Me.DG.Rows(index).Cells(1)
        Me.DG.FirstDisplayedScrollingRowIndex = firstscrollindex
 
 End Sub