Henry手记 － Datagrid键盘事件响应（一）
点击次数：25 次 发布日期：2008-11-26 11:15:27 作者：源代码网
|
源代码网推荐 源代码网推荐 上一篇关于Datagrid的鼠标事件响应给大家勾勒出了Datagrid事件响应的特点，其中一个重要的问题就是要分清是Datagrid的事件还是单元格中的事件，响应对象是不同的。今天我们讨论的键盘事件，也请注意区分它们之间的关系。 源代码网推荐 源代码网推荐 1. Datagrid上的键盘响应 源代码网推荐 源代码网推荐 当Datagrid与数据源绑定后，会呈现出如图1所示的形式。当Datagrid被聚焦后，焦点会首先落在第一行第一列的单元格上（注意：不是单元格内），如图1-(3)所示。在该单元格上单击一下鼠标，会出现如图1-(4)所示的情况，焦点落入了单元格中。 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 图1 Datagrid聚焦图 源代码网推荐 源代码网推荐 我们在本节中讨论的是图1-(1)及1-(2)所示的情况，即焦点是落在Datagrid的框格上。一般的键盘事件响应是用KeyPress、KeyDown或KeyUp事件处理程序中的（键盘响应的顺序是KeyDown－>KeyPress－>KeyUp），我们也来如法炮制一下： 源代码网推荐 源代码网推荐 Private Sub DataGrid1_KeyPress(ByVal sender As Object, ByVal e As _ 源代码网推荐 源代码网推荐 System.Windows.Forms.KeyPressEventArgs) Handles DataGrid1.KeyPress 源代码网推荐 源代码网推荐 MsgBox("你输入的是:" + e.KeyChar.ToString) 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 现在运行一下程序，当您点击键盘上的“0-1”“A-Z”、“Enter键”、“Backspace键”等时，会弹出“你输入的是…”对话框，但是当你点击“Ctrl键”“Alt键”“Shift键”时会毫无反应，点击方向键、Tab键时，焦点会相应发生变动，而对话框却不会相应弹出。也就是说，KeyPress不能截得虚键，这是因为KeyChar表示的是ASCII码表中有的键码。要截得虚键，我们用KeyDown来试试： 源代码网推荐 源代码网推荐 Private Sub DataGrid1_KeyDown(ByVal sender As Object, ByVal e As _ 源代码网推荐 源代码网推荐 System.Windows.Forms.KeyEventArgs) Handles DataGrid1.KeyDown 源代码网推荐 源代码网推荐 MsgBox("你输入的是:" + e.KeyCode.ToString) 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 搞定了，我们可以截得“Ctrl键”“Alt键”“Shift键”了（组合键问题也就迎刃而解了，对吧？），等等，方向键、Tab键、PgUp、PgDown为什么还不理我们？看来是Datagrid控件把它们藏起来了，怎么处理？后面再来说吧。 源代码网推荐 源代码网推荐 现在请关注这样一个需求，我们不是已经可以截得“Enter键”了吗？我想在用户键入Enter时，响应Tab键的事件处理程序。来吧，用KeyDown试试（KeyPress也行）： 源代码网推荐 源代码网推荐 Private Sub DataGrid1_KeyDown(ByVal sender As Object, ByVal e As _ 源代码网推荐 源代码网推荐 System.Windows.Forms.KeyEventArgs) Handles DataGrid1.KeyDown 源代码网推荐 源代码网推荐 If e.KeyCode = Keys.Enter Then 源代码网推荐 源代码网推荐 SendKeys.Send("{Tab}") ‘通知系统调用Tab键的事件处理程序 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 运行一下程序，我们将焦点落在图1-(1)的位置，敲下Enter键，怎么样？果然程序把Enter键当成了Tab键来执行了，焦点落入到第一行的第二列那个单元格上了！ 源代码网推荐 源代码网推荐 那我再敲Enter键，咦，焦点怎么不跳动了？呵呵，当然不会动了，因为现在焦点已经被单元格获取了。 源代码网推荐 源代码网推荐 2. Datagrid单元格上的键盘响应 源代码网推荐 源代码网推荐 单元格上的键盘响应主要是针对能显示的字符输入（这也是单元格的主要作用嘛！），当然还有Backspace/Delete/Home/End这样的功能键。那么怎样来截得键盘信息呢？事件的对象现在是单元格了，可是我们在VS.NET的代码编辑器的“类名”下拉框中却看不到可以用的类，是什么东东的KeyDown/KeyPress/KeyUp事件呢？ 源代码网推荐 源代码网推荐 如果您看过我写的Datagrid结构剖析系列文章，您应该会很清楚，单元格的直接领导就是“列”了。所以我们应该在列上动动脑筋。让列来承接这项任务。我们来完成的需求是：实现单元格的数值框功能，就是只能在单元格中输入数字0-9，以及小数点“.”与回退键（Backspace键），Form_load中的代码的参数声明见Datagrid结构剖析(一)： 源代码网推荐 源代码网推荐 Dim ts As New DataGridTableStyle() 源代码网推荐 源代码网推荐 Dim aColumnTextColumn As DataGridTextBoxColumn 源代码网推荐 源代码网推荐 DataGrid1.DataSource = dt 源代码网推荐 源代码网推荐 ts.MappingName = dt.TableName 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Dim numCols As Integer 源代码网推荐 源代码网推荐 numCols = dt.Columns.Count 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Dim i As Integer = 0 源代码网推荐 源代码网推荐 Do While (i < numCols) "重绘所有的列 源代码网推荐 源代码网推荐 aColumnTextColumn = New DataGridTextBoxColumn() 源代码网推荐 源代码网推荐 AddHandler aColumnTextColumn.TextBox.KeyPress, New KeyPressEventHandler(AddressOf Column_KeyPress) "让列中的单元格来响应KeyPress事件 源代码网推荐 源代码网推荐 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) "增加一种自定义的表风格 源代码网推荐 源代码网推荐 …… 源代码网推荐 源代码网推荐 ‘事件处理程序，同样适用于其它Textbox用于数值框处理的情况。 源代码网推荐 源代码网推荐 Private Sub Column_KeyPress(ByVal sender As Object, _ 源代码网推荐 源代码网推荐 ByVal e As System.Windows.Forms.KeyPressEventArgs) 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 MsgBox("You have pressed the " & e.KeyChar) 源代码网推荐 源代码网推荐 If Not (IsNumeric(e.KeyChar) Or e.KeyChar = ChrW(8) Or e.KeyChar = ChrW(46)) Then 源代码网推荐 源代码网推荐 e.Handled = True 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 运行一下程序，您还能在单元格中输入“A-Z”这样的字符吗？ 源代码网推荐 源代码网推荐 当然还可以利用赋值方法来实现： 源代码网推荐 源代码网推荐 在类中先声明（原因请参见拙作《Windows 窗体引介（二） 》）： 源代码网推荐 源代码网推荐 Friend WithEvents Column1 As TextBox 源代码网推荐 源代码网推荐 Friend WithEvents Column2 As TextBox 源代码网推荐 源代码网推荐 然后在Form_load中编写代码如下（同样见Datagrid结构剖析(一)的参数声明）： 源代码网推荐 源代码网推荐 Dim myGridTableStyle As DataGridTableStyle = New DataGridTableStyle() 源代码网推荐 源代码网推荐 myGridTableStyle.MappingName = dt.TableName 源代码网推荐 源代码网推荐 DataGrid1.TableStyles.Add(myGridTableStyle) 源代码网推荐 源代码网推荐 Dim TempColumn As DataGridTextBoxColumn 源代码网推荐 源代码网推荐 TempColumn = DataGrid1.TableStyles(0).GridColumnStyles(0) 源代码网推荐 源代码网推荐 Column1 = TempColumn.TextBox 源代码网推荐 源代码网推荐 TempColumn = DataGrid1.TableStyles(0).GridColumnStyles(1) 源代码网推荐 源代码网推荐 …… 源代码网推荐 源代码网推荐 事件处理程序： 源代码网推荐 源代码网推荐 Private Sub Column1_Keypress(ByVal sender As Object, _ 源代码网推荐 源代码网推荐 ByVal e As System.Windows.Forms.KeyPressEventArgs) _ 源代码网推荐 源代码网推荐 Handles Column1.KeyPress 源代码网推荐 源代码网推荐 If Not (IsNumeric(e.KeyChar) Or e.KeyChar = ChrW(8) Or e.KeyChar = ChrW(46)) Then 源代码网推荐 源代码网推荐 e.Handled = True 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 Private Sub Column2_Keydown(ByVal sender As Object, _ 源代码网推荐 源代码网推荐 ByVal e As System.Windows.Forms.KeyEventArgs) _ 源代码网推荐 源代码网推荐 Handles Column2.KeyDown 源代码网推荐 源代码网推荐 MsgBox("You have pressed the " & e.KeyCode) 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 运行一下程序，你会发现第一列已经实现了数值框功能，第二列会在接受键盘请求后报告用户按下的是什么键。这么一处理，我们可以轻松地针对各列的单元格进行我们想要的处理了（不管是KeyPress，KeyDown，还是其它Textbox能响应的事件，我们都可以来处理了！怎一个爽字了得！） 源代码网推荐 源代码网推荐 继续第一节提出的问题，我们在单元格获得响应时来按下“Enter键”发现会有两种情况：（1）当单元格的内容没有任何变化时，按下此键没有任何响应;（2）当单元格的内容发生变动后，按下此键，焦点会落入下一行同一列的那个单元格里去了。 源代码网推荐 源代码网推荐 我们在上述的事件处理程序中来截取“Enter键”，完了，却截不到了，不论是KeyPress还是KeyDown！那些第一节中就束手无策的虚键：方向键、Tab键、Pgup/PgDn，当然仍然截不到。怎么办？它们藏到哪去了？下次再讨论吧，敬请继续关注！ 源代码网推荐 源代码网推荐 ---- 源代码网推荐 源代码网推荐 声明：本文版权与解释权归韩睿所有，如需转载，请保留完整的内容及此声明。 源代码网推荐 源代码网推荐 QQ: 18349592 源代码网推荐 源代码网推荐 E-Mail: henry7685@hotmail.com 源代码网推荐 源代码网推荐 请访问本人专栏：http://www.csdn.net/develop/author/netauthor/Latitude/ 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
