Я пытаюсь обнаружить левые и правые щелчки, которые происходят в рамке изображения, причем строка состояния и ячейки отображают разные вещи в зависимости от того, какой тип щелчка обнаружен. Первоначально я делал это с помощью события MouseDown, но это вызывало задержку как левого, так и правого щелчка. Когда я переключил MouseUp, задержка для щелчков левой кнопкой мыши была значительно минимизирована, но задержка для щелчков правой кнопкой мыши сохранялась. Под задержкой я подразумеваю, что когда я делаю 5 кликов с разумной скоростью, записываются только 1-й, 3-й и 5-й клики. Если щелкнуть правой кнопкой мыши достаточно медленно, все 5 могут быть обнаружены, но для моих целей мне нужно обнаруживать их при щелчке с нормальной (160 ударов в минуту) скоростью.
Public Sub Image1_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("X2:Z2").Insert
Range("X2") = Round(X)
Range("Y2") = Round(Y)
If Button = 1 Then
Application.StatusBar = "Hit Recorded"
Range("Z2") = "H"
ClearStatusBar
ElseIf Button = 2 Then
Application.StatusBar = "Miss Recorded"
Range("Z2") = "M"
ClearStatusBar
End If
If Application.WorksheetFunction.Ceiling_Math(X, 10) >= 310 Then
Range("X2") = 310
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Буду признателен за любую помощь .