Ejemplo de control ScrollBar y evento Scroll

En el ejemplo siguiente se muestra la barra de desplazamiento independiente e informa del cambio en su valor a medida que el usuario mueve el cuadro de desplazamiento. El usuario puede mover el cuadro de desplazamiento haciendo clic en cualquiera de las flechas de los extremos del control, haciendo clic en la región entre el cuadro de desplazamiento y cualquiera de las flechas, o arrastrando el cuadro de desplazamiento. Cuando el usuario arrastra el cuadro de desplazamiento, el evento Scroll muestra un mensaje que indica que el usuario se desplazó para obtener el nuevo valor.

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

• Un ScrollBar llamado ScrollBar1.
• Dos controles Label denominados Label1 y Label2. Label1 contiene información de escala para el usuario. Label2 informa sobre el valor 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

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.