切換按鈕 控件具有相同外觀作為一個 CommandButton 控件在您單擊它。 當(dāng)單擊 切換按鈕 控件, 它似乎按或推。 當(dāng)未選中按鈕 Value 屬性的 切換按鈕 控件是 True 選擇按鈕時， False 。 如果 TripleState 屬性的值為 True , ToggleButton 控件還可以 Null 值。 可用似乎具有 Null 值 切換按鈕 控件。
注意 On 值， 是 值, 和 True 值表明選定 ToggleButton 控件。 Off 值、 無 值, 和 False 值表明未選中 ToggleButton 控件。
如何獲取 ToggleButton 控件的值
要獲取值 ToggleButton 控件, 請按照下列步驟操作：
| 1. | 啟動 Excel, 并打開新空白工作簿。 |
| 2. | 在 工具 菜單, 指向 宏 , 然后單擊 VisualBasic 編輯器 。 |
| 3. | 在 插入 菜單上, 單擊要在工作簿中插入 UserForm UserForm 。 |
| 4. | 添加 UserForm 上一個 切換按鈕 控件。 |
| 5. | 將 Label 控件添加到 UserForm。 |
| 6. | 雙擊要打開代碼窗口為 ToggleButton 控件 切換按鈕 控件。 |
| 7. | 在代碼窗口, 為 ToggleButton1Click 事件鍵入下列代碼： Private Sub ToggleButton1_Click() If ToggleButton1.Value = True Then ' Set UserForm background to Red. Me.BackColor = RGB(255, 0, 0) Else ' Set UserForm background to Blue. Me.BackColor = RGB(0, 0, 255) End If End Sub |
| 8. | 在 運行 菜單上, 單擊 運行子過程 / 用戶窗體 。 |
當(dāng)您單擊 切換按鈕 控件, 的 UserForm 更改背景色。
如何創(chuàng)建互斥 ToggleButton 控件組
本示例將變量使用 MouseUp 事件并調(diào)用 ExclusiveToggleButtons 過程。 ExclusiveToggleButtons 過程決定 ToggleButton 控件， 選中, 然后取消其他。 若要創(chuàng)建互斥 ToggleButton 控件組, 請按照下列步驟：
| 1. | 啟動 Excel, 并打開新空白工作簿。 |
| 2. | 在 工具 菜單, 指向 宏 , 然后單擊 VisualBasic 編輯器 。 |
| 3. | 在 插入 菜單上, 單擊 模塊 。 |
| 4. | 在代碼窗口為模塊, 鍵入如下代碼： ' Variable that holds the name of the ToggleButton that was clicked. Public clicked As String Sub ExclusiveToggleButtons() Dim toggle As Control ' Loop through all the ToggleButtons on Frame1. For Each toggle In UserForm1.Frame1.Controls ' If Name of ToggleButton matches name of ToggleButton ' that was clicked... If toggle.Name = clicked Then '...select the button. toggle.Value = True Else '...otherwise clear the selection of the button. toggle.Value = False End If Next End Sub |
| 5. | 在 插入 菜單上, 單擊要在工作簿中插入 UserForm UserForm 。 |
| 6. | 將 Frame 控件添加到 UserForm。 |
| 7. | Frame 控件中添加一個 切換按鈕 控件。
重復(fù)此步驟向 Frame 控件中添加兩個詳細(xì) 切換按鈕 控件。 |
| 8. | 雙擊以顯示代碼窗口對于 UserForm Frame 控件。 |
| 9. | 在代碼窗口為模塊, 為 ToggleButton MouseUp 事件鍵入下列代碼： Private Sub ToggleButton1_MouseUp(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) clicked = ToggleButton1.Name Application.OnTime Now, "ExclusiveToggleButtons" End Sub Private Sub ToggleButton2_MouseUp(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) clicked = ToggleButton2.Name Application.OnTime Now, "ExclusiveToggleButtons" End Sub Private Sub ToggleButton3_MouseUp(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) clicked = ToggleButton3.Name Application.OnTime Now, "ExclusiveToggleButtons" End Sub |
| 10. | 在 運行 菜單上, 單擊 運行子過程 / 用戶窗體 。 |
單擊 切換按鈕 控件, 時取消以前選定 切換按鈕
