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.
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
|