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,