Henry手记 - Datagrid键盘事件响应(一)

** Henry ** ** 手记 ** ** ** ** - ** ** Datagrid ** ** 键盘事件响应(一) ** ** **

韩睿 ( 01/19/2003)

大家好!新年里有没有给自己写下新年计划,督促自己做点什么呢?我最希望的当然是大家能一如继往的支持我,让我更有动力写出更多更好的文章奉献给关心 .NET 的朋友。

上一篇关于 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 能响应的事件,我们都可以来处理了!怎一个爽字了得!)

<SPAN style="FONT-SIZE: 9pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hans

Published At
Categories with Web编程
Tagged with
comments powered by Disqus