GB2&3- Roulelle de la souris

( Temps de lecture estimé à 1 min 01 sec )

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

PUBLIC SUB _new()
END

PUBLIC SUB form_OPEN()
me.center()
END

PUBLIC SUB 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

PUBLIC SUB button1_click()
me.CLOSE()
END

Téléchargez le petit exemple ICI en gambas 2

Edition du 02 mars 2023:

Une version est maintenant disponible en Gambas 3, Merci à Valaquarus pour sa contribution.

Copie d'écran :

Voici le code gambas 3 de ce tutoriel :

Public Sub form_mousewheel() 'mousewheel event
Label1.text = CStr(Mouse.Delta)

Select Case Label1.text
Case 1
      Label2.text = "On monte !" 'go up
Case -1
      Label2.text = "On descend !"'go down
End Select

If Mouse.Forward Then
      Label5.Text = "True"
      Label6.text = "on monte aussi !" 'go up too
Else
      Label5.Text = "False"
      Label6.text = "on descend aussi !" 'go down too
Endif
End

Public Sub button1_click()'close Form
Me.Close
End

Public Sub Form_Open()'Center Form
Me.Center()
End

et l'application en exemple qui va avec à télécharger ICI.

GB2&3- Roulelle de la souris

( Temps de lecture estimé à 1 min 01 sec )

Edition du 02 mars 2023:

Réaction à cet article

Écrire un commentaire