Compartir a través de

Ejemplo de eventos SpinDown y SpinUp, y propiedad Delay

  • Artículo

En el ejemplo siguiente se muestra el intervalo de tiempo entre los eventos Change, SpinUp y SpinDown sucesivos que se producen cuando un usuario mantiene presionado el botón del mouse para cambiar el valor de un SpinButton o ScrollBar.

En este ejemplo, el usuario elige una configuración de retraso y, a continuación, hace clic y mantiene presionado cualquier lado de un SpinButton. Los eventos SpinUp y SpinDown se registran en un ListBox a medida que se inician.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contenga:

  • Un control SpinButton denominado SpinButton1.
  • Dos controles OptionButton denominados OptionButton1 y OptionButton2.
  • Un control ListBox denominado 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.