如何在DATAGRID的CELL里响应KEYDOWN事件?

Question

参考如下我们在本节中讨论的是图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 IfEnd 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 = TrueEnd IfEnd SubPrivate 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，当然仍然截不到。怎么办？它们藏到哪去了？下次再讨论吧，敬请继续关注！

Answer 1

但是，我们在上一篇中用尽方法也截不下Enter键呀，看来这一键盘响应已经被控件封装为protected型了。控件编写人员把多个预定义的键盘绑定方案封装起来，称为快捷键。我们在Keydown/KeyPress中没办法拦截到Enter键和其它一些键盘按键正是这个原因，下面罗列的就是隐藏起来的快捷键： 操作
 快捷键
 
完成单元格输入并向下移动到下一个单元格。 如果焦点在子表链接上，则导航至该表。
 ENTER 键
 
如果处于单元格编辑模式，则取消单元格编辑。 如果处于字幕选择模式，则取消在行上的编辑。
 ESC 键
 
当编辑单元格时，删除插入点前的字符。
 BACKSPACE 键
 
当编辑单元格时，删除插入点后的字符。
 DELETE 键
 
移动到当前行的第一个单元格。
 HOME 键
 
移动到当前行的最后一个单元格。
 END 键
 
突出显示当前单元格中的字符并将插入点置于该行的末尾。与双击单元格的行为相同。 
 F2 键
 
如果焦点在单元格上，则移动到该行中的下一个单元格。 如果焦点在某行中最后一个单元格上，则移动到该行的第一个子表链接并将其展开。如果焦点在子链接上，则移动到下一个子链接。如果焦点在最后一个子链接上，则移动到下一行的第一个单元格。
 TAB 键
 
如果焦点在单元格上，则移动到该行中的上一个单元格。 如果焦点在某行中第一个单元格上，则移动到上一行中最后一个展开的子表链接，或移动到上一行中最后一个单元格。 如果焦点在子链接上，则移动到上一个子链接。 如果焦点在第一个子链接上，则移动到上一行的最后一个单元格。
 SHIFT+TAB 键
 
按 Tab 键顺序移动到下一个控件。
 CTRL+TAB 键
 
按 Tab 键顺序移动到上一个控件。
 CTRL+SHIFT+TAB 键
 
如果在子表中，则向上移动到父表。与单击“后退”按钮的行为相同。
 ALT+左箭头键
 
展开子表链接。ALT+下箭头键展开所有链接，而不仅仅是选定的链接。
 ALT+下箭头键
或
CTRL+加号键
 
折叠子表链接。ALT+上箭头键折叠所有链接，而不仅仅是选定的链接。
 ALT+上箭头键
或
CTRL+减号键
 
按箭头的方向移动到最远的一个非空单元格。
 CTRL+箭头键
 
按箭头的方向将所选内容扩展一行（不包括子表链接）。
 SHIFT+上/下箭头键
 
按箭头的方向将所选内容扩展到最远的一个非空行（不包括子表链接）。
 CTRL+SHIFT+上/下箭头键
 
移动到左上角的单元格。
 CTRL+HOME 键
 
移动到右下角的单元格。
 CTRL+END 键
 
将所选内容扩展到顶端行。
 CTRL+SHIFT+HOME 键
 
将所选内容扩展到底端行。
 CTRL+SHIFT+END 键
 
选择当前行（不包括子表链接）。
 SHIFT+SPACEBAR 键
 
选择整个网格（不包括子表链接）。
 CTRL+A 键
 
当在子表中时，显示父行。
 CTRL+PAGE DOWN 键
 
当在子表中时，隐藏父行。
 CTRL+PAGE UP 键
 
将所选内容向下扩展一个屏幕（不包括子表链接）。
 SHIFT+PAGE DOWN 键
 
将所选内容向上扩展一个屏幕（不包括子表链接）。
 SHIFT+PAGE UP 键
 
为当前行调用 DataGrid.EndEdit 方法。
 CTRL+ENTER 键
 
当处于编辑模式时，将 dbnull 值输入单元格。
 CTRL+0 键
  快捷键与菜单快捷方式被称为命令键，应用程序会在对常规输入进行处理前的消息预处理过程中对它们进行处理。命令键也就始终比常规输入键具有优先权。ProcessCmdKey 方法首先确定控件是否有上下文菜单，如果有，则允许 ContextMenu 处理命令键。如果命令键不是菜单快捷方式，且控件有父级，那么该键传递到父级的 ProcessCmdKey 方法。净效果是命令键在控件层次结构中向上“冒”。除了用户按下的键外，键数据还指示哪些（如果有的话）修改键与该键同时按下。修改键包括 SHIFT、CTRL 和 ALT 键（成为组合键）。这里要注意：该方法必须返回 true，以指示它已经处理完命令键，或者 false，以指示该键不是命令键。在派生类中重写 ProcessCmdKey 方法时，控件应返回 true 以指示它已处理该键。对于未由该控件处理的键，应返回调用基类的 ProcessCmdKey 方法的结果。如果不加返回值，会默认为false。这样你明明已经修改了处理方法，却会在执行完你的命令之后，继续执行父类中定义的该键盘按键的处理方法。那么我们怎么处理文头的命题？解决之道就是自己写一个控件，继承自现有的Datagrid控件，再重写处理命令键响应程序ProcessCmdKey，来实现我们的需求。步骤一：在vs.net编辑器中，“文件”->“新建”->“项目”，然后选择新建一个“Windows控件库”的项目：HenryDatagrid。这样运行的结果会生成一个DLL文件，而不是EXE执行文件；步骤二：在HenryDatagrid.vb文件代码编辑窗口中加入有阴影的这句话：Public Class HenryDatagridInherits System.Windows.Forms.DataGrid　　　‘这表示新建的控件是Datagrid的派生控件步骤三：在“类名”窗口中选择overrides，然后在“方法名称”窗口选择“ProcessCmdKey”（如图2所示） 
 　　　　　　　　图2 选择要重写的方法 然后就会出现一段空的ProcessCmdKey代码段，我们可以写入自己的代码：Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message,  ByVal keyData As System.Windows.Forms.Keys) As Boolean        Dim WM_KEYDOWN As Integer = 256  ‘消息响应的问题可以参考其他win32编程的文章        Dim WM_SYSKEYDOWN As Integer = 260　        If ((msg.Msg = WM_KEYDOWN) Or (msg.Msg = WM_SYSKEYDOWN)) Then            Select Case keyData                Case Keys.Down                       MsgBox("截到下箭头键")                    Return True                Case Keys.Up                    MsgBox("截到上箭头键")                    Return True                Case Keys.Enter                    SendKeys.Send("{Tab}")                    Return True                Case Keys.Control + Keys.M                    MsgBox("<CTRL> + m 组合键被截获")                    Return True                Case Keys.Alt + Keys.Z                    MsgBox("<ALT> + z 组合键被截获")                    Return True            End Select        End If End Function　　然后运行一下，生成HenryDatagrid.dll文件步骤四：再建立一个项目，然后在新项目的设计窗口的工具箱上单击鼠标右键，在弹出菜单中选择“添加引用”，然后在.net选项卡中占击“浏览”，选择到HenryDatagrid.dll，加入进来，然后您的工具箱上会多出一个HenryDatagrid的图标，在新项目中使用HenryDatagrid来代替datagrid控件。看一下，您所需要的“Enter跳格”事件就这样完成了。