画面イメージ
フォーカスを失ったセル、フォーカスを取得したセルを表示する
VB
Private Sub DataGridView1_CellStateChanged(sender As Object, e As DataGridViewCellStateChangedEventArgs) Handles DataGridView1.CellStateChanged
If e.Cell.Selected Then
Debug.WriteLine("フォーカスを取得したセル:" & e.Cell.Value)
Else
Debug.WriteLine("フォーカスを失ったセル:" & e.Cell.Value)
End If
End Sub
動作確認用コード
VB
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dt As New DataTable
With dt
.Columns.Add("ProductCode", GetType(String))
.Columns.Add("Date", GetType(String))
.Rows.Add("A001", "2023/03/12")
.Rows.Add("A002", "2000/02/04")
.Rows.Add("A003", "2020/12/10")
.Rows.Add("A004", "2026/09/01")
End With
With DataGridView1
.DataSource = dt
End With
End Sub
コメント