Exemplo do controle ScrollBar, do evento Scroll

O exemplo a seguir demonstra a Barra de Rolagem autônoma e relata a alteração em seu valor à medida que o usuário move a caixa de rolagem. O usuário pode mover a caixa de rolagem clicando na seta nas extremidades do controle, clicando na região entre a caixa de rolagem e a seta ou arrastando a caixa de rolagem. Quando o usuário arrasta a caixa de rolagem, o evento Scroll exibe uma mensagem indicando que o usuário rolou para obter o novo valor.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

• Uma ScrollBar denominada ScrollBar1.
• Two Label controls named Label1 and Label2. Label1 contém informações de escala do usuário. Label2 relata o 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.