Current form page

versión 3

Current form page Numérico

El comando Current form page devuelve el número de la página del formulario mostrada actualmente .

En un formulario, cuando selecciona un comando de menú desde la barra de menú o cuando 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=...)
                     : (Current form page=1)
                        ` Efectuar una acción apropiada para la página 1
                     : (Current form 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
            : (Current form page=1)
               ` Dar una respuesta apropiada para la página 1
            : (Current form page=2)
               ` Dar una respuesta apropiada para la página 2
         End case
            ` ...
   End case

FIRST PAGE, GOTO PAGE, LAST PAGE, NEXT PAGE, PREVIOUS PAGE.