UTILISER LA ROULETTE DE LA SOURIS
pour savoir si vous faite rouler la souris dans un sens ou dans l'autre, il vous suffit d'utiliser l'instruction mouse.delta.
Ainsi en montant vous recuperez un integer de valeur 1 et en descendant un variant de valeur -1.
voici le code de l'application :
' gambas class File PUBLICSUB _new() END PUBLICSUB form_OPEN()
me.center END PUBLICSUB form_mousewheel()
label1.text = mouse.delta
select case label1.text
case 1
label2.text = "monter/up"
case -1
label2.text = "descENDre/down" END select END PUBLICSUB button1_click()
me.CLOSE END