根据其他切换按钮状态更改切换按钮状态

Question

当相邻的切换按钮被单击并变为 TRUE 时，我尝试将切换按钮 return 设置为 FALSE 状态，但没有成功。当一个切换为真时，将显示多个文本框，允许用户输入数据。完成后，用户使用命令按钮将数据发送到工作表。我想要的是当一个切换处于 TRUE 状态时，另一个切换必须保持 FALSE 直到单击，这将使前一个按钮为 FALSE。这是用户表单的代码和图片

Private Sub Tractor_Click()
   If Me.Tractor.Value = False Then Exit Sub

   Me.Trailer.Value = False

   If Tractor.Value = True Then
      Unitnumber.Visible = True
      AengineSN.Visible = True
      tractorunit.Visible = True
      Tbaengine.Visible = True
      Submittractor.Visible = True
   End If
End Sub

Private Sub Trailer_Click()
   If Trailer.Value = True Then
      If Me.Trailer.Value = False Then Exit Sub

      Me.Tractor.Value = False

      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
   End If
End Sub

Answer 1

您使代码变得比需要的更复杂：

Option Explicit

Private Sub Tractor_Click()
   Unitnumber.Visible = Tractor.Value
   tractorunit.Visible = Tractor.Value

   Unitnumber2.Visible = Not Tractor.Value
   trailerunit.Visible = Not Tractor.Value
End Sub

Private Sub Trailer_Click()
   Unitnumber.Visible = Not Trailer.Value
   tractorunit.Visible = Not Trailer.Value

   Unitnumber2.Visible = Trailer.Value
   trailerunit.Visible = Trailer.Value
End Sub

一些注意事项：

按钮是互斥的。无需设置其他按钮的状态。
设置状态不会触发 Click 事件，因此您需要处理每个 Click 事件中的所有控件。

根据其他切换按钮状态更改切换按钮状态

Altering togglebutton state based on other togglebutton state

vb6

togglebutton