Table of contents
TOC
Collapse the table of content
Expand the table of content

SpinDown, SpinUp Events, Delay Property Example

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

The following example demonstrates the time interval between successive Change, SpinUp, and SpinDown events that occur when a user holds down the mouse button to change the value of a SpinButton or ScrollBar.

In this example, the user chooses a delay setting, then clicks and holds down either side of a SpinButton. The SpinUp and SpinDown events are recorded in a ListBox as they are initiated.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

  • A SpinButton named SpinButton1.

  • Two OptionButton controls named OptionButton1 and OptionButton2.

  • A ListBox named ListBox1.

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
© 2018 Microsoft