Discussion :

[juju1988]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[juju1988]

Bon et bien à la place de le faire sur un évènement je l'ai fait dans une procédure qui est exécutée pendant toute l'éxécution de mon programme

[dvinet17]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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