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 32
|
Private Sub DataGridView1_CurrentCellDirtyStateChanged(sender As Object, e As EventArgs) Handles DataGridView1.CurrentCellDirtyStateChanged
If DataGridView1.IsCurrentCellDirty Then
DataGridView1.CommitEdit(DataGridViewDataErrorContexts.Commit)
End If
End Sub
Private countSelected As Integer
Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
If DataGridView1.Columns(e.ColumnIndex).Name = "MaColonne" And TypeOf (DataGridView1.CurrentCell) Is DataGridViewCheckBoxCell Then
Dim checkBoxCell As DataGridViewCheckBoxCell = CType(DataGridView1.CurrentCell, DataGridViewCheckBoxCell)
Dim Selec As Boolean = CBool(checkBoxCell.Value)
If Selec Then
countSelected += 1
Else
countSelected -= 1
End If
'MessageBox.Show(CStr(countSelected))
End If
End Sub
Private Sub btDeselectAll_Click(sender As Object, e As EventArgs) Handles btDeselectAll.Click
For Each Row As DataGridViewRow In DataGridView1.Rows
If Not Row.Cells("MaColonne").ReadOnly = True Then
Dim Selec As Boolean = CBool(Row.Cells("MaColonne").Value)
If Selec Then
Row.Cells("MaColonne").Value = False
End If
End If
Next
MessageBox.Show(CStr(countSelected))
End Sub |
Partager