Exemplo dos eventos SpinDown, SpinUp, da propriedade Delay

O exemplo a seguir demonstra o intervalo de tempo entre sucessivos eventos Change, SpinUp e SpinDown que ocorrem quando um usuário segura o botão do mouse para alterar o valor de um SpinButton ou ScrollBar.

Neste exemplo, o usuário escolhe uma configuração de atraso e, em seguida, clica e segura ambos os lados de um SpinButton. Os eventos SpinUp e SpinDown são registrados em uma ListBox à medida que são iniciados.

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:

• Um SpinButton denominado SpinButton1.
• Dois controles OptionButton chamados OptionButton1 e OptionButton2.
• A ListBox named ListBox1.

Dim EventCount As Long 
 
Private Sub ResetControl() 
 ListBox1.Clear 
 EventCount = 0 
 SpinButton1.Value = 5000 
End Sub 
 
Private Sub UserForm_Initialize() 
 SpinButton1.Min = 0 
 SpinButton1.Max = 10000 
 ResetControl 
 
 SpinButton1.Delay = 50 
 OptionButton1.Caption = "50 millisecond delay" 
 OptionButton2.Caption = "250 millisecond delay" 
 
 OptionButton1.Value = True 
End Sub 
 
Private Sub OptionButton1_Click() 
 SpinButton1.Delay = 50 
 ResetControl 
End Sub 
 
Private Sub OptionButton2_Click() 
 SpinButton1.Delay = 250 
 ResetControl 
End Sub 
 
Private Sub SpinButton1_SpinDown() 
 EventCount = EventCount + 1 
 ListBox1.AddItem EventCount 
End Sub 
 
Private Sub SpinButton1_SpinUp() 
 EventCount = EventCount + 1 
 ListBox1.AddItem EventCount 
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.