7,762
社区成员
发帖
与我相关
我的任务
分享
Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)
'按向上箭头键时焦点到text1控件
If KeyCode = vbKeyUp Then txttext1.SetFocus
'按回车键、Tab键或向下箭头键时焦点到text3控件
If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Or KeyCode = vbKeyDown Then
text3.SetFocus
end if
End Sub