pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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


Le code suivant permet d'ajouter un icone dans la barre des tâches. Le nom du fichier icone est "C:\MesIcones\Icones.ICO". Le nom du menu contextuel est "MenuIcone". Le message de survol de l'icone est "Ventes 2001". Lors d'une opération de la souris sur l'icone, la procédure "OuvreFichier" est appelée. Si l'opération de la souris sur l'icone correspond à un double clic gauche, la procédure "OuvreFichier" ouvre le fichier "C:\MesDocuments\Ventes2001.DOC" dans Word grâce à la fonction LanceAppliAssociée .



// Initialisation de la fenêtre AjoutIcone
CONSTANT
   WM_LBUTTONDBLCLK = 515
FIN

// Ajout d'un icone dans la barre des tâches
SysIconeAjoute("C:\MesIcones\Icones.ICO", "MenuIcone", "Ventes 2001", "OuvreFichier")

// Procédure locale OuvreFichier
PROCEDURE OuvreFichier(MessageSouris)
// Double-clic gauche ?
SI MessageSouris = WM_LBUTTONDBLCLK ALORS
    // Ouverture du fichier "C:\MesDocuments\Ventes2001.DOC" dans Word
    LanceAppliAssociée(
"C:\MesDocuments\Ventes2001.DOC" )
FIN


Le code suivant permet d'ajouter un icone dans la barre des tâches. Le nom du fichier icone est "\MesIcones\Icones.ICO". Le nom du menu contextuel est "MenuIcone". Le message de survol de l'icone est "Ventes 2001". Lors d'une opération du stylet sur l'icone, la procédure "OuvreFichier" est appelée. Si l'opération du stylet sur l'icone correspond à un clic, la procédure "OuvreFichier" ouvre le fichier "\MesDocuments\Ventes2001.TXT" dans Word grâce à la fonction LanceAppliAssociée .



// Initialisation de la fenêtre AjoutIcone
CONSTANT
   WM_LBUTTONDOWN = 513
FIN

// Ajout d'un icone dans la barre des tâches
SysIconeAjoute("\MesIcones\Icones.ICO", "MenuIcone", "Ventes 2001", "OuvreFichier")

// Procédure locale OuvreFichier
PROCEDURE OuvreFichier(MessageStylet)
// Clic ?
SI
MessageStylet = WM_LBUTTONDOWN ALORS
    // Ouverture du fichier "\MesDocuments\Ventes2001.txt" dans Word
    LanceAppliAssociée(
"\MesDocuments\Ventes2001.TXT" )
FIN