我試圖讓一個ToggleButton看起來總是黑色的，但是當點擊時，頂部總是出現這個灰色蒙版（可能是“點擊”效果）：
我發現你可以洗掉它，但我現在false .Value的ToggleButton問題是我正在制作的用戶表單在關閉后再次出現。有沒有辦法解決這個問題？當您單擊按鈕時，這是我的子：
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
謝謝
uj5u.com熱心網友回復：
如果我可以建議，如果您想使用 ToggleButton，
也許最好設定兩個條件（如果為真，則為什么，如果為假，則為什么），
如下圖所示：
所以在上圖中，如果為真則打開另一個 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
uj5u.com熱心網友回復：
在@karma的幫助下，Button我以這種方式修改了我的代碼（因為即使我想要它的作業方式，我也無法改變“正常”的顏色）：
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/433794.html