Événements SpinDown, SpinUp, propriété Delay – Exemple

L’exemple suivant illustre l’intervalle de temps entre les événements Change, SpinUp et SpinDown successifs qui se produisent lorsqu’un utilisateur maintient le bouton de la souris enfoncé pour modifier la valeur d’un SpinButton ou d’un ScrollBar.

Dans cet exemple, l’utilisateur choisit un paramètre de délai, puis clique et maintient l’un ou l’autre côté d’un SpinButton. Les événements SpinUp et SpinDown sont enregistrés dans un ListBox au fur et à mesure qu’ils sont lancés.

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

• un SpinButton nommé SpinButton1 ;
• Deux contrôles OptionButton nommés OptionButton1 et OptionButton2.
• un contrôle ListBox nommé 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.