如何使用用户窗体文本框中的tab键和vba中的组合框移动？

Question

我有4个文本框和4个组合框和3个命令按钮，我希望用户能够通过Tab键更改它们，如何为整个用户框架编程并且不单独编码每个框？

Answer 1

启用标签键功能：

Sub TabKeys()
Dim i as Long

For i = 1 to 4
    UserformName.Controls("TextBox" & i).TabStop = True
    UserformName.Controls("Combobox" & i).Tabstop = True
        If i<4 Then
        UserformName.Controls("CommandButton" & i).TabStop = True
Next i

End Sub

如果您想更改标签的顺序，可以将TabStop更改为TabIndex，然后通过向i添加一定数量来对其进行逻辑设置：

Sub TabIndexChange()
Dim i as Long

For i = 1 to 4
    UserformName.Controls("TextBox" & i).TabIndex = i
    UserformName.Controls("Combobox" & i).TabIndex = i+4
        If i<4 Then
        UserformName.Controls("CommandButton" & i).TabStop = i+8
Next i

End Sub