Freigeben über

SpinDown-Ereignis, SpinUp-Ereignis, Delay-Eigenschaft (Beispiel)

  • Artikel

Das folgende Beispiel veranschaulicht das Zeitintervall zwischen aufeinander folgenden Change-, SpinUp- und SpinDown-Ereignissen , die auftreten, wenn ein Benutzer die Maustaste gedrückt hält, um den Wert eines SpinButton - oder ScrollBar-Elements zu ändern.

In diesem Beispiel wählt der Benutzer eine Verzögerungseinstellung aus, klickt dann auf eine der beiden Seiten eines SpinButton und hält es gedrückt. Die SpinUp - und SpinDown-Ereignisse werden in einem ListBox-Element aufgezeichnet, während sie initiiert werden.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass im Formular Folgendes enthalten ist:

  • Ein SpinButton -Element mit der Bezeichnung "SpinButton1".
  • Zwei Optionsfeld-Steuerelemente ( OptionButton ) mit der Bezeichnung "OptionButton1" und "OptionButton2".
  • Ein ListBox -Steuerelement mit der Bezeichnung "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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.