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

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

DnDAccepte (en anglais DnDAccept)

// Procédure appelée par l'événement dndLâcher
PROCEDURE SurLâcher()
// Seul le déplacement est autorisé (pas la copie)
DnDAccepte ( dndDéplacer )


Début de la page

DnDCurseur (en anglais DnDCursor)

// Procédure appelée par l'événement dndSurvol
PROCEDURE SurSurvol()
// Curseur indiquant le déplacement
DnDCurseur ( dndDéplacer )


Début de la page

DnDDonne (en anglais DnDCacheData)

// Procédure appelée par l'événement dndDébutGlisser
PROCEDURE DébutGlisser ()
// La valeur du champ source "Saisie" est copiée/déplacée
// Le type de cette donnée est une chaîne de caractères

DnDDonne
( CF_TEXT , Saisie ..Valeur)


Début de la page

DnDDonne (en anglais DnDCacheData)

// Structure Windows permet de gérer le DND avec l'explorateur
POINT est une structure
   x,y sont des entiers
FIN

DROPFILES est une structure
   pFiles est un entier // pointeur vers la liste des fichiers
   PT est un POINT // position d'origine de la souris
   fNC est un booléen // réservé
   fWide est un booléen // Vrai si la liste des fichiers est en UNICODE, faux sinon
FIN

sBuffer est une chaîne
// Remplit une structure HDROP
stDROPFILES est un DROPFILES 
stDROPFILES:fNC = Vrai
stDROPFILES:fWide = Faux
stDROPFILES:PT:x = 0
stDROPFILES:PT:y = 0
stDROPFILES:pFiles = Dimension(stDROPFILES)

// Alloue un buffer de la taille de la structure
sBuffer = Répète(" ", Dimension(stDROPFILES))

// Transfert le contenu de la structure dans le buffer
Transfert(&sBuffer, &stDROPFILES, Dimension(stDROPFILES))

// Ajoute le fichier donné à la fin du buffer
sBuffer += Remplace(sCheminFichier, RC , Caract(0)) + Caract(0) + Caract(0)

// Donne un HDROP
DnDDonne( CF_HDROP , &sBuffer, Taille(sBuffer))


Début de la page

DnDDonneeDisponible (en anglais DnDIsDataAvailable)

// Seule la copie de type "CF_TEXT" est autorisée
SI DnDDonnéeDisponible ( CF_TEXT ) = Vrai ALORS
   ResRécupère = DnDRécupère(CF_TEXT)
FIN


Début de la page

DnDEvenement (en anglais DnDEvent)

// Appel de la procédure SurLâcher lorsque le bouton gauche
// de la souris est relâché sur le champ cible "Rechercher"
DnDEvénement ("SurLâcher", "Rechercher", dndLâcher )


Début de la page

DnDRecupere (en anglais DnDGetData)

// Récupération des données de type "CF_TEXT"
SI DnDDonnéeDisponible( CF_TEXT ) = Vrai ALORS
   ResRécupère = DnDRécupère (CF_TEXT)
FIN


Début de la page

ExplorerAccepte (en anglais ExplorerAccept)

// Initialisation du dialogue
ExplorerAccepte( Vrai , "Fen1")


Début de la page

ExplorerRecupere (en anglais ExplorerRetrieve)

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


Début de la page