Pular para o conteúdo
Início » Advpl VTSave Screen

Advpl VTSave Screen

    Tipo: TELNET VT100
    Grava a tela corrente numa variável
    Sintaxe
    VTSAVE SCREEN TO <idVar>
    Parâmetros
    TO <idVar> especifica a variável que serão atribuídos os conteúdos da tela corrente.
    Exemplo
    #include ‘apvt100.ch’
    VTSave Screen To aTela
    cVar1 := cVar2 := cVar3 := SPACE(10)
    @ 1, 1 VTSAY " Um :" VTGET cVar1 VALID !EMPTY(cVar1)
    @ 2, 1 VTSAY " Dois:" VTGET cVar2 WHEN RTRIM(cVar1) != "Um"
    @ 3, 1 VTSAY " Tres:" VTGET cVar3 VALID !EMPTY(cVar3)
    VTREAD
    VTRestore Screen From aTela