求助：用VB设计一个键盘事件响应程序 （在线等）

来源：百度知道 编辑：UC知道 时间：2024/04/29 04:27:39
要求：现有文本框控件数组txt，当用户在文本框中按回车时，焦点自动下移到下一个文本框。

谁能帮忙解答感激不尽~

Private Sub txt_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Index < txt.UBound Then
txt(Index + 1).SetFocus
End If
End Sub

解释：
index为触发键盘按下事件的控件数组的编号
keycode为按下的按键的编号，回车键编号为13
If KeyCode = 13 And Index < txt.UBound Then 当按下回车，并且不是控件数组中的最后一个文本框控件的时候，执行下一个语句
txt(Index + 1).SetFocus 将焦点设置为下一个控件（光标位置）

这个可以直接解决啊，在属性列表里，找到MultiLine，设置为True