|
|
|
|
|
|
|
|
|
|
version 6.5
WR APPELER SUR COMMANDE (zone; méthode4D)
| Paramètre | Type | Description | |
| zone | Entier long |  | Zone 4D Write |
| méthode4D | Alpha | | 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
Référence
WR EXECUTER COMMANDE, WR Lire methode sur commande.
|
|
|
|
|
|
|
|
|
|