【VB.NET】データグリッドビューで行毎のチェックボックスにイベントを仕込む

2017年12月19日2019年8月16日VB.NET,開発

おはようございます。

今回は、データグリッドに配置したチェックボックス列にイベントを仕込みたいと思います。

プログラムは前回のものを流用。

【VB.NET】データグリッドビューで行毎のコンボボックスにイベントを設定する | ドラ

VB.NET の WindowsForms アプリで、データグリッドを動的に生成して各行のコンボボックスにイベントを ...

https://www.doraxdora.com/blog/2017/12/15/post-3456/

1. プログラムの修正
- 1.1. 新規イベントの追加
2. 起動してみる
3. まとめ

プログラムの修正

新規イベントの追加

データグリッドビューの現在のセル状態が変更された際のイベントを追加します。

Form1.vb

    ''' <summary>
    ''' データグリッドビューの現在のセル状態が変更された際のイベント
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub dgv_CurrentCellDirtyStateChanged(sender As Object, e As EventArgs) Handles dgv.CurrentCellDirtyStateChanged
        ' 対象のセルを判定
        If dgv.CurrentCellAddress.X = 0 AndAlso dgv.IsCurrentCellDirty Then
            ' 変更を確定する
            dgv.CommitEdit(DataGridViewDataErrorContexts.Commit)
        End If
    End Sub

''' <summary>

''' データグリッドビューの現在のセル状態が変更された際のイベント

''' </summary>

''' <param name="sender"></param>

''' <param name="e"></param>

PrivateSubdgv_CurrentCellDirtyStateChanged(sender AsObject,eAsEventArgs)Handlesdgv.CurrentCellDirtyStateChanged

' 対象のセルを判定

If dgv.CurrentCellAddress.X=0AndAlsodgv.IsCurrentCellDirty Then

' 変更を確定する

dgv.CommitEdit(DataGridViewDataErrorContexts.Commit)

EndIf

EndSub

データグリッドビューのセル値が変更された際のイベントを追加

Form1.vb

    ''' <summary>
    ''' データグリッドビューのセル値が変更（が確定）された際のイベント
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub dgv_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellValueChanged

        If (TypeOf dgv(e.ColumnIndex, e.RowIndex) Is DataGridViewCheckBoxCell) Then
            Dim chk As DataGridViewCheckBoxCell = dgv(e.ColumnIndex, e.RowIndex)
            MessageBox.Show(e.RowIndex + 1 & "行目のチェックボックス値：" & chk.Value)
        End If

    End Sub

''' <summary>

''' データグリッドビューのセル値が変更（が確定）された際のイベント

''' </summary>

''' <param name="sender"></param>

''' <param name="e"></param>

PrivateSubdgv_CellValueChanged(sender AsObject,eAsDataGridViewCellEventArgs)Handlesdgv.CellValueChanged

If(TypeOfdgv(e.ColumnIndex,e.RowIndex)Is DataGridViewCheckBoxCell)Then

Dimchk AsDataGridViewCheckBoxCell=dgv(e.ColumnIndex,e.RowIndex)

MessageBox.Show(e.RowIndex+1&"行目のチェックボックス値："&chk.Value)

EndIf

EndSub

データグリッドビューのセルがクリック（マウスダウン）された際のイベントを追加

Form1.vb

    ''' <summary>
    ''' データグリッドビューのセルをクリック（マウスダウン）した際のイベント
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub dgv_CellMouseDown(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgv.CellMouseDown
        If (TypeOf dgv(e.ColumnIndex, e.RowIndex) Is DataGridViewCheckBoxCell) Then
            Dim cell As DataGridViewCheckBoxCell = dgv(e.ColumnIndex, e.RowIndex)
            cell.Value = If(cell.Value = False, True, False)
            ' 変更を確定する
            dgv.CommitEdit(DataGridViewDataErrorContexts.Commit)
            dgv.EndEdit()
        End If
    End Sub