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