Включение скроллинга мышью в окне кода VBA

  • Автор темы Автор темы wOxxOm
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.

wOxxOm

Участник
Топикстартер
Сообщения
798
Реакции
3
Скроллинг мышью можно включить в окне редактирования кода VBA и Watches, с помощью невероятной программы AutoHotKey. Используйте последнюю версию, т.к. код предначзначен для 1.0.43+
это через события, работает как часы!!!

Держим Shift чтоб крутить постранично

вот этот код должен быть в AutoHotKey.ini в каталоге AutoHotKey
Код:
#ifwinactive ahk_class wndclass_desked_gsk
~*WheelDown::ScrollVBA(1)
~*WheelUp::ScrollVBA(0)
ScrollVBA(scrollCode) ;; 0=up, 1=down
{  ControlGetFocus,vbaCtl
   ControlGet,hwndVBActl,HWND,,%vbaCtl%
   winGetTitle,vbaTitle,ahk_id %hwndVBActl%
   if (inStr(vbaTitle,"(Code)"))
   {  ControlGet,hwndScroll,HWND,,ScrollBar2
      goto Scroll
   }
   ControlGetPos,cx,cy,cw,,%vbaCtl%
   loop,15
   {  ControlGetPos,sx,sy,,,ScrollBar%A_Index%
      if (abs(sx-cx-cw)<30) and (abs(sy-cy)<30)
      {  ControlGet,hwndScroll,HWND,,ScrollBar%A_Index%
         break
      }
   }
   ifEqual,hwndScroll,,return
Scroll:
   if (GetKeyState("Shift"))
      sendmessage,277,% 2+ScrollCode,%hwndScroll%,%vbaCtl%
   else
      loop,4
         sendmessage,277,%ScrollCode%,%hwndScroll%,%vbaCtl%
}
#ifWinActive
 
Статус
Закрыто для дальнейших ответов.