datagridview Enterで右移動

投稿日 投稿者 esadao

datagridview Enterで右移動

　　　　 If e.KeyCode = Keys.Enter Then
            Dim dgv As DataGridView = DirectCast(sender, DataGridView)

            '最終行最終列の場合は、何もしない（最終行最終列で
            'Tabキーを送信すると、次のコントロールにフォーカスが移動）
            If (dgv.CurrentCellAddress.X = dgv.ColumnCount - 1) AndAlso
                (dgv.CurrentCellAddress.Y = dgv.RowCount - 1) Then
                Return
            End If

            'Tabキーを送信する
            SendKeys.Send("{TAB}")
            'フォーカスが下に移動しないようにする
            e.Handled = True
        End If