用户表单中所有切换按钮的一种颜色更改代码多页

Question

我有大约 100 个切换按钮。

我想：

If .value = true then
    togglebuttons.BackColor = vbRed
Else 
    = vbGreen

我可以为每个代码编写代码，但是有没有办法创建一个组或类，以便将颜色更改代码应用于所有代码？

-Excel365

Answer 1

下面的示例创建了一个新类，以便使用一个事件处理程序处理多个切换按钮。请注意，它假设多页控件的第一页包含切换按钮。相应地更改页面引用。

首先插入一个新的类模块（插入>>类模块），并将其命名为clsToggleButton。

然后将以下代码复制并粘贴到新类的代码模块中。 。 。

Option Explicit

Public WithEvents toggleButton As MSForms.toggleButton

Private Sub toggleButton_Click()
    
    With toggleButton
        If .Value = True Then
            .BackColor = vbRed
        Else
            .BackColor = vbGreen
        End If
    End With
    
End Sub

然后将以下代码复制并粘贴到您的用户窗体代码模块中。 。 。

Option Explicit

Dim toggleButtonCollection As Collection

Private Sub UserForm_Initialize()
    
    Set toggleButtonCollection = New Collection
    
    Dim ctrl As MSForms.Control
    Dim cToggleButton As clsToggleButton
    
    For Each ctrl In Me.MultiPage1.Pages(0).Controls
        If TypeName(ctrl) = "ToggleButton" Then
            'ctrl.BackColor = vbGreen 'uncomment to initially set the backcolor to green
            Set cToggleButton = New clsToggleButton
            Set cToggleButton.toggleButton = ctrl
            toggleButtonCollection.Add cToggleButton
        End If
    Next ctrl
    
End Sub

Answer 2

我已经很多年没有使用 VB 了，它是 .net，所以，如果这个解决方案不正确，请告诉我。

解决方案 1：数组或列表

您可以创建 数组 或包含所有内容的列表您的切换按钮， 循环它们并为它们中的每一个执行您需要的操作。这将确保上述逻辑仅执行一次而不是重复，但是您仍然需要使用按钮构建集合。

解决方案 2：类

您可以创建一个 子类 为您的切换按钮，并确保每个有问题的切换按钮都属于该类。然后您可以为该类创建一个静态列表。在每个切换按钮的构造函数中，将该按钮附加到类中的共享列表中。然后您可以创建一个共享方法来循环列表并执行您需要的逻辑。

PS 抱歉没有写代码，我不再记得该语言的语法。