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


L'exemple suivant permet de récupérer des fichiers par "Drag and Drop" depuis l'explorateur Windows. Les noms des fichiers sont affichés dans une fenêtre de Trace.



// Initialisation du dialogue
ExplorerAccepte( Vrai , "Fen1")
// Branchement de l'événement WM_DROPFILES
Evénement("Explorer", "*.", 563)
PROCEDURE Explorer()
Nb est un entier
i est un entier
// Récupération du nombre de fichiers
Nb = ExplorerRécupère (_eve.wparam)
// Récupération de tous les fichiers
POUR i = 1 à Nb
  
Trace( ExplorerRécupère (_eve.wparam, i))
FIN
// Fin du dialogue
ExplorerAccepte( Faux, "Fen1")