眠い…
'ダブルクリックした時のキーイベントの発生する順番
'MouseDown Click MouseClick MouseUp MouseDown DoubleClick MouseDoubleClick MouseUp
Public Class Form1
Private Sub dataGridView1_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles DataGridView1.MouseDown
Try
Dim grid As DataGridView = CType(sender, DataGridView)
Dim hti As System.Windows.Forms.DataGridView.HitTestInfo
hti = grid.HitTest(e.X, e.Y)
Select Case hti.Type
Case DataGridViewHitTestType.Cell
Debug.Print("クリック=" & e.Clicks)
If e.Clicks = 2 Then
Debug.Print("DoubleClick")
End If
If e.Clicks = 1 Then
Debug.Print("Click")
End If
End Select
Debug.Print("END")
Catch ex As Exception
End Try
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.Rows.Add("1", "AAA")
End Sub