文本框设置焦点VBA

我现在正在使用Powerpoint VBA，并尝试创建一个简单的登录系统 如果我的注意力集中在TextBox1上，我想在单击键盘上的TAB键时将焦点设置为TextBox2。 这是我的密码

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = 9 Then
TextBox2.SetFocus
End If
End Sub

Private Sub TextBox2_Change()

End Sub

---

有什么问题吗？

你根本不应该这样做。只需为两个textbox控件正确设置

TabIndex

，然后按TextBox1中的Tab键将自动将焦点设置为TextBox2，代码为零。Ken是正确的。但您还需要确保文本框的TabKeyBehavior属性设置为FALSE。如果为FALSE，则tab键将在TabSTop属性为true的窗体上移动控件。如果为TRUE，则允许文本框像接受任何其他字符一样接受制表符。