Pular para o conteúdo
Início » Advpl VTSetKey

Advpl VTSetKey

    Tipo: TELNET VT100
    Atribui um bloco de ação a uma tecla
    Sintaxe
    VTSETKEY(<nCodInkey>, [<bA‡ao>]) –> bAcaoCorrente
    Parâmetros
    <nCodInkey> ‚ o valor INKEY() da tecla a ser associada ou questionada.
    <bAcao> especifica o bloco de código a ser automaticamente executado sempre que a tecla especificada for
    pressionada durante um estado de espera.
    Retorna
    VTSETKEY() retorna o bloco de ação correntemente associado a tecla especificada, ou NIL caso a tecla especificada
    nao esteja associada a um bloco.
    Exemplo
    #include ‘apvt100.ch’
    bKeyAnt := VTSetKey(65,{|| teste()})
    CCodigo := space(6)
    @ 1, 1 VTGET cCodigo
    VTREAD
    VTSetKey(65,bKeyAnt)
    RETURN
    FUNCTION Teste()
    @ 2,1 VTSay ‘TESTE’
    RETURN NIL