Events d'un Binding Navigator

Version imprimable

Bonjour,

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

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

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:

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:

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 ?

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:

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 ?

11/09/2013, 00h52
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.

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:

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:

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:

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