DataGridView初期表示の動作 (ID:145961)

名前

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

本文

いつもお世話になっております。

VB2008を使い開発してます、いろいろ調べました解決できません、
ご教授よろしくお願いいたします。

フォームにデータグリッドビューとボタンを貼り付けて、会議の出席状況を管理
するプログラムを作っています。

届順、番号、氏名を表示し、届順に番号入力することにより氏名を表示し、出席
以外の場合は氏名(状況)欄に理由を入力します、届順欄は初期値をReadOnlyにし
クリックされた時にキャレット表示されなくなる為、SelectionChangedイベント
で強制的に番号欄にフォーカスを移動しています。

問題の現象はボタンをクリック後、グリットビューに表示する際に最初の行にある
氏名(状況)欄の佐藤 (欠席)が佐藤のみの表示になってしまう事です、デバッグで
確認してみるとsender.CurrentCellの後にCellValidatedが動いてしまい氏名が
再表示されているのが分かりました、SelectionChangedイベントが原因なのです...

会議の出席届順がボタンクリック直後の結果と同じ場合は、直接氏名(状況)欄にマウス
で移動し修正したいのです、ボタンクリック時のDataGridView1.CurrentCell = Nothing
をコメントする事により正常に初期表示されるようになったのですが、グリッドビュー
の(1,0)が青く反転してしまい、別のセルに移動すると氏名(状況)欄の表示が変わって
しまいます、実際には先頭行にカーソルが移動してるようです。

(1,0)が青く反転せずに、ボタンクリック後グリッドビューにフォーカスが移動しない
ような方法はないでしょうか？

Public Class Form1
    Private dt As New DataTable

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = dt
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt.Columns.Clear()
        dt.Rows.Clear()
        dt.Columns.Add("届順")
        dt.Columns.Add("番号")
        dt.Columns.Add("氏名(状況)")
        dt.Rows.Add("1", "1", "佐藤 (欠席)")
        dt.Rows.Add("2", "2", "鈴木")
        dt.Rows.Add("3", "3", "高橋")
        dt.Rows.Add("4", "4", "田中 (遅れる)")
        dt.Rows.Add("5", "5", "渡辺")
        DataGridView1.Columns(0).ReadOnly = True
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.CurrentCell = Nothing
    End Sub

Private Sub DataGridView1_CellValidating(ByVal sender As DataGridView, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating
        Dim currentCell As DataGridViewCell = sender.CurrentCell
        If currentCell Is Nothing OrElse currentCell.Value Is DBNull.Value Then
            Return
        End If

If e.ColumnIndex = 1 Then
            If e.FormattedValue.ToString < "1" OrElse e.FormattedValue.ToString > "5" Then
                MsgBox("入力エラー")
                e.Cancel = True
            End If
        End If
    End Sub

Private Sub DataGridView1_CellValidated(ByVal sender As DataGridView, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValidated
        Dim currentCell As DataGridViewCell = sender.CurrentCell
        If currentCell Is Nothing OrElse currentCell.Value Is DBNull.Value Then
            Return
        End If

If e.ColumnIndex = 1 Then
            If currentCell.Value = "1" Then
                sender.Item(e.ColumnIndex + 1, e.RowIndex).Value = "佐藤"
            ElseIf currentCell.Value = "2" Then
                sender.Item(e.ColumnIndex + 1, e.RowIndex).Value = "鈴木"
            ElseIf currentCell.Value = "3" Then
                sender.Item(e.ColumnIndex + 1, e.RowIndex).Value = "高橋"
            ElseIf currentCell.Value = "4" Then
                sender.Item(e.ColumnIndex + 1, e.RowIndex).Value = "田中"
            ElseIf currentCell.Value = "5" Then
                sender.Item(e.ColumnIndex + 1, e.RowIndex).Value = "渡辺"
            End If
        End If
    End Sub

Private Sub DataGridView1_SelectionChanged(ByVal sender As DataGridView, ByVal e As EventArgs) Handles DataGridView1.SelectionChanged
        Dim pos As Point = sender.CurrentCellAddress
        If pos.X = 0 AndAlso pos.Y >= 0 Then
            sender.CurrentCell = sender.Item(1, pos.Y)
        End If
    End Sub
End Class

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

戻る