Modification d'une ligne d'un datagridview via checkbox

Version imprimable

Bonjour,

J'ai un datagridview avec pls colonnes dont une contient des checkbox.

Je voudrais pouvoir changer la couleur de fond d'une ligne suivant si la checkbox de la ligne est sélectionnée ou pas.

Mais cela ne marche pas.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub DataGridView1_CurrentCellDirtyStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellDirtyStateChanged CheckBox_Etat_Change() End Sub Sub CheckBox_Etat_Change() Dim maCheck As new DataGridViewCheckBoxCell Dim maLigne As new DataGridViewRow Dim index As Integer = 0 Dim boolCell As Boolean boolCell = maCheck.InheritedState index = maCell.RowIndex If boolCell = True Then My_Frm_confAPI.DataGridView1.Rows.Item(index).DefaultCellStyle.BackColor = Color.Aqua Else My_Frm_confAPI.DataGridView1.Rows.Item(index).DefaultCellStyle.BackColor = Color.White End If End Sub
Or j'ai un message d'erreur me disant que l'index est hors limite. en effet, sa valeur est égale à '-1', mais pourquoi? je ne devrai pas récupérer l'index de la ligne ???

J'ai un peu de mal avec les datagridview donc si quelqu'un peut me dire ce qui ne va pas, ce que j'ai mal fait et/ou des conseils...

Merci d'avance !!

Bonjour.

Oula ! Ca ne marchera pas comme ça, il faut que tu t'appuies sur la currentcell du DGV si tu es dans le currentcelldirty.

Essayes cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
    Private Sub DataGridView1_CurrentCellDirtyStateChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellDirtyStateChanged
        '
        ' Ici tu filtres sur la colonne contenant le checkbox
        ' qui pilote la couleur (je l'ai fait sur le nom de la colonne
        ' mais tu peux le faire sur index ou autre ...)
        '
        If Not Me.DataGridView1.Columns(Me.DataGridView1.CurrentCell.ColumnIndex).Name = "ColorControl" Then
            Exit Sub
        End If
 
        ' Je m'assure que je suis bien sur une checkboxcell avant de caster
        If GetType(DataGridViewCheckBoxCell).IsAssignableFrom(Me.DataGridView1.CurrentCell.GetType) Then
            Dim c As DataGridViewCheckBoxCell = CType(Me.DataGridView1.CurrentCell, DataGridViewCheckBoxCell)
            ' On est en edition, donc on prend la valeur du control d'édition et non pas value
            If CBool(c.EditingCellFormattedValue) Then
                Me.DataGridView1.Rows(c.RowIndex).DefaultCellStyle.BackColor = Color.Aqua
            Else
                Me.DataGridView1.Rows(c.RowIndex).DefaultCellStyle.BackColor = Color.White
            End If
        End If
 
    End Sub

Evidemment ça ne gére la couleur que s'il y a changement de la cellule checkbox.

Donc pour le bien, je pense que tu dois aussi ajouter une mise en couleur de la ligne à l'affichage du DGV :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
    Private Sub DataGridView1_RowPrePaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPrePaintEventArgs) Handles DataGridView1.RowPrePaint
 
        ' C'est la ligne des Headers de colonnes
        If e.RowIndex < 0 Then Exit Sub
 
        ' Je m'assure que je suis bien sur une checkboxcell avant de caster
        If Not GetType(DataGridViewCheckBoxCell).IsAssignableFrom(Me.DataGridView1(Me.DataGridView1.Columns("ColorControl").Index, e.RowIndex).GetType) Then Exit Sub
 
        Dim c As DataGridViewCheckBoxCell = CType(Me.DataGridView1(Me.DataGridView1.Columns("ColorControl").Index, e.RowIndex), DataGridViewCheckBoxCell)
        If c Is Nothing Then Exit Sub
        ' subtilité de la checkboxcell dont la valeur est un objet
        If CBool(c.Value) Then
            Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Aqua
        Else
            Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
        End If
    End Sub

Mais c'est à voir.

Sinon, de bons exemples ici :
http://msdn2.microsoft.com/en-us/library/1x64c23x.aspx

