TabStop 属性示例

下例使用 TabStop 属性来控制是否可以通过按 Tab，将焦点移动到特定的控件。用户按 Tab，使焦点在窗体上的控件之间移动，然后单击切换按钮以改变 CommandButton1 的 TabStop 属性。当 TabStop 为 False 时，CommandButton1 将不接受用 Tab 移来的焦点。

窗体包含：

• 名为 CommandButton1 的命令按钮。
• 名为 ToggleButton1 的切换按钮。
• 一至二个其他控件，如选项按钮或列表框。

Sub UserForm_CommandButton1_Click()
    MsgBox "Clicked CommandButton1."
End Sub

Sub UserForm_ToggleButton1_Click()
    If UserForm_ToggleButton1 = True Then
        UserForm_CommandButton1.TabStop = True
        UserForm_ToggleButton1.Caption = "TabStop On"
    Else
        UserForm_CommandButton1.TabStop = False
        UserForm_ToggleButton1.Caption = "TabStop Off"
    End If
End Sub

Sub UserForm_Initialize()
    UserForm_CommandButton1.Caption = "Show Message"
    
    UserForm_ToggleButton1.Caption = "TabStop On"
    UserForm_ToggleButton1.Value = True
    UserForm_ToggleButton1.Width = 90
End Sub