Fonctions Evenement Windows

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

Evenement (en anglais Event)

// Capture du clic souris sur un champ de saisie
WM_LBUTTONDOWN est un entier = 513
Evénement ("ClicSouris", "SAISIE1", WM_LBUTTONDOWN)

// Procédure ClicSouris
Procédure ClicSouris ()
SAISIE1 = "" // Remise à 0 du champ lorsque l'on clique dessus

Début de la page

FinEvenement (en anglais EndEvent)

// Capture du clic souris sur un champ de saisie
WM_LBUTTONDOWN est un entier = 513
IDEve est entier
IDEve = Evénement("ClicSouris", "SAISIE1", WM_LBUTTONDOWN)
...
// Arrêt de l'interception de WM_LBUTTONDOWN sur le champ "SAISIE1"
FinEvénement (IDEve)

Début de la page

FinTimer (en anglais EndTimer)

// Arrêt du timer lors du clic sur un bouton "ArrêtTimer"
SI FinTimer () = Faux ALORS
Erreur("Problème dans l'arrêt du timer")
SINON
Info("Arrêt du timer effectué")
FIN

Début de la page

FinTimerSys (en anglais EndTimerSys)

// Arrêt d'un timer par un bouton
SI FinTimerSys () = Faux ALORS
Erreur("Problème dans l'arrêt du timer")
SINON
Info("Timer arrêté")
FIN

Début de la page

Handle (en anglais Handle)

// Copier le contenu d'un champ de saisie dans le presse-papiers
SendMessage( Handle (SAISIE1), WM_COPY , 0, 0)

Début de la page

Handle (en anglais Handle)

// Rafraîchissement immédiat du dessin de CHAMP1
hwnd est un entier = Handle (CHAMP1)
AppelDLL32("USER32", "UpdateWindow", hwnd)

Début de la page

Multitache (en anglais Multitask)

// Boucle de calcul
POUR i = 1 à 10000
   ProcédureCalcul(i)
   // On rend la main au système pour afficher les résultats
   Multitâche ()
FIN
// Attendre 1 seconde
Multitâche (100)

Début de la page

PostMessage (en anglais PostMessage)

EXTERNE "WINCONST.wl"
// Simuler un clic sur un bouton
PostMessage (Handle(BOUTON1), WM_LBUTTONDOWN , 0, 0)
PostMessage (Handle(BOUTON1), WM_LBUTTONUP , 0, 0)

Début de la page

SendMessage (en anglais SendMessage)

// Copier le contenu d'un champ de saisie dans le presse-papiers
SendMessage(Handle(SAISIE1), WM_COPY , 0, 0)

Début de la page

SendMessage (en anglais SendMessage)

// Déclencher l'ouverture d'un menu contextuel sur un bouton
SendMessage(Handle(BOUTON1), WM_CONTEXTMENU , Handle(BOUTON1), -1)

Début de la page

Timer (en anglais Timer)

// Procédure permettant l'affichage régulier de l'heure dans HEURE1
Procédure AFFICH_HEURE()
HEURE1 = HeureSys()

// Traitement à l'ouverture de la fenêtre / de la page
// AFFICH_HEURE sera automatiquement appelée chaque seconde
SI Timer ("AFFICH_HEURE", 100, 1) = 0 ALORS
Erreur("Création du timer impossible")
FIN

Début de la page

Timersys (en anglais TimerSys)

// Procédure permettant l'affichage régulier de l'heure dans Heure1
Procédure Affich_Heure()
Heure1 = HeureSys()

// Traitement à l'ouverture de la fenêtre
// Affich_heure sera appelée à chaque seconde
SI TimerSys ("Affich_heure", 100, 1) = 0 ALORS
Erreur("Création du timer impossible")
FIN

Début de la page