4D Write v16
WR ON COMMAND
WR ON COMMAND
| WR ON COMMAND ( zone ; méthode4D ) | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |
|
Zone 4D Write | |||||
| méthode4D | Chaîne |
|
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).
Vous souhaitez enregistrer tous vos documents dans le répertoire “Archives” présent sur votre disque.
C_LONGINT($1;$2)
Case of
:($2=wr cmd save as) `Si Enregistrer sous… est sélectionné
$DocNom:=Request("Nommez votre document : ")
If((OK=1) & ($DocNom#"")) `Si la boîte de dialogue est validée
`Sauvegardons le document dans le dossier désigné sur Mac
WR SAVE DOCUMENT($1;"Disque:Archives:"+$DocNom) `Mac
WR SAVE DOCUMENT($1;"D:\Archives\"+$DocNom) `Win
Else `Si le choix est incorrect
BEEP `Signalez-le à l’utilisateur par un beep
End if
Else `Si vous sélectionnez toute autre commande de menu
WR EXECUTE COMMAND($1;$2)
`Demandez son action standard
End case
` Contenu de la méthode formulaire :
If(Form event=On Load)
WR ON COMMAND(LaZone;"LaMéthode")
End if
Produit : 4D Write
Thème : WR Contrôle de la zone
Numéro :
89498
Créé : 4D Write 6.5
4D Write - Langage ( 4D Write v16)
