4D v16.3
FORM Get current page
- 4D - Langage
-
- Formulaires
-
- CALL FORM
- Current form name
- FORM FIRST PAGE
- FORM Get current page
- FORM GET HORIZONTAL RESIZING
- FORM GET OBJECTS
- FORM GET PARAMETER
- FORM GET PROPERTIES
- FORM GET VERTICAL RESIZING
- FORM GOTO PAGE
- FORM LAST PAGE
- FORM LOAD
- FORM NEXT PAGE
- FORM PREVIOUS PAGE
- FORM SCREENSHOT
- FORM SET HORIZONTAL RESIZING
- FORM SET INPUT
- FORM SET OUTPUT
- FORM SET SIZE
- FORM SET VERTICAL RESIZING
- FORM UNLOAD
FORM Get current page
| FORM Get current page {( * )} -> Résultat | ||||||||
| Paramètre | Type | Description | ||||||
| * | Opérateur |
|
Retourner le numéro de la page du sous-formulaire courant | |||||
| Résultat | Entier long |
|
Numéro de la page courante du formulaire courant | |||||
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.
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
FORM FIRST PAGE
FORM GOTO PAGE
FORM LAST PAGE
FORM NEXT PAGE
FORM PREVIOUS PAGE
Produit : 4D
Thème : Formulaires
Numéro :
276
Créé : < 4D v6
Renommé : 4D v12
Modifié : 4D v13
4D - Langage ( 4D v16)
4D - Langage ( 4D v16.1)
4D - Langage ( 4D v16.2)
4D - Langage ( 4D v16.3)
