Discussion :

[mactwist69]

ReBonjour,

Un petit rappel du sujet, je souhaite que lorsque la souris passe au dessus d'une colonne de mon DataGridView, celle-ci soit Selected (highlighted - surligné en bleu).

Voici le code obtenu et corrigé qui marche presque:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim pt As New Point
        Dim hti As DataGridView.HitTestInfo
        Try
            pt = Me.DGV_echantillon.PointToClient(MousePosition)
        Catch ex As Exception
            Return
        End Try
        hti = Me.DGV_echantillon.HitTest(pt.X, pt.Y)
 
        If hti.Type = DataGridViewHitTestType.Cell Then
 
            Me.DGV_echantillon.Columns(hti.ColumnIndex).Selected = True
 
        End If

Je dis qu'il marche presque car il sélectionne la colonne mais lorsque la souris reste au dessus du DGV, et que le change de colonne, il ne change rien. L'évènement se déclenche bien et les valeurs (comme hti.ColumnIndex) sont bonne.

Pour que ca fonctionne il faut que la souris "sorte" du DGV et reviens, à ce moment il veut bien.

J'ai bien essayer ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  Dim pt As New Point
        Dim hti As DataGridView.HitTestInfo
        Try
            pt = Me.DGV_echantillon.PointToClient(MousePosition)
        Catch ex As Exception
            Return
        End Try
        hti = Me.DGV_echantillon.HitTest(pt.X, pt.Y)
 
        If hti.Type = DataGridViewHitTestType.Cell Then
            If Not hti.ColumnIndex = test_column Then
                Me.DGV_echantillon.ClearSelection()
 
                If Not test_column = -1 Then
                    Me.DGV_echantillon.Columns(test_column).Selected = False
                End If
                Me.DGV_echantillon.Columns(hti.ColumnIndex).Selected = True
                test_column = hti.ColumnIndex
            End If
        End If

Car je pense que le problème viens du DGV.Columns(index).selected = true.

Mais là je bloque un peu. Si quelqu'un a une idée.

Merci d'avance.

[methylene]

Es-tu sur que l'argument Mouse_Hover est le mieux adapté ?

J'aurais plus vu un Mouse_move perso.

Autre petite question, tu souhaites, si je comprends bien, que quand ta souris arrive sur une colonne la colonne en quetsion soit sélectionnée, sans click de la souris.

De plus si tu ne bouge plus ta souris, et que ta colonne est sélectionnée, et que tu viens à changer de colonne via ton clavier (les flèches droite ou gauche en l'occurrence), la colonne où la souris est présente se déselectionne, et la colonne ayant le "focus" se sélectionne, c'est bien cela ?

[chrismonoye]

J'aurais plus vu un MouseMove perso.

moi aussi ou "CellMouseMove".
Mais niveau performance!!!....
Un "CellMouseEnter" est mieux adapté.
Par contre, sous vb 2008, j'ai dû adapter le code pour avoir le résultat voulu.

[methylene]

Pour ajouter que chez moi avec un simple datagridview, ton code ne fonctionne pas, dans mouse_hover comme dans mouse_move.

[methylene]

Bonjour,

J'ai testé ton code sur un projet que j'ai créé, dis moi si c'est ce que tu recherche.


Dans le Load :

Code :

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

1
2
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullColumnSelect
        DataGridView1.MultiSelect = False

Ensuite utilise l'évènement CellMouseMove et mets y ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Private Sub DataGridView1_CellMouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseMove
 
        Dim pt As New Point
        Dim hti As DataGridView.HitTestInfo
 
        pt = Me.DataGridView1.PointToClient(MousePosition)
        hti = Me.DataGridView1.HitTest(pt.X, pt.Y)
 
        If hti.Type = DataGridViewHitTestType.Cell Then
 
            Me.DataGridView1.Columns(hti.ColumnIndex).Selected = True
 
        End If
 
    End Sub

Voilà si j'ai bien compris ce que tu cherchais, cela fonctionne niquel. Le problème venait juste de l'évènement.

Bonne continuation.

[chrismonoye]

Bonjour,
après initialisation du DGV, dans mon test, pour un DGV neuf, j'ai dû ajouter les lignes for ..... next suivantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        For indexCol As Integer = 0 To DGV_echantillon.Columns.Count - 1
            DGV_echantillon.Columns(indexCol).SortMode = DataGridViewColumnSortMode.NotSortable
            'DGV_echantillon.Columns(indexCol).HeaderCell.SortGlyphDirection = SortOrder.None
        Next
        '*** "Impossible de définir le SelectionMode du contrôle DataGridView à ColumnHeaderSelect 
        '     tant qu'il dispose d'une colonne avec SortMode définie à DataGridViewColumnSortMode.Automatic."
        '     D'où la propriété ci dessus pour modifier le mode de tri des colonnes.
        DGV_echantillon.SelectionMode = DataGridViewSelectionMode.ColumnHeaderSelect
        ''*** A tester le code qui suit. Il y a quelques différences au plan de sélection d'une cellule unique,
        ''    et au plan du déplacement avec les flèches. Voir ce qui convient le mieux.
        'DGV_echantillon.SelectionMode = DataGridViewSelectionMode.FullColumnSelect
        'DGV_echantillon.MultiSelect = False

Puis utiliser "CellMouseEnter" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Private Sub DGV_echantillon_CellMouseEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_echantillon.CellMouseEnter
 
        DGV_echantillon.ClearSelection()
 
        Dim pt As New Point
 
        Dim hti As DataGridView.HitTestInfo
        Try
            pt = Me.DGV_echantillon.PointToClient(MousePosition)
        Catch ex As Exception
            Return
        End Try
        hti = Me.DGV_echantillon.HitTest(pt.X, pt.Y)
 
        If hti.Type = DataGridViewHitTestType.Cell Then
            Me.DGV_echantillon.Columns(hti.ColumnIndex).Selected = True
        End If
 
    End Sub

chez moi la différence d'utilisation proceseur entre "CellMouseMove" et "CellMouseEnter" passe de 20 à 2%

[mactwist69]

Bonjour,

J'ai testé ton code sur un projet que j'ai créé, dis moi si c'est ce que tu recherche.


Dans le Load :

Code :

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

1
2
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullColumnSelect
        DataGridView1.MultiSelect = False

Ensuite utilise l'évènement CellMouseMove et mets y ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Private Sub DataGridView1_CellMouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseMove
 
        Dim pt As New Point
        Dim hti As DataGridView.HitTestInfo
 
        pt = Me.DataGridView1.PointToClient(MousePosition)
        hti = Me.DataGridView1.HitTest(pt.X, pt.Y)
 
        If hti.Type = DataGridViewHitTestType.Cell Then
 
            Me.DataGridView1.Columns(hti.ColumnIndex).Selected = True
 
        End If
 
    End Sub

Voilà si j'ai bien compris ce que tu cherchais, cela fonctionne niquel. Le problème venait juste de l'évènement.

Bonne continuation.

Et bien c'est exactement ça !

Le problème avec l'évènement Mouse_Enter est le même qu'avec l'évènement Mouse_hover....

Si j'amène la souris sur le DGV, il sélectionne bien une colonne, mais si après, je déplace la souris entre les colonnes rien ne se passe. Il faut ressortir la souris du DGV et revenir.

Alors que avec Mouse_Move, c'est interactif !

Merci à tous les deux pour vos contributions en tout cas !