| 4D v18FORM Get current page | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 
 | 
    4D v18
 FORM Get current page 
         | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| FORM Get current page {( * )} -> Resultado | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| * | Operador |   | Retorna o número da página de subformulário atual | |||||
| Resultado | Inteiro longo |   | Número da página de formulário exibida atualmente | |||||
O comando FORM Get current page retorna o número da página atual do formulário mostrado atualmente ou do formulário atual carregado via o comando FORM LOAD.
O parâmetro * é útil quando o comando é chamado no contexto de um subformulário em página que contém muitas páginas. Neste caso, quando passar este parâmetro, o comando muda a página do subformulário atual (a que chamou o comando). Por padrão, quando o parâmetro * é omitido, o comando é sempre aplicado ao formulário pai.
Em um formulário, se seleciona um comando de menu da barra de menu ou quando o formulário recebe uma chamada de outro processo, pode realizar diferentes ações dependendo da página do formulário mostrada atualmente. Neste exemplo, você escreve:
  ` Método de formulário [minhaTabela];"meuForm"
 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)
  ` Efetuar uma ação apropriada para a página 1
                :(FORM Get current page=2)
  ` Efetuar uma ação apropriada para a página 2
  ` ...
                :($vlItemNumber=...)
  ` ...
             End case
          :($vlMenuNumber=...)
  ` ...
       End case
    :(FORM Event=On Outside Call)
       Case of
          :(FORM Get current page=1)
  ` Dar uma resposta apropriada para a página 1
          :(FORM Get current page=2)
  ` Dar uma resposta apropriada para a página 2
       End case
  ` ...
 End case
	Produto: 4D
	Tema: Formulários
	Número 
        276
        
        
        
	
	Criado por: < 4D v6
	Renomear: 4D v12
	Modificado: 4D v13
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	Manual de linguagem 4D ( 4D v18)
	
	
	
	
	
 Adicionar um comentário
Adicionar um comentário