Exemplo do controle ScrollBar, do evento Scroll

O exemplo seguinte demonstra a Barra de Deslocamento autónoma e comunica a alteração no respetivo valor à medida que o utilizador move a caixa de deslocamento. O utilizador pode mover a caixa de deslocamento ao clicar numa seta nas extremidades do controlo ao clicar na região entre a caixa de deslocamento e a seta ou ao arrastar a caixa de deslocamento. Quando o utilizador arrasta a caixa de deslocamento, o evento Scroll apresenta uma mensagem a indicar que o utilizador se deslocou 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.