WR APPELER SUR COMMANDE

4D Write v15


WR APPELER SUR COMMANDE ( zone ; méthode4D )

Paramètre	Type	Description
zone	Entier long	Zone 4D Write
méthode4D	Chaîne	Méthode de remplacement

Description

La commande WR APPELER SUR COMMANDE provoque l’exécution de la méthode passée en second paramètre lorsqu’une commande de 4D Write est invoquée par l'interface utilisateur, que ce soit à l'appel à une ligne de menu ou le clic dans un bouton. Si zone est égal à 0, méthode4D s’appliquera à toutes les zones 4D Write jusqu’à la fermeture de la base ou jusqu'à l'appel de WR APPELER SUR COMMANDE(0;"").

méthode4D recevra deux paramètres :

$1, Entier long qui représente zone.
$2, Entier long qui désigne le numéro de la commande.

Note : La liste des commandes et leur référence vous est fournie dans le thème de constantes “WR Commandes”.

En vue d’une compilation de la base, il est nécessaire de déclarer $1 et $2 en Entier long, même si vous ne les utilisez pas.

Si vous souhaitez que l'action originelle de la commande s'exécute, vous devez, dans la méthode appelée, passer WR EXECUTER COMMANDE($1;$2).

Exemple

Vous souhaitez enregistrer tous vos documents dans le répertoire “Archives” présent sur votre disque.

 C_ENTIER LONG($1;$2)

 Au cas ou

    :($2=wr cmd enregistrer sous) `Si Enregistrer sous… est sélectionné

       $DocNom:=Demander("Nommez votre document : ")

       Si((OK=1) & ($DocNom#"")) `Si la boîte de dialogue est validée

  `Sauvegardons le document dans le dossier désigné sur Mac

          WR SAUVER DOCUMENT($1;"Disque:Archives:"+$DocNom) `Mac

          WR SAUVER DOCUMENT($1;"D:\Archives\"+$DocNom)  `Win

       Sinon `Si le choix est incorrect

          BEEP `Signalez-le à l’utilisateur par un beep

       Fin de si

    Sinon `Si vous sélectionnez toute autre commande de menu

       WR EXECUTER COMMANDE($1;$2)

  `Demandez son action standard

 Fin de cas

 

  ` Contenu de la méthode formulaire :

 Si(Evenement formulaire=Sur chargement)

    WR APPELER SUR COMMANDE(LaZone;"LaMéthode")

 Fin de si

Voir aussi

WR EXECUTER COMMANDE
WR Lire methode sur commande