PS : il faut vraiment que je le fasse cet article sur le custom de DGV :lol: !!!

Cdt.

08/04/2008, 07h49
totor1977

Olsimare, j'aurais une question par rapport à ton code :
Je viens de vb6 et j'ai tendance à déclarer les variables et objets au début des méthodes car en plein milieu, je trouve que cela devient vite illisible

Quel est le meilleur choix d'après toi ?

Par ailleurs, puisqu'on parle de datagrid, j'utilise un composant gratuit hérité de la datagrid classique : la KryptonDataGrid qui je trouve m'amène plus de possibilités .
Il y a d'ailleurs un topic ou sont indiqués certains composants gratuits (:D) intéressants (j'utilise le krypton toolkit, mygeneration, les composants gratuits de devexpress et je vais bientôt utiliser zedgraph) : http://www.developpez.net/forums/sho...d.php?t=355416
08/04/2008, 09h21
DiamonDonald

Merci olsimare, j'avais fini par arriver à un semblant de résultat justement en travaillant avec "CurrentCell" mais pas aussi bien que ce que tu viens de me montrer !!!

Je pense que je vais arriver à me débrouiller avec ça.

Encore merci.

ps : je débute avec le vb.net et les datagridview dc je pense que je reviendrai poser quelques questions plus tard.
08/04/2008, 10h08
DiamonDonald

Re,

J'ai voulu adapter ton code à mon projet mais j'obtiens une erreur que je ne comprend pas...

Dans la méthode RowPrePaint(), à la ligne suivante :

Code:

If Not GetType(DataGridViewCheckBoxCell).IsAssignableFrom(Me.DataGridView1(Me.DataGridView1.Columns("ColorControl").Index, e.RowIndex).GetType) Then Exit Sub

Cela me crée une exception "La référence d'objet n'est pas définie à une instance d'un objet".

J'ai oublié un truc? (je pense que oui mais bon...)
08/04/2008, 10h17
DiamonDonald

Bon, j'ai modifié une chose.

Je passe l'index de la colonne au lieu du nom, et cela ne me provoque plus d'exception, seulement après j'ai mon programme qui "plante" (ne répond pas, avec le sablier de la flèche windows)

Il doit y avoir un truc qu'il aime pas...:?

-----

Hum, en fait il me reboucle pls fois dans la méthode RowPrePaint(), et il n'en sort plus

-----

Non c'est ok, mystère de l'informatique, j'ai rien changé mais maintenant cela ne plante plus... 8O, tant mieux :mouarf:
08/04/2008, 10h40
DiamonDonald

Désolé, j'avais mis résolu mais en fait non...

Le programme marche que pendant un certain temps :lol:

c'est à dire que je peux utiliser mon datagridview, cocher mes cases, cela met mes lignes en bleu, enfin cela fait bien les évènements que je souhaitais. c'est au bout d'un certain temps (2 ou 3 min tout au plus) mais le datagridview ne répond plus, et je dois le redémarrer le programme...

ce qui est pas vraiment cool :(

Une idée de la cause du pourquoi du comment ?

Une précision, cela se produit si je n'ai pas sélectionné de checkbox dans mon datagridview, alors que si une checkbox est cochée, cela ne plante pas.
Verdict docteur???
08/04/2008, 23h42
olsimare

Bonjour.

Non, je ne vois pas ... je pensai que peut-être le fait de positionner le .DefaultCellStyle.BackColor redéclencher l'event (car je ne fais pas ce genre de truc dans le rowprepaint habituellement) mais ça n'est pas le cas.

Tu déclencherais pas la boucle ailleurs des fois avec une refresh ou un truc comme ça ?

Pour répondre à totor1977 : le fait de déclarer les variables dans les blocs if et autres limite leur portée. Et si la variable est dédiée à ce seul bloc, ça évite donc de pouvoir la modifier en dehors de celui-ci.
A noter, que cela ne sera vrai qu'avec l'option explicit évidemment.
Donc personnellement, cela me semble plus judicieux.

Cdt.