Exemplo dos eventos SpinDown, SpinUp, da propriedade Delay

O exemplo seguinte demonstra o intervalo de tempo entre eventos de Alteração, SpinUp e SpinDown sucessivos que ocorrem quando um utilizador mantém premido o botão do rato para alterar o valor de um SpinButton ou de uma Barra de Deslocamento.

Neste exemplo, o utilizador escolhe uma definição de atraso e, em seguida, clica e mantém um dos lados de um SpinButton. Os eventos SpinUp e SpinDown são registados numa Caixa de Listagem à 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 controlos OptionButton denominados 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.