DataGridViewでのEnter取得に関して (ID:150434)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お世話になります。

ＶＢレスキューさんの記述を元に
以下のように変更しています。

'DataGridView1(2 の時フォーカスが下の行へ移動してしまうのですが
以下のように移動しない方法はあるものでしょうか。

'フォーカスが下に移動しないようにする
  e.Handled = True

Private Sub dgvEditTextBox_PreviewKeyDown(ByVal sender As Object, _
                  ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) _
                                 Handles dgvEditTextBox.PreviewKeyDown

Dim s_gyou As Integer

If e.KeyCode = Keys.Enter Then 'Stop
            'DataGridView1.CurrentCell.Value = DataGridView1.CurrentCell.Value.ToUpper

'現在の行を退避
            s_gyou = (DataGridView1.CurrentCell.RowIndex)
            'DataGridView1.CurrentCell.Value = DataGridView1.CurrentCell.Value.ToUpper

'移動
            If DataGridView1.CurrentCell.ColumnIndex = 0 Then
                DataGridView1.CurrentCell = DataGridView1(1, s_gyou)
            ElseIf DataGridView1.CurrentCell.ColumnIndex = 1 Then  
                DataGridView1.CurrentCell = DataGridView1(2, s_gyou)
                'DataGridView1(2　は表示している中で一番右になります。
　　　　 'この時フォーカスが下の行へ移動
            End If
        End If

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る