Intercepter une touche PSION
Bonjour à tous,
Voilà je suis sur une application WD Mobile 12 qui utilise plusieurs plans. J'aimerai que si je suis sur mon plan 11 et que l'utilisateur appui sur la touche flèche droite passer au plan 12 et si je suis sur le plan 12 s'il appuie sur la touche flèche gauche revenir au plan 11 comme un défilement quoi.
J'ai fait ce code :
Code:
1
2
3
4
5
6
7
8
9
| Multitâche()
SI FENAccueil..Plan = 11 ALORS
nTouche est un entier = 0x27 // Flèche droite
// Vérifie si la touche Flèche droite a changé d'état depuis le dernier appui
SI ToucheEnfoncée(nTouche) ALORS
FENAccueil..Plan = 12
FIN
FIN |
dans l'évènement Touche Relachée ... mais sans succès ... je ne comprend pas...
Comment puis-je faire ?
Merci d'avance
Intercepter une touche PSION
Bonjour,
en cherchant autre chose sur ce forum concernant les PSION, j'ai lu votre message.
j'ai eu la même problématique à régler et ça marche très bien par les événements. voici le code ci-dessous :
Dans le code INITIALISATION du projet
Code:
1
2
3
4
|
// Intégrer les fichiers "KeyConst.WL" et "WinConst.WL"
EXTERNE "KeyConst.WL"
EXTERNE "WinConst.WL" |
Dans le code INITIALISATION DE LA FENETRE
Code:
1
2
3
|
// Intercepter l'appui sur une touche du Pocket PC
Evénement(QuelleTouche, "NomFenetre", WM_KEYDOWN) |
Création de la procédure locale "Quelletouche" contenant le code :
Code:
1
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
|
PROCEDURE QuelleTouche()
// Les touches droites et gauches changent de plan
// Vérifie si la touche Flèche gauche est enfoncée
SI ToucheEnfoncée(VK_LEFT) ALORS
// Changement de plan décroissant
SI MaFenêtre..Plan = 1 ALORS
MaFenêtre..Plan = 7
SINON
MaFenêtre..Plan --
FIN
ToucheEnfoncée(VK_LEFT,Faux)
FIN
// Vérifie si la touche Flèche droite est enfoncée
SI ToucheEnfoncée(VK_RIGHT) ALORS
// changement de plan Croissant
SI MaFenêtre..Plan = 7 ALORS
MaFenêtre..Plan = 1
SINON
MaFenêtre..Plan ++
FIN
ToucheEnfoncée(VK_RIGHT,Faux)
FIN |
Avec ce code, j'ai réussi à utiliser les touches du pocket pour changer de plan. on "boucle" sur les plans cad que si je suis sur le dernier plan et que je continue à aller vers la droite je "reviens" au plan 1 et inversement.
Si ce code peu vous rendre service
Dominique
