Visual Basic中如何禁止用户点击TabControl标签页仅通过按钮切换

实现方案 #

你之前将TabControl的Enabled属性整体设为False的方案不可行，因为该属性会同时禁用TabControl内部的所有子控件（包括题目内容、操作按钮等），自然无法达到仅禁止点击标签头切换的需求。

推荐通过拦截TabControl的切换前事件实现需求，实现成本低且逻辑可控： #

步骤1：声明全局标识位

在窗体类的成员区域声明一个布尔变量，用来标识当前是否允许执行标签切换操作：

Private allowTabSwitch As Boolean = False

步骤2：绑定标签切换拦截事件

给TabControl添加Selecting事件处理逻辑，所有非代码触发的切换都会在这里被拦截：

Private Sub TabControl1_Selecting(sender As Object, e As TabControlCancelEventArgs) Handles TabControl1.Selecting
    ' 仅当标识位为True时允许切换，否则取消本次切换操作
    e.Cancel = Not allowTabSwitch
End Sub

步骤3：修改按钮切换逻辑

调整你的下一步按钮点击代码，切换标签前后临时放行切换权限：

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
    ' 临时允许切换
    allowTabSwitch = True
    ' 动态计算下一个标签索引，适配任意数量的题目标签
    Dim nextTabIndex = TabControl1.SelectedIndex + 1
    If nextTabIndex < TabControl1.TabPages.Count Then
        TabControl1.SelectTab(nextTabIndex)
    End If
    ' 切换完成后立刻禁止切换，避免用户手动点击标签头跳转
    allowTabSwitch = False
End Sub

可选优化：完全隐藏标签头

如果你的测验场景不需要展示顶部的标签标题，可以直接隐藏标签头，彻底杜绝用户点击的可能，代码如下：

' 窗体加载时执行一次即可
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    TabControl1.Appearance = TabAppearance.FlatButtons
    TabControl1.ItemSize = New Size(0, 1)
    TabControl1.SizeMode = TabSizeMode.Fixed
End Sub

内容的提问来源于stack exchange，提问作者Idk