FORM Get current page

4D v20 R7


FORM Get current page {( * )} -> Resultado

Parámetro	Tipo	Descripción
*	Operador	Devuelve el número de página de subformulario actual
Resultado	Entero largo	Número de la página del formulario mostrada actualmente

Descripción

El comando FORM Get current page devuelve el número de la página actual del formulario mostrada actualmente o del formulario actual cargado vía el comando FORM LOAD.

El parámetro * es útil cuando el comando se llama en el contexto de un subformulario en página que contiene varias páginas. En este caso, cuando pase este parámetro, el comando cambia la página del subformulario actual (la que llamó al comando). Por defecto, cuando se omite el parámetro *, el comando se aplica siempre al formulario padre.

Ejemplo

In a form, when you select a menu item from the menu bar or when the form receives a call from another process, you can perform different actions depending on the form page currently displayed. In this example, you write:

En un formulario, si selecciona un elemento de menú de la barra de menús o si el formulario recibe una llamada de otro proceso, puede realizar diferentes acciones dependiendo de la página del formulario mostrada actualmente. En este ejemplo, usted escribe:

  ` Método de formulario [miTabla];"miForm"

 Case of

    :(FORM Event=On Load)

  ` ...

    :(FORM Event=On Unload)

  ` ...

    :(FORM Event=On Menu Selected)

       $vlNumeroMenu:=Menu selected>>16

       $vlNumeroCmdo:=Menu selected & 0xFFFF

       Case of

          :($vlNumeroMenu=...)

             Case of

                :($vlNumeroCmdo=...)

                :(FORM Get current page=1)

  ` Efectuar una acción apropiada para la página 1

                :(FORM Get current page=2)

  ` Efectuar una acción apropiada para la página 2

  ` ...

                :($vlItemNumber=...)

  ` ...

             End case

          :($vlMenuNumber=...)

  ` ...

       End case

    :(FORM Event=On Outside Call)

       Case of

          :(FORM Get current page=1)

  ` Dar una respuesta apropiada para la página 1

          :(FORM Get current page=2)

  ` Dar una respuesta apropiada para la página 2

       End case

  ` ...

 End case

Ver también

FORM FIRST PAGE
FORM GOTO PAGE
FORM LAST PAGE
FORM NEXT PAGE
FORM PREVIOUS PAGE