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