1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub DataGridView3_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView3.CellContentClick
If DataGridView3(e.ColumnIndex, e.RowIndex).ValueType.Name = "Boolean" Then 'On veut uniquement agir si un checkbox a été modifié
Dim i As Integer = 0
If (DataGridView3.CurrentCell.Value = vbNull) Then 'Si un checkbox n'a pas de value
DataGridView3.CurrentCell.Value = False 'on met sa value à false, car par défaut, le checkbox est décoché, donc false
End If
'Switch(ch1.Value.ToString())
Select Case DataGridView3.CurrentCell.Value 'Suivant la valeur du value
Case True 'si la case est coché et que l'on recheck le checkbox
DataGridView3.CurrentCell.Value = False 'on passe sa value à false
Case False 'et vice versa
DataGridView3.CurrentCell.Value = True
End Select
i = verif_modif() 'on utilise la fonction pour compter le nombre de cases cochées
If i = 1 Then 'si une case et seulement une est cochée
Me.Button10.Enabled = True 'alors on dégrise le bouton modifier
Else 'sinon
Me.Button10.Enabled = False 'on re dégrise
End If
End If
End Sub |