[VB.NET]键盘控制焦点移动

---键盘控制焦点移动---
在数据库的项目中,一定会有输入数据的Form.最令录入人员头痛的就是每填完一个数据后,要再操作鼠标,或者另一只手按一下Tab(不过还是很麻烦).最人性化呢就是:按回车键(在小键盘内输入只要一只手就可以了),还可以用方向键控制.

第一步:Form的KeyPreview的属性为True
第二步:按照需要把TabIndex按顺序设置
第三步:编写一个方法,代码如下:

    ''''---FocusMove Is Function Name--
    ''''---ControlName Is the Control''''s Name Which you want to use ---
    Private Sub FocusMove()Sub FocusMove(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ControlName1.KeyPress, ControlName2.KeyPress
        If e.KeyChar = ChrW(13) Then
            ''''---SelectNextControl is a Function will be introduced next---
            SelectNextControl(sender, True, True, True, False)
        End If
    End Sub

SelectNextControl的说明来自MSDN:

激活下一个控件。

[Visual Basic]
Public Function SelectNextControl( _
   ByVal ctl As Control, _
   ByVal forward As Boolean, _
   ByVal tabStopOnly As Boolean, _
   ByVal nested As Boolean, _
   ByVal wrap As Boolean _
) As Boolean

[C#]
public bool SelectNextControl(
   Control ctl,
   bool forward,
   bool tabStopOnly,
   bool nested,
   bool wrap
);

[C++]
public: bool SelectNextControl(
   Control* ctl,
   bool forward,
   bool tabStopOnly,
   bool nested,
   bool wrap
);

[JScript]
public function SelectNextControl(
   ctl : Control,
   forward : Boolean,
   tabStopOnly : Boolean,
   nested : Boolean,
   wrap : Boolean
) : Boolean;

参数
ctl
从其上开始搜索的 Control。
forward
如果为 true 则在 Tab 键顺序中前移；如果为 false 则在 Tab 键顺序中后移。
tabStopOnly
true 表示忽略 TabStop 属性设置为 false 的控件；false 表示不忽略。
nested
true 表示包括嵌套子控件（子控件的子级）；false 表示不包括。
wrap
true 表示在到达最后一个控件之后从 Tab 键顺序中第一个控件开始继续搜索；false 表示不继续搜索。
返回值
如果控件已激活，则为 true；否则为 false。

备注
如果将控件的 ControlStyles.Selectable 样式位设置为 true，该控件包含在另一个控件中，而且其所有父控件都可见并已启用，则 SelectNextControl 方法激活 Tab 键顺序中的下一个控件。

下面列表中的 Windows 窗体控件是不可选择的。从该列表中的控件派生的控件也是不可选择的。

Label
Panel
GroupBox
PictureBox
ProgressBar
Splitter
LinkLabel（当控件中没有链接时）
要求
平台: Windows 98, Windows NT 4.0, Windows ME, Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows Server 2003 系列

最后要注意的就是TabIndex的设置,如果控件在GroupBox中,那么GroupBox要在TabIndex的顺序中,就是说,如果TextBox1在GroupBox1中,那么GroupBox1.Index=1,TextBox1.Index=2.并且在SelectNextControld的参数nested=true,即可.还有一些细节大家在平时使用的时候还要多多注意的.
---end---

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18