Auteur: Patrick BikerExemples é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 ).
|
||
|
//- - 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() // Le type de donnée est-il 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() // Le type de donnée est-il disponible ? SI DnDDonnéeDisponible ( CF_TEXT ) = Vrai ALORS // Le déplacement est autorisé (pas le copier) DnDAccepte(dndDéplacer) SINON // Aucune action autorisée DnDAccepte(dndInterdit) FIN
|
