博客给出一段代码，适用于小键盘。代码定义了一个 KeyUp 事件，当按下小键盘数字键（键码 96 - 105）时，将焦点设置到下一个文本框，涉及 Integer 类型参数。
'适用小键盘
Private Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode >= 96 And KeyCode <= 105 Then
Text1(Index + 1).SetFocus
End If
End Sub
Private Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode >= 96 And KeyCode <= 105 Then
Text1(Index + 1).SetFocus
End If
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
