Exemple d'utilisation de la commande CurseurCapture

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

L'exemple suivant permet de capturer :

- l'enfoncement du bouton gauche de la souris,

- le relâchement du bouton droit de la souris,

- le déplacement de la souris.

De l'enfoncement du bouton de la souris jusqu'à son relâchement, les événement de la souris sont re-dirigés vers la fenêtre. La position de la souris est affichée dans la barre de message.

// Création d'un bouton avec le code suivant sur le clic
Evénement("CurseurDébut", "*.", 513) // WM_LBUTTONDOWN
Evénement("Curseur", "*.", 512) // WM_MOUSEMOVE
Evénement("CurseurFin", "*.", 514) // WM_LBUTTONUP

PROCEDURE CurseurDébut
CurseurCapture ()

PROCEDURE Curseur
Pos est un entier long
Pos = CurseurPos( cpEcran )
Message(PoidsFaible(Pos) + " " + PoidsFort(Pos))

PROCEDURE CurseurFin
CurseurCapture ( Faux )