使用 ToggleButton 的 false .Value 删除单击时顶部的灰色

Question

我试图使 ToggleButton 看起来始终是黑色的，但是当单击时，顶部总是出现这个灰色蒙版（可能是为了“单击”效果）

： sstatic.net/YKl34.png" rel="nofollow noreferrer">

我发现使用 ToggleButton 的 false .Value 你可以删除它，但我的问题是现在用户表单我正在使出现在关闭后再次出现。有办法解决这个问题吗？ 当您单击按钮时，这是我的子目录：

Private Sub ToggleButton1_Click()

    ToggleButton1.Value = False
    ToggleButton1.Caption = "Afficher l'interface"
    ToggleButton1.ForeColor = RGB(255, 255, 255)
    ToggleButton1.BackColor = RGB(0, 0, 0)
    UF_Interface.Show 'Userform I want to show when you click the button

End Sub

谢谢

Answer 1

如果我可以建议，如果您想使用切换按钮，
也许最好设置两个条件（如果 true 那么什么，如果 false 那么什么），
如下图所示：

所以在上图中，如果 true 则打开另一个 UF -如果为假那么关闭那个UF。

下面是 ToggleButton 所在的 UF 中的代码：

Private Sub UserForm_Initialize()
    With ToggleButton1
        .Caption = "OPEN UF_Interface"
        .BackColor = vbYellow
    End With
End Sub

Private Sub ToggleButton1_Click()
With ToggleButton1
    If .Value = True Then
        .Caption = "CLOSE UF_Interface"
        .BackColor = vbGreen
        UF_Interface.Show vbModeless
    Else
        .Caption = "OPEN UF_Interface"
        .BackColor = vbYellow
        Unload UF_Interface
    End If
End With
End Sub

两个用户窗体（UF_Interface 和带有切换按钮的窗体）都必须以 vbModeless 状态显示。所以你需要在常规模块中创建另一个子模块，如下所示：

Sub OpenFormWithToggleButton()
FormWithToggleButton.Show vbModeless
End Sub

Answer 2

在@karma的帮助下，我这样修改了我的代码（因为我无法更改“正常”按钮的颜色，即使我想要它的工作方式）：

Private Sub ToggleButton1_Click()
    With ToggleButton1
        If .Value = True Then
            .Caption = "Afficher l'interface"
            .BackColor = vbBlack
            .Value = False
            UF_Interface.Show 'Userform I wanted to show
        End If
    End With
End Sub