Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

SET Inichoice

Propósito

Posicionar a barra luminosa para a função ACHOICE( ).

Sintaxe

SET INICHOICE TO <exp.N>

Argumentos

<exp.N>

representa a posição inicial da barra luminosa.

Utilização

Possibilita a escolha da opção inicial da barra luminosa em um menu montado pela função ACHOICE( ), a posição inicial da barra continua sendo na primeira linha do ACHOICE, o que move é a opção.

Deve-se levar em consideração que a função ACHOICE( ) retorna à posição da barra decrementada de um, portanto, para se colocar a barra na nona posição, <numero> deve ser igual a 8 (oito).

Exemplo

O exemplo a seguir mostra-nos o posicionamento da barra na escolha anterior.

PROG
A = 0
SET REVERSE ON
DECLARE VET_P1[3] = SPACE (10)
DECLARE VET_P2[3] = SPACE (10)
VET_P1 [1] = "PALAVRA 1"
VET_P1 [2] = "PALAVRA 2"
VET_P1 [3] = "PALAVRA 3"
VET_P2 [1] = "CONDICAO 1"
VET_P2 [2] = "CONDICAO 2"
VET_P2 [3] = "CONDICAO 3"
DO WHILE .T.
a = ACHOICE(10,20,14,31, VET_P1)
IF A = -1
EXIT
ENDIF
DO WHILE .T.
b = ACHOICE(15,20,19,31, VET_P2)
IF b= -1
EXIT
ENDIF
ENDDO
SET INICHOICE TO A
ENDDO

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!