Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Крутилка колёсиком - vba
 
#1
27.11.2022 19:05:57
Всем Привет!

Есть задачка, пока не получилось реализовать, может кто знает способ?
Необходимо привязать выполнение макроса на скроллинг мышки для поворота картинки колёсиком.  в момент когда курсор
находится на ней. В двух словах надо чтобы картинка вращалась если на неё навести курсор и крутить колёсико.
 
 
 
#2
28.11.2022 01:46:29
Перехватить колесик можно, вопрос, как удержать лист от скроллинга..
 
 
 
#3
28.11.2022 02:39:05
Не очень изящно, но работает )
 
 
 
#4
28.11.2022 11:41:04
Возникают ошибки, первая как я понял связана с разрядностью системы, решилась добавлением PtrSafe,
а вторая -Type mismatch - остановка на AddressOf LowLevelMouseProc(
 
 
 
#5
28.11.2022 12:14:18
Александр.М, я в этом тоже не эксперт, посмотрите здесь https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=98524
По файлу там, где
Код
Case WM_MOUSEMOVE '
                HookRun = HookRun + 1
                If HookRun > 6 Then

6 лучше поменять на какую-то бОльшую цифру, будет стабильнее работать
 
 
 
#6
28.11.2022 12:55:20
В любом случае спасибо, буду разбираться)
 
 
 
#7
28.11.2022 13:09:32
По поводу второй картинки, возможно возврат функции нужно указать LongPtr или вообще все
Код
Private Function LowLevelMouseProc(ByVal uCode As LongPtr, ByVal wParam As LongPtr, lParam As MSLLHOOKSTRUCT) As LongPtr
 
 
 
Страницы: 1
Наверх