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
------------------------------------------------------------------------------
Enter the BlackBerry Developer Challenge
This is your chance to win up to $100,000 in prizes! For a limited time,
vendors submitting new applications to BlackBerry App World(TM) will have
the opportunity to enter the BlackBerry Developer Challenge. See full prize
details at: http://p.sf.net/sfu/Challenge
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
