Henry手记：Datagrid事件响应
点击次数：17 次 发布日期：2008-11-26 11:12:42 作者：源代码网
|
源代码网推荐 源代码网推荐 一、鼠标响应 源代码网推荐 源代码网推荐 由于Datagrid的集合性结构（这在拙作Datagrid结构剖析系列文章中已经详细说明了），使得用户不清楚鼠标响应的响应区与处理者。请看图1： 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 图1 Datagrid响应区命名 源代码网推荐 源代码网推荐 1. 单击事件 源代码网推荐 源代码网推荐 如果用户要单击datagrid来激发某相应事件，可以使用Datagrid.HitTest方法来获得单击在Datagrid上的位置，必由系统通知您单击在何处。如下代码： 源代码网推荐 源代码网推荐 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 源代码网推荐 源代码网推荐 2. 双击事件（感谢acptvb网友的帮助） 源代码网推荐 源代码网推荐 在上面的单击事件中稍加修改，就可得到双击事件，只需要在sub里加入如下的判断语句： 源代码网推荐 源代码网推荐 If e.Button = MouseButtons.Left And e.Clicks = 2 Then 源代码网推荐 源代码网推荐 Dim myGrid As DataGrid = CType(sender, DataGrid) 源代码网推荐 源代码网推荐 … 源代码网推荐 源代码网推荐 End Select 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 您再试一下运行，却发现其它一切正常，只有单元格双击事件获得不到，这是什么原因呢？道理很简单，就是在您第一次单击cell时，datagrid还可以获得消息，但是单击的结果是使焦点落入了您单击的那个cell中去了，您的第二次鼠标点击事件的响应者就不再是datagrid，而是cell中的textbox了。（如果不是很理解这个，请看一下我专栏中的datagrid结构剖析文章）。那么怎么样通知datagrid还有一次本属于双击cell事件的第二次点击呢？首先我们应该明晰何谓两次单击与双击，它们的区别就在于鼠标点击两下之间的时间间隔，间隔短的就是双击事件，达到一定长度后就被视为是两次单击（时间间隔的设定其实是可以人工完成的，在您机器的“控制面板”中有“鼠标”一项，里面就有调整这个时间间隔的工具）。这个时间设定完毕后，可以通过SystemInformation.DoubleClickTime方法去获得。 源代码网推荐 源代码网推荐 现在我们来理一下思路： 源代码网推荐 源代码网推荐 (1) 设置一个公用变量gridMouseDownTime，用于记录点击时的绝对时间; 源代码网推荐 源代码网推荐 (2) 在DataGrid1_MouseDown事件处理程序中记录下第一次点击的时间： 源代码网推荐 源代码网推荐 If hit.type= System.Windows.Forms.DataGrid.HitTestType.Cell then 源代码网推荐 源代码网推荐 gridMouseDownTime = DateTime.Now 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 (3) 在Datagrid的cell内嵌的textbox中设置鼠标点击事件（mousedown）; 源代码网推荐 源代码网推荐 设置方法请看我专栏中的datagrid结构剖析文章，事件处理程序的设置方法请看我专栏中的windows窗体引介（二）中的事件响应部分，在此不重复解释了： 源代码网推荐 源代码网推荐 Dim ts As New DataGridTableStyle() 源代码网推荐 源代码网推荐 Dim aColumnTextColumn As DataGridTextBoxColumn 源代码网推荐 源代码网推荐 DataGrid1.DataSource = dt 源代码网推荐 源代码网推荐 Me.HenryDatagrid1.DataSource = dt 源代码网推荐 源代码网推荐 ts.MappingName = dt.TableName 源代码网推荐 源代码网推荐 Dim numCols As Integer 源代码网推荐 源代码网推荐 numCols = dt.Columns.Count 源代码网推荐 源代码网推荐 Do While (i < numCols) "重绘所有的列 源代码网推荐 源代码网推荐 aColumnTextColumn = New DataGridTextBoxColumn() 源代码网推荐 源代码网推荐 "夺过对textbox内落下光标的控制权，但你仍可以输入值 源代码网推荐 源代码网推荐 AddHandler aColumnTextColumn.TextBox.MouseDown, New MouseEventHandler _ 源代码网推荐 源代码网推荐 (AddressOf TextBoxMouseDownHandler) 源代码网推荐 源代码网推荐 aColumnTextColumn.HeaderText = dt.Columns(i).ColumnName 源代码网推荐 源代码网推荐 aColumnTextColumn.MappingName = dt.Columns(i).ColumnName 源代码网推荐 源代码网推荐 ts.GridColumnStyles.Add(aColumnTextColumn) "增加一种自定义的column风格 源代码网推荐 源代码网推荐 i = (i + 1) 源代码网推荐 源代码网推荐 Loop 源代码网推荐 源代码网推荐 DataGrid1.TableStyles.Add(ts) 源代码网推荐 源代码网推荐 (4) 在上述事件的事件处理程序中比较时间间隔，从而判断是否是datagrid中对某一个cell进行了双击： 源代码网推荐 源代码网推荐 Private Sub TextBoxMouseDownHandler(ByVal sender As Object, ByVal e As MouseEventArgs) 源代码网推荐 源代码网推荐 If (DateTime.Now < gridMouseDownTime.AddMilliseconds(SystemInformation.DoubleClickTime)) Then ‘判断时间间隔 源代码网推荐 源代码网推荐 MsgBox("DataGrid 的 DoubleClick ") 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 在这里需要读者注意的是，你点击的cell当然应该是没有被聚焦的（就是没有变蓝的），如果已经变蓝，再双击它就看不到弹出的"DataGrid 的 DoubleClick"对话框了，因为此时你的两次点击都是落在textbox里了，成为了textbox的双击事件，你可以在TextBoxMouseDownHandler中加入如下代码来进行观察： 源代码网推荐 源代码网推荐 If e.Button = MouseButtons.Left And e.Clicks = 2 Then 源代码网推荐 源代码网推荐 MessageBox.Show("在单元格的textbox中的双击 ") 源代码网推荐 源代码网推荐 Else 源代码网推荐 源代码网推荐 If (DateTime.Now < gridMouseDownTime.AddMilliseconds(SystemInformation.DoubleClickTime)) Then 源代码网推荐 源代码网推荐 MessageBox.Show("DataGrid 的 DoubleClick ") 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 您可以完善上述的代码，以实现您的鼠标事件响应的需要。 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 键盘事件响应看来得明年再讨论了，我得去买菜了，不然女朋友回来要发飙了。再次祝福大家新年好！ 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 ---- 源代码网推荐 源代码网推荐 声明：本文版权与解释权归韩睿所有，如需转载，请保留完整的内容及此声明。 源代码网推荐 源代码网推荐 QQ: 18349592 源代码网推荐 源代码网推荐 E-Mail: henry7685@hotmail.com 源代码网推荐 源代码网推荐 请访问本人专栏：http://www.csdn.net/develop/author/netauthor/Latitude/ 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
