4D Write v16

WR APPELER SUR COMMANDE

Accueil

 
4D Write v16
WR APPELER SUR COMMANDE

WR APPELER SUR COMMANDE 


 

WR APPELER SUR COMMANDE ( zone ; méthode4D ) 
Paramètre Type   Description
zone  Entier long in Zone 4D Write
méthode4D  Chaîne in Méthode de remplacement

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

 
PROPRIÉTÉS 

Produit : 4D Write
Thème : WR Contrôle de la zone
Numéro : 89498
Nom intl. : WR ON COMMAND

 
HISTORIQUE 

Créé : 4D Write 6.5

 
UTILISATION DE L'ARTICLE

4D Write - Langage ( 4D Write v16)