SpinDown、SpinUp 事件和 Delay 属性示例

下例中，演示当用户按下鼠标按键来更改数值调节钮或滚动条的值时，连续的 Change、SpinUp 和 SpinDown 事件之间的时间间距。

该示例中，用户选择延时设置，然后单击并按住数值调节钮的任一边。当 SpinUp 和 SpinDown 事件初始化时，它们被记录在列表框中。

窗体包含：

• 名为 SpinButton1 的数值调节钮。
• 名为 OptionButton1 和 OptionButton2 的两个选项按钮控件。
• 名为 ListBox1 的列表框。

Dim EventCount

Sub ResetControl()
    UserForm_ListBox1.Clear
    EventCount = 0
    UserForm_SpinButton1.Value = 5000
End Sub

Sub UserForm_Initialize()
    UserForm_SpinButton1.Min = 0
    UserForm_SpinButton1.Max = 10000
    ResetControl
    
    UserForm_SpinButton1.Delay = 50
    UserForm_OptionButton1.Caption = "50 millisecond delay"
    UserForm_OptionButton2.Caption = "250 millisecond delay"
        
    UserForm_OptionButton1.Value = True
End Sub

Sub UserForm_OptionButton1_Click()
    UserForm_SpinButton1.Delay = 50
    ResetControl
End Sub

Sub UserForm_OptionButton2_Click()
    UserForm_SpinButton1.Delay = 250
    ResetControl
End Sub

Sub UserForm_SpinButton1_SpinDown()
    EventCount = EventCount + 1
    UserForm_ListBox1.AddItem EventCount
End Sub

Sub UserForm_SpinButton1_SpinUp()
    EventCount = EventCount + 1
    UserForm_ListBox1.AddItem EventCount
End Sub