[Gambas-user] Can I use the mousewheel to control system audio volume?

[Stefano Palmeri]

Il domenica 12 luglio 2009 01:30:26 Stefano Palmeri ha scritto:
> PUBLIC SUB Form_MouseWheel()
>  
>  
>   SELECT CASE Mouse.delta
>    
>     CASE 1
>         PRINT "mouse wheel up"
>     CASE -1
>          PRINT "mouse wheel down"
>  
>   END SELECT  
>
> END

I forgot about SHIFT+CTRL:

PUBLIC SUB Form_MouseWheel()
  
  IF Mouse.Control AND Mouse.Shift THEN 

    SELECT CASE Mouse.delta
      
      CASE 1 
          PRINT "mouse wheel up"
      CASE -1 
           PRINT "mouse wheel down"
    
    END SELECT   

  ENDIF 

END