SpinDown、SpinUp 事件、Delay 屬性範例

下列範例示範當使用者按住滑鼠按鍵來變更SpinButton或ScrollBar的值時，連續變更、SpinUp 和 SpinDown事件之間的時間間隔。

在此範例中，使用者會選擇延遲設定，然後按一下並按住 SpinButton的任一端。 SpinUp和SpinDown事件會在起始時記錄在ListBox中。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定該表單包含：

• 一個名為 SpinButton1 的 SpinButton 。
• 兩個分別名為 OptionButton1 和 OptionButton2 的 OptionButton 控制項。
• 一個名為 ListBox1 的 ListBox 。

Dim EventCount As Long 
 
Private Sub ResetControl() 
 ListBox1.Clear 
 EventCount = 0 
 SpinButton1.Value = 5000 
End Sub 
 
Private Sub UserForm_Initialize() 
 SpinButton1.Min = 0 
 SpinButton1.Max = 10000 
 ResetControl 
 
 SpinButton1.Delay = 50 
 OptionButton1.Caption = "50 millisecond delay" 
 OptionButton2.Caption = "250 millisecond delay" 
 
 OptionButton1.Value = True 
End Sub 
 
Private Sub OptionButton1_Click() 
 SpinButton1.Delay = 50 
 ResetControl 
End Sub 
 
Private Sub OptionButton2_Click() 
 SpinButton1.Delay = 250 
 ResetControl 
End Sub 
 
Private Sub SpinButton1_SpinDown() 
 EventCount = EventCount + 1 
 ListBox1.AddItem EventCount 
End Sub 
 
Private Sub SpinButton1_SpinUp() 
 EventCount = EventCount + 1 
 ListBox1.AddItem EventCount 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。