用vb.net 写datagrid行的双击和单击事件

hope6868 2006-06-05 11:16:58

...全文

217 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

gao256 2006-08-17

打赏
举报

Private Sub DataGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDown
'单击事件，双击事件在此基础上你再想办法
Dim myGrid As DataGrid = CType(sender, DataGrid)
Dim hti As System.Windows.Forms.DataGrid.HitTestInfo
'*******变量定义结束***************
hti = myGrid.HitTest(e.X, e.Y)
Select Case hti.Type '以下展示的是该类型枚举的全部内容
Case System.Windows.Forms.DataGrid.HitTestType.None
MsgBox("你单击的是背景")
Case System.Windows.Forms.DataGrid.HitTestType.Cell
MsgBox("你单击的单元格位于行：" & hti.Row & ", 列：" & hti.Column)
Case System.Windows.Forms.DataGrid.HitTestType.ColumnHeader
MsgBox("你单击的是第" & hti.Column & "列的列头")
Case System.Windows.Forms.DataGrid.HitTestType.RowHeader
MsgBox("你单击的是第" & hti.Row & "行的行头")
Case System.Windows.Forms.DataGrid.HitTestType.ColumnResize
MsgBox("你单击的是第" & hti.Column & "列的边框")
Case System.Windows.Forms.DataGrid.HitTestType.RowResize
MsgBox("你单击的是第" & hti.Row & "行的边框")
Case System.Windows.Forms.DataGrid.HitTestType.Caption
MsgBox("你单击的是标题 ")
Case System.Windows.Forms.DataGrid.HitTestType.ParentRows
MsgBox("你单击的是父行 ")
End Select
End Sub

fire_qu 2006-06-06