Пример использования событий 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 и обратная связь.