Поделиться через


Пример использования событий SpinDown и SpinUp и свойства Delay

В следующем примере показан интервал времени между последовательными событиями Change, SpinUp и SpinDown , которые возникают, когда пользователь удерживает кнопку мыши, чтобы изменить значение SpinButton или ScrollBar.

В этом примере пользователь выбирает параметр задержки, а затем щелкает и удерживает обе стороны SpinButton. События SpinUp и SpinDown записываются в ListBox по мере их инициации.

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:

  • Элемент SpinButton с именем SpinButton1.
  • Два элемента управления OptionButton с именами OptionButton1 и OptionButton2.
  • Элемент ListBox с именем 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.