Discussion :

[elinfo]

Bonjour,

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

Code :

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

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.

[Delaney]

Bonjour

Tu peux essayer comme cela

Code :

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

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 :

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

chkBox.Name = "cBox1"

et appelle

Code :

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

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

Sincèrement

[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.

[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

[Delaney]

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 :

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
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

[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.