Кнопка пропускает нажатия

[Debauchee]

Всем, доброго времени суток!
Имеется форма, на ней обычная кнопка (CommandButton) и простейший код, запускаемый кликом по этой кнопке. Обнаружил такой странный эффект, на который ранее никогда не обращал внимание: не все щелчки кнопки мыши отрабатываются на форме, при этом видно, что сама кнопка "нажимается", но код отрабатывается не всегда.

Тестовая процедура CommandButton1_Click() просто подсчитывает клики и выводит счетчик на форму. Но почему-то при 100 кликах счетчик показывает меньшие значения. Если нажимать не чаще раза в секунду и держать кнопку нажатой по секунде, то отрабатываются все клики без проблем.

Мышь исправна, компьютер работает вполне сносно, в других программах такого глюка не наблюдается.

Что это может быть за чертовщина и как с ней бороться?

[Казанский]

Да, такие вот тормозные кнопки (в 2007 офисе). Используйте SpinButton, он успевает отрабатывать + есть автоповтор + код очень простой

Private Sub SpinButton1_Change()
Label1 = SpinButton1
cur = SpinButton1 'если надо
End Sub

[Hugo121]

Вероятно какие-то клики определяются как даблклики.
P.S. Точно, посмотрел файл.
Добавьте в код ещё такие две процедуры:

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If cur > firstRow Then
        cur = cur - 1
        Me.Label1.Caption = cur & " dbl" 'для информации
    Else
        Exit Sub
    End If
End Sub

Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If cur < lastRow Then
        cur = cur + 1
        Me.Label1.Caption = cur & " dbl" 'для информации
    Else
        Exit Sub
    End If
End Sub

[Debauchee]

Казанский, спасибо!
SpinButton - действительно не глючит, но это не совсем то, что нужно. У меня просто тестовый скрипт, в боевом применении там все намного сложнее двух кнопок "<" и ">".

Hugo121, спасибо! Вы абсолютно правы, часть кликов почему-то отрабатывается, как DblClick.
Увеличение скорости двойного клика в настройках мыши уменьшает число ложных DblClick(ов), но не совсем. Выходит, что проблема все-таки в мыши?

[Hugo121]

Проблема думаю в том, что на кнопке есть обработка двойного клика, но перед ним обрабатывается одинарный. А как сделать двойной, не кликнув два раза по одному?

[Debauchee]

Попросил прогнать мой тест на нескольких офисных машинах с разными мышами и ОС. Просил поставить средние значения скорости двойного клика. Вышеозначенный глюк наблюдается везде, но результаты лучше на сервере с Win.Server-2003 и USB-мышью и на ноутбуке под Win 8 и тоже внешней USB-мышью.

А как сделать двойной, не кликнув два раза по одному?

Может есть способ, чтобы при инициализации формы как-то временно программно менять настройки драйвера мыши, а при выгрузке формы - восстанавливать эти настройки?

[Hugo121]

Да не при чём там драйвер - это кнопка обрабатывает одинарный клик, а если следом следует второй и уже получается даблклик - обрабатывает его как даблклик. На что у Вас обработчика то и не было - вот он и пропадал. Я обработчик добавил, и теперь у меня ничего не пропадает. У Вас пропадает?

[Debauchee]

С двумя обработчиками работает нормально, но ИМХО это как-то "некрасиво", что ли...

[Hugo121]

Букв жалко?
Используйте любой другой элемент, где нет обработки даблкликов. Я правда ничего не предложу - кроме уже предложенного SpinButton сходу ничего не помню, искать нужно...