Pular para o conteúdo
Início » Advpl VTSet Key

Advpl VTSet Key

    Tipo: TELNET VT100
    Atribui a chamada de uma rotina a uma tecla
    Sintaxe
    VTSET KEY <nCodigoTecla> TO [<idRotina>]

    Parâmetros
    <nCodigoTecla> ‚ o valor VTINKEY() da tecla a qual se atribui a rotina.
    TO <idRotina> especifica o nome da rotina que é executada quando se aperta uma tecla. Se <idRotina> não é
    especificada, a definição corrente é liberada.
    Exemplo
    Este exemplo demonstra como usar VTSET KEY para invocar uma rotina quando o usuário aperta. A tecla ‘A’.
    #include ‘apvt100.ch’
    VTSET KEY 65 TO TESTE
    CCodigo := space(6)
    @ 1, 1 VTGET cCodigo
    VTREAD
    RETURN
    FUNCTION Teste()
    @ 2,1 VTSay ‘TESTE’
    RETURN NIL