实现ToggleButton状态互斥联动及关联控件显示的技术求助

我来帮你搞定这个ToggleButton互斥的问题，先看看你现有代码里的几个关键问题：

原代码的问题点 #

• Trailer_Click事件逻辑矛盾：你先判断If Trailer.Value = True，接着又写If Me.Trailer.Value = False Then Exit Sub，这就导致当你点击Trailer按钮设为True时，后面的代码根本不会执行，自然没法把Tractor设为False。
• 未处理按钮取消选中的情况：当用户把已选中的ToggleButton再点一下变回False时，对应的输入控件没有被隐藏，会一直显示在窗体上。
• 代码冗余：显示/隐藏控件的代码重复太多，后期维护起来麻烦。

修正后的完整代码 #

先加一个通用的子过程，用来隐藏所有相关输入控件，避免重复代码：

Private Sub HideAllInputControls()
    ' 隐藏Tractor相关控件
    Unitnumber.Visible = False
    AengineSN.Visible = False
    tractorunit.Visible = False
    Tbaengine.Visible = False
    Submittractor.Visible = False
    
    ' 隐藏Trailer相关控件
    Unitnumber2.Visible = False
    BengineSN.Visible = False
    CengineSN.Visible = False
    PowerendSN.Visible = False
    TransmissionSN.Visible = False
    TorqueconverterSN.Visible = False
    RadiatorSN.Visible = False
    trailerunit.Visible = False
    Tbbengine.Visible = False
    Tbcengine.Visible = False
    Tbpowerend.Visible = False
    Tbtransmission.Visible = False
    Tbtorqueconverter.Visible = False
    Tbradiator.Visible = False
    Submittrailer.Visible = False
End Sub

然后修改两个ToggleButton的点击事件：

Private Sub Tractor_Click()
    ' 先隐藏所有控件，避免状态混乱
    HideAllInputControls
    
    ' 处理互斥：如果当前Tractor被选中，把Trailer设为False
    If Me.Tractor.Value = True Then
        Me.Trailer.Value = False
        ' 显示Tractor相关输入控件
        Unitnumber.Visible = True
        AengineSN.Visible = True
        tractorunit.Visible = True
        Tbaengine.Visible = True
        Submittractor.Visible = True
    Else
        ' 如果取消选中Tractor，确保Trailer也保持未选中（可选，根据需求调整）
        Me.Trailer.Value = False
    End If
End Sub

Private Sub Trailer_Click()
    ' 先隐藏所有控件，避免状态混乱
    HideAllInputControls
    
    ' 处理互斥：如果当前Trailer被选中，把Tractor设为False
    If Me.Trailer.Value = True Then
        Me.Tractor.Value = False
        ' 显示Trailer相关输入控件
        Unitnumber2.Visible = True
        BengineSN.Visible = True
        CengineSN.Visible = True
        PowerendSN.Visible = True
        TransmissionSN.Visible = True
        TorqueconverterSN.Visible = True
        RadiatorSN.Visible = True
        trailerunit.Visible = True
        Tbbengine.Visible = True
        Tbcengine.Visible = True
        Tbpowerend.Visible = True
        Tbtransmission.Visible = True
        Tbtorqueconverter.Visible = True
        Tbradiator.Visible = True
        Submittrailer.Visible = True
    Else
        ' 如果取消选中Trailer，确保Tractor也保持未选中（可选，根据需求调整）
        Me.Tractor.Value = False
    End If
End Sub

代码逻辑说明 #

1. 互斥处理：每次点击按钮时，先判断当前按钮是否被选中，如果是，直接把另一个按钮设为False，确保同一时间只有一个按钮处于True状态。
2. 控件状态统一：每次操作前先调用HideAllInputControls隐藏所有输入控件，再根据当前按钮的状态显示对应组的控件，避免控件状态混乱。
3. 取消选中处理：当用户取消选中按钮时，不仅隐藏对应控件，还可以把另一个按钮也设为False（如果需要完全清空状态的话，这个逻辑可以根据你的需求调整）。

测试提示 #

• 确保所有控件的名称和代码里的一致，比如Unitnumber、AengineSN这些名字要和窗体上的控件名称完全匹配。
• 点击Tractor按钮，确认它变为True，Trailer自动变为False，同时Tractor的输入控件显示；再点击Trailer按钮，Tractor会自动变回False，Trailer的输入控件显示，完美实现互斥效果。

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