Advertisement
Guest User

Untitled

a guest
Jun 1st, 2020
280
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;for Example
  2. ;套用範圍為AHKGUI上的所有滑動條
  3.  
  4. GUI,Add, Slider,x10 y+ Range0-10 TickInterval1 ,5 ;僅任意開兩條作例子
  5. GUI,Add, Slider,x10 y+ Range0-10 TickInterval1 ,5
  6. GUI,Show
  7. return
  8.  
  9. #If MouseIsOver("msctls_trackbar") ;檢查游標所在的視窗及控制, msctls_trackbarXXX為滑動條的ClassNN
  10. WheelUp::Send {WheelDown}
  11. WheelDown::Send {WheelUp}
  12. #If
  13.  
  14. MouseIsOver(vMouseOver){
  15.     MouseGetPos, , ,id , control ;此處得滑鼠游標所在的視窗ID及控制
  16.     WinGetClass, class, ahk_id %id% ;由視窗ID取得視窗Class
  17.     if (class = "AutoHotkeyGUI") AND control contains %vMouseOver% ;若游標所在視窗為AHKGUI 且 控制為 msctls_trackbarxxx
  18.             return 1
  19.     else
  20.         return 0
  21. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement