Contrôle ScrollBar, événement Scroll – Exemple

L’exemple suivant illustre la barre de défilement autonome et signale la modification de sa valeur lorsque l’utilisateur déplace la zone de défilement. L’utilisateur peut déplacer la zone de défilement en cliquant sur une flèche aux extrémités du contrôle, en cliquant dans la région entre la zone de défilement et l’une ou l’autre flèche, ou en faisant glisser la zone de défilement. Lorsque l’utilisateur fait glisser la zone de défilement, l’événement Scroll affiche un message indiquant que l’utilisateur a fait défiler pour obtenir la nouvelle valeur.

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 ScrollBar nommé ScrollBar1 ;
• Deux contrôles Label nommés Label1 et Label2. Label1 contient des informations de mise à l’échelle pour l’utilisateur. Label2 indique la valeur delta.

Dim ScrollSaved As Integer 
'Previous ScrollBar setting 
 
Private Sub UserForm_Initialize() 
 ScrollBar1.Min = -225 
 ScrollBar1.Max = 289 
 ScrollBar1.Value = 0 
 
 Label1.Caption = "-225 -----Widgets----- 289" 
 Label1.AutoSize = True 
 
 Label2.Caption = "" 
End Sub 
 
Private Sub ScrollBar1_Change() 
 Label2.Caption = " Widget Changes " _ 
 & (ScrollSaved - ScrollBar1.Value) 
End Sub 
 
Private Sub ScrollBar1_Exit(ByVal Cancel as MSForms.ReturnBoolean) 
 Label2.Caption = " Widget Changes " _ 
 & (ScrollSaved - ScrollBar1.Value) 
 ScrollSaved = ScrollBar1.Value 
End Sub 
 
Private Sub ScrollBar1_Scroll() 
 Label2.Caption = (ScrollSaved - ScrollBar1 _ 
 .Value) & " Widget Changes by Scrolling" 
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.