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.