Évènement _MouseWheel
- Vous avez deux possiblités pour savoir si l'utilisateur a tourné la molette de sa souris vers l'avant ou vers l'arrière :
1°) Tester Mouse.Forward, vers l'avant de l'utilisateur la valeur est à True (c'est un boolean), vers l'arrière elle est à False :1
2
3
4
5
6
7
8
9
10
11
12
13
14
PUBLIC SUB PictureBox1_MouseWheel()
IF Mouse.Forward THEN
iDesign = iDesign + 1
IF iDesign > iNumImage THEN iDesign = 0
ELSE
iDesign = iDesign - 1
IF iDesign < 0 THEN iDesign = iNumImage
ENDIF
$iCount = iDesign
SetDesign(iDesign)
END
2°) Tester Mouse.Delta qui lui aussi, est en lecture seule mais est un Float :1
2
3
4
5
6
7
8
9
10
11
12
13
14
PUBLIC SUB PictureBox1_MouseWheel()
IF Mouse.delta > 0 THEN
iDesign = iDesign + 1
IF iDesign > iNumImage THEN iDesign = 0
ELSE
iDesign = iDesign - 1
IF iDesign < 0 THEN iDesign = iNumImage
ENDIF
$iCount = iDesign
SetDesign(iDesign)
END
Ces deux codes donneront le même résultat.
Un petit code de test à générer dans l'IDE :
L'exemple à télécharger ici : Roulette1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
' Gambas class file
PUBLIC SUB form_mousewheel()
Label1.text = CStr(Mouse.Delta)
SELECT CASE Label1.text
CASE 1
Label2.text = "On monte !"
CASE -1
Label2.text = "On descend !"
END SELECT
IF Mouse.Forward THEN
Label5.Text = "True"
Label6.text = "on monte aussi !"
ELSE
Label5.Text = "False"
Label6.text = "on descend aussi !"
ENDIF
END
PUBLIC SUB button1_click()
ME.Close
END====================
Navigation :
<-- Liens du Wiki <--
<-- Accueil du WIKI : <--====================
La Documentation :
- site officiel
- documentation officielle
- Gambas Linux
- Gambas Book (en anglais ou allemand) ou traduisible à la volée par Google Traduction : Translator
- Même page directement traduite en français
- Convention de Nommage des Variables
- Conventions de Nommage
====================
