Discussion :

[Golzinne]

Bonjour,

Comment savoir quelle est la première cellule qui s'affiche en haut à gauche dans un datagrid ? et ce indépendamment de ma cellulle sélectionnée. Par contre, si je scroll dans une direction, cette cellulle change, même si ma current cell est inchangée

Il ne 'sagit pas de CurrentCell, ni de firstVisibleColumn …

[neguib]

Par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private myFirstVisibleCellLocation As Point
 
 '... Je recupère le (X,Y) de la première celllule visible du datagrid
 myFirstVisibleCellLocation = Me.MyDataGrid.GetCellBounds(0, 0).Location
 '... je recupère la ligne et colonne qui correspond dans la source
 Dim hi As DataGrid.HitTestInfo
 hi = Me.MyDataGrid.HitTest(Me.myFirstVisibleCellLocation)
 Dim MyColumn As Integer = hi.Column
 Dim myRow As Integer = hi.Row
 '...

[Golzinne]

neguib a écrit

En fait, c'est assez simple, puisque que tu dispose de la proprité Item du Datagrid qui te renverra toujours les cellules visibles à l'ecran

En fait si j'écris

Code :

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

me.lblMsg.text = me.dataGrid1.Item(0,0)

il me retourne invariablement le contenu de ma cellule (0,0), même si celle-ci est devenue invisible du fait d'un scroll.

Pour ce qui est du hitTestInfo, ça vise également une cellule particulière. Ce que je cherche, c'est à tout moment déterminer de quelle ligne et de quelle colonne de ma source, est la cellule en haut à gauche de mon datagrid. Exemple :

datasource
ligne 1: arbre ; vert ;150
ligne 2: fruit; rouge;300
....

Datagrid à l'ouverture, je vois
arbre ; vert ;150
fruit; rouge;300
...

Je clique une fois sur scroll vertical vers le bas, je vois
fruit; rouge;300
...

Je voudrais qu'avant le click sur le scrollBar la valeur de retour soit "arbre" et qu'après le click, ce soit "Fruit"

[neguib]

Je vois que tu n'as pas su utiliser mon code
je vais donc te mâcher le boulot
1. Tu as besoin de reperer dès le depart la localisation de la cellule(0,0)
Donc

Code :

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

1
2
3
4
5
6
7
8
'declarer le repère
Private refLocation As Point
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '...
    'initialiser le repère
    Me.refLocation = Me.MonDataGrid.GetCellBounds(0, 0).Location
 
End Sub

2. Ensuite, quelquepart tu as besoin de recuperer la cellule actuellement visible en haut à gauche (donc c'est toujours la même localisation t'es d'accord )

Code :

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

1
2
3
Private Sub MonBouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonBouton.Click
    MsgBox(Me.MonDataGrid.HitTest(Me.refLocation).ToString())
End Sub

Tu verras bien si la valeur ne change pas après un scroll vers le bas

Bon j'espère que cela te paraît plus clair maintenant (d'ailleurs je suis sûr de moi parce que j'ai testé le code donné )

J'ai viré mon intro foireuse au post precedent et qui t'as certainement embrouillé

[Golzinne]

C'est beeeaaauuu

Tu vois, je suis pas si bête mais il suffit d'expliquer longtemps !

je n'ai pas trouvé le smilies avec des oreilles d'ânes (ouf)

Il faut dire à ma décharge que tu as effectivement été dans les détails et qu'en plus, c'est plus simple que le code précédent.

En tous cas, un tout grand merci et