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.
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 )
|
DnDCurseur (en anglais DnDCursor)
// Procédure appelée par l'événement dndSurvol
PROCEDURE SurSurvol() // Curseur indiquant le déplacement DnDCurseur ( dndDéplacer )
|
DnDDonne (en anglais DnDCacheData)
// Procédure appelée par l'événement dndDébutGlisser
|
DnDDonne (en anglais DnDCacheData)
// Structure Windows permet de gérer le DND avec l'explorateur
|
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
|
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 )
|
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
|
ExplorerAccepte (en anglais ExplorerAccept)
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
|