FORM Get current page
FORM Get current page {( * )} : Integer
| Paramètre | Type | Description | |
|---|---|---|---|
| * | Opérateur | → | Retourner le numéro de la page du sous-formulaire courant |
| Résultat | Integer | ← | Numéro de la page courante du formulaire courant |
Cette commande n'est pas thread-safe, elle ne peut pas être utilisée dans du code préemptif.
Description
FORM Get current page retourne le numéro de la page courante du formulaire actuellement affiché ou du formulaire courant chargé via la commande FORM LOAD.
Le paramètre * est utile lorsque la commande est appelée dans le contexte d’un sous-formulaire en page contenant plusieurs pages. Dans ce cas, si vous passez ce paramètre, la commande retourne le numéro de la page courante du sous-formulaire courant (celui qui a appelé la commande). Par défaut, si le paramètre * est omis, la commande s’applique toujours au formulaire parent.
Exemple
Alors que vous êtes en train d'utiliser un formulaire, si vous choisissez une commande de menu ou si le formulaire reçoit un appel d'un autre process, vous voulez que des actions différentes soient effectuées en fonction de la page du formulaire affichée. Vous pouvez alors écrire :
// Méthode formulaire [maTable];"monFormulaire"
Case of
:(FORM Event=On Load)
// ...
:(FORM Event=On Unload)
// ...
:(FORM Event=On Menu Selected)
$vlNuméroMenu:=Menu selected>>16
$vlNuméroCmde:=Menu selected & 0xFFFF
Case of
:($vlNuméroMenu=...)
Case of
:($vlNuméroCmde=...)
:(FORM Get current page=1)
// Effectuer une action appropriée pour la page 1
:(FORM Get current page=2)
// Effectuer une action appropriée pour la page 2
// ...
:($vlNuméroCmde=...)
// ...
End case
:($vlNuméroMenu=...)
// ...
End case
:(FORM Event=On Outside Call)
Case of
:(FORM Get current page=1)
// Fournir une réponse appropriée pour la page 1
:(FORM Get current page=2)
// Fournir une réponse appropriée pour la page 2
End case
// ...
End case
Voir aussi
FORM FIRST PAGE
FORM GOTO PAGE
FORM LAST PAGE
FORM NEXT PAGE
FORM PREVIOUS PAGE