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


Le code suivant permet de copier/coller de données de type texte (constante CF_TEXT). Lorsque les données à copier/coller sont de type texte, ces données sont récupérées.



//- - Initialisation du champ cible "Rechercher"
Rechercher..DnDCible = dndProgrammé
// 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 )
// Appel de la procédure SurSurvol lorsque le curseur de la souris
// se déplace entre le champ source et le champ cible "Rechercher"
DnDEvénement("SurSurvol", "Rechercher", dndSurvol )

PROCEDURE SurSurvol()
// Type de donnée disponible ?
SI DnDDonnéeDisponible( CF_TEXT ) = Vrai ALORS
    // Curseur indiquant le déplacement
    DnDCurseur(dndDéplacer)
SINON
    // Curseur indiquant l'interdiction de déplacement
    DnDCurseur(dndInterdit)
FIN

PROCEDURE SurLâcher()
ResRécupère est une chaîne
// Type de donnée disponible ?
SI DnDDonnéeDisponible(CF_TEXT) = Vrai ALORS
    // Le déplacement est autorisé (pas le copier)
    DnDAccepte(dndDéplacer)
    ResRécupère = DnDRécupère (CF_TEXT)
SINON
    // Aucune action autorisée
    DnDAccepte(dndInterdit)
FIN