C# と VB.NET の質問掲示板

VB2010EE

お世話になります。

DataGridViewのRowHeaderMouseClickイベントについて、知恵をお貸し下さい。
事象は、セルが編集中状態の時、行ヘッダをクリックしてもイベントが発生しません。　←(1)
ところが、再度、行ヘッダをクリックするとイベントが発生します。　　　　　　　　　←(2)
（フォーカスを持った状態でないと発生しないイベント？）
(1)の時にイベントを発生させるにはどうしたらよろしいでしょうか。

よろしくお願いします。

■No55820 (jun さん) に返信
> DataGridViewのRowHeaderMouseClickイベントについて、知恵をお貸し下さい。
> 事象は、セルが編集中状態の時、行ヘッダをクリックしてもイベントが発生しません。　←(1)
> ところが、再度、行ヘッダをクリックするとイベントが発生します。　　　　　　　　　←(2)
> （フォーカスを持った状態でないと発生しないイベント？）
> (1)の時にイベントを発生させるにはどうしたらよろしいでしょうか。

編集中の鉛筆アイコンが表示されている状態で、任意レコードの行ヘッダをクリックしてみましたが、
当方の VB2008 環境では問題無くイベントが発生します。
2010 だけの現象なのでしょうか…。
それとも、何か追加のコードや設定があるのでしょうか?

Public Class Form1
    Private WithEvents DataGridView1 As New DataGridView() With {.Dock = DockStyle.Fill}
    Private Sub Form1_Load(ByVal sender As Object, _
                           ByVal e As EventArgs) Handles Me.Load
        DataGridView1.RowCount = 30
        DataGridView1.ColumnCount = 5
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
        DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect
        DataGridView1.MultiSelect = True
        Controls.Add(DataGridView1)
    End Sub

    Private Sub DataGridView1_RowHeaderMouseClick( _
            ByVal sender As Object, _
            ByVal e As DataGridViewCellMouseEventArgs _
            ) Handles DataGridView1.RowHeaderMouseClick
        MsgBox(e.RowIndex)
    End Sub
End Class

魔界の仮面弁士 さん

早急な返信ありがとうございます。

当方、イベントの発生タイミングを以下のようにMSGBOXで確認していました。
こうすると初回のRowHeaderMouseClickイベントが発生しません。
そこで、MsgBoxをやめて、ListBoxに内容を出力したところ期待する結果が得られました。
MsgBox関数を使用することでイベントがキャンセル？されるようなことがあるのでしょうか？

＃本題ではありませんが
行ヘッダをクリックしDeleteキーを押しても行は削除されず、その行の編集セルの内容が
クリアされるのですね。
これを、行ごと削除する方法はありますか。


Private Sub DataGridView1_CellEnter( _
                ByVal sender As System.Object, _
                ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
                Handles DataGridView1.CellEnter
    MsgBox("CellEnter")
End Sub

Private Sub DataGridView1_EditingControlShowing( _
                ByVal sender As System.Object, _
                ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) _
                Handles DataGridView1.EditingControlShowing
    MsgBox("EditingControlShowing")
End Sub

Private Sub DataGridView1_CellValidating( _
                ByVal sender As System.Object, _
                ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) _
                Handles DataGridView1.CellValidating
    MsgBox("CellValidating")
End Sub

Private Sub DataGridView1_CellValidated( _
                ByVal sender As System.Object, _
                ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
                Handles DataGridView1.CellValidated
    MsgBox("CellValidated")
End Sub

Private Sub DataGridView1_RowHeaderMouseClick( _
                ByVal sender As System.Object, _
                ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) _
                Handles DataGridView1.RowHeaderMouseClick
    MsgBox("RowHeaderMouseClick row=" & e.RowIndex)
End Sub