Checkbox dans le header du datagridview

Version imprimable

Bonjour,

j'ai essayer de mettre ce code dans l'événement cellpainting du datagridview pour avoir un header de type checkbox
Code:

1 2 3 4 5 6 7 dim chkBox as checkbox = New CheckBox() Dim rect As Rectangle = Me.DataGridView2.GetCellDisplayRectangle(0, -1, True) chkBox.Size = New Size(18, 18) Dim positionChk As Point = New Point(rect.Location.X + 14, rect.Location.Y + 10) chkBox.Location = positionChk Me.DataGridView2.Controls.Add(chkBox)
Comment je peux récupérer la valeur booléen si la case à cocher du header est cocher ou décocher ?
Merci d'avance.

Bonjour

Tu peux essayer comme cela
Code:

1 2 3 4 5 6 Dim value As Boolean Dim cbox As CheckBox cbox = DirectCast(DataGridView1.Controls.Item(n), CheckBox) ' ici il faut que tu remplace n par le numéro de ta checkbox dans la liste des controles (normalement c'est 2 et plus car 0 et 1 sont pris par HScrollBar et VScrollBar) value = cbox.CheckState MsgBox(value.ToString)
Si tu peux nommer ta checkbox c'est mieux :

ajoute, après l'avoir créé

Code:

chkBox.Name = "cBox1"

et appelle

Code:

cbox = DirectCast(DataGridView1.Controls.Item("cBox1"), CheckBox)

Sincèrement

21/11/2019, 09h43
elinfo

Bonjour ,

Merci d'abord pour votre réponse , mais le checkbox.checkState retourne toujours la valeur 'False' même si la case est cocher .
J'ai mis le code dans l'événement 'cellpainting' et j'affiche le message sur l'événement 'cellClick' du datagridview.
21/11/2019, 10h20
Delaney

Bonjour,

J'ai testé le code en l'associant à un bouton et cela fonctionne, quand je clique sur le bouton, il renvoie bien true si la case est cochée et false sinon. Cela vient peut-être de l'évènement cellclick. je vais tester ça.

sincèrement

Bonjour,

j'ai aussi testé en mettant le code dans l’événement cellclick et cela fonctionne aussi. (attention moi j'ai DataGridView1 et non DataGridView2 comme toi.

voici mon code complet testé (j'ai un bouton et un datagridview avec 2 colonnes) :

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
25
26
27
28
29
30
31
 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        DataGridView1.Rows.Add() 'c'est juste pour avoir plusieurs cases et les tester
        DataGridView1.Rows.Add()
End Sub
 
Private Sub DataGridView1_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
        Dim chkBox As CheckBox = New CheckBox()
        Dim rect As Rectangle = Me.DataGridView1.GetCellDisplayRectangle(0, -1, True)
        chkBox.Size = New Size(18, 18)
        chkBox.Name = "cbox1" 'ne pas oublié de nommé la checkbox pour pouvoir l'appeler
        Dim positionChk As Point = New Point(rect.Location.X + 14, rect.Location.Y + 10)
        chkBox.Location = positionChk
        Me.DataGridView1.Controls.Add(chkBox)
End Sub
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim value As Boolean
        Dim cbox As CheckBox
        cbox = DirectCast(DataGridView1.Controls.Item("cbox1"), CheckBox)
        value = cbox.CheckState
        MsgBox(value.ToString)
End Sub
 
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        Dim value As Boolean
        Dim cbox As CheckBox
        cbox = DirectCast(DataGridView1.Controls.Item("cbox1"), CheckBox)
        value = cbox.CheckState
        MsgBox(value.ToString)
End Sub

Sincèrement

21/11/2019, 11h29
elinfo

j'ai testé ce code ça marche bien si possible est ce que je peux accéder à l'événement checkedChanged du checkbox pour cocher tous les lignes si le checkbox du header est cocher.
21/11/2019, 11h56
Delaney
Bonjour, Oui tu peux mais comme tu as créé ta checkbox dans le code, tu dois créer ton évènement pour la checkbox dans le code

Après avoir créer la checkbox ajoute

Code:

AddHandler chkBox.checkedChanged, AddressOf checkbox_changed

puis dans ta form ou ton module :
Code:

1 2 3 public sub checkbox_changed () 'ici tu places le code pour cocher toutes tes lignes avec une condition if sur la valeur de chkBox.checkstate end sub
edit : pour checked toutes tes lignes regarde par ici
http://www.vbforums.com/showthread.p...-datagrid-view

Bonjour ,

Suite à votre méthode j'ai essayé de mettre ce code pour cocher tous les lignes du datagridview2 .

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Sub checkbox_changed()
        Dim value As Boolean
        Dim cbox As CheckBox
        cbox = DirectCast(DataGridView2.Controls.Item("cbox1"), CheckBox)
        value = cbox.CheckState
 
        If value.ToString = True Then
            For i As Double = 0 To DataGridView2.Rows.Count - 1
                DataGridView2.Rows(i).Cells(0).Value = True
                DataGridView2.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
            Next
        Else
            For i As Double = 0 To DataGridView2.Rows.Count - 1
                        DataGridView2.Rows(i).Cells(0).Value = False
                        DataGridView2.Rows(i).DefaultCellStyle.BackColor = Color.White
                    Next
         End If
    End Sub

Mais quel est l'événement dont lequel je place ce ligne ?

Code:

AddHandler chkBox.CheckedChanged, AddressOf checkbox_changed

Merci .

bonjour
après la création de la checkbox :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Private Sub DataGridView1_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
        Dim chkBox As CheckBox = New CheckBox()
        Dim rect As Rectangle = Me.DataGridView1.GetCellDisplayRectangle(0, -1, True)
        chkBox.Size = New Size(18, 18)
        chkBox.Name = "cbox1" 'ne pas oublié de nommé la checkbox pour pouvoir l'appeler

AddHandler chkBox.checkedChanged, AddressOf checkbox_changed 'ici par exemple


        Dim positionChk As Point = New Point(rect.Location.X + 14, rect.Location.Y + 10)
        chkBox.Location = positionChk
        Me.DataGridView1.Controls.Add(chkBox)
End Sub

sincèrement

Bonjour

Ici, tu n'as pas besoin de recréer une checkbox, elle existe déjà, il faut donc récupérer la référence de la checkbox qui lève l'évènement (voir code corrigé)
Citation:
Envoyé par elinfo
Bonjour ,

Suite à votre méthode j'ai essayé de mettre ce code pour cocher tous les lignes du datagridview2 .
Code:

1 2 3 4 5 6 Public Sub checkbox_changed() Dim value As Boolean Dim cbox As CheckBox cbox = DirectCast(DataGridView2.Controls.Item("cbox1"), CheckBox) value = cbox.CheckState
voici le code corrigé
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public Sub checkbox_changed(sender As Object, e As EventArgs) 'paramètres à ajouter : "sender" c'est l'objet qui a provoqué l'évènement : la checkbox If sender.checkstate = checkstate.checked Then For Each row As DataGridViewRow In DataGridView1.Rows Dim chk As DataGridViewCheckBoxCell = DirectCast(row.Cells(0), DataGridViewCheckBoxCell) chk.Value = true Next Else For Each row As DataGridViewRow In DataGridView1.Rows Dim chk As DataGridViewCheckBoxCell = DirectCast(row.Cells(0), DataGridViewCheckBoxCell) chk.Value = false Next End If End Sub
edit: une petite erreur s'est glissé dans ma procédure, les valeurs de checkstate, ne n'est pas true ou false mais checkstate.checked et checkstate.unchecked. J'ai donc corrigé le code ci dessus.
edit2 : désolé dans mon code je n'ai pas mis le code pour changer la couleur de la case ;)

Sincèrement

21/11/2019, 16h14
elinfo

Bonjour ,
Merci de m'avoir aider .