Lastkey

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

JuniorVaz
Usuário Nível 3
Usuário Nível 3
Mensagens: 100
Registrado em: 16 Jul 2004 15:49

Lastkey

Mensagem por JuniorVaz »

Ola amigos do Clipper on line, estou precisando saber...
se eu coloco no meu sistema por exemplo:
if lastkey=27
return
endif

Significa que se eu precionar esc, ele retorna, gostaria de saber os lastkeys das teclas F1 até F12, se alguem poder me ajudar ae... era só isso... vlw...
Avatar do usuário
Clipper
Colaborador
Colaborador
Mensagens: 1334
Registrado em: 23 Ago 2004 00:04
Localização: Recife/PE

Mensagem por Clipper »

Já respondido via messenger...

Até logo.

Marcelo
MARINI
Usuário Nível 3
Usuário Nível 3
Mensagens: 288
Registrado em: 06 Jul 2004 08:06
Localização: Pindamonhangaba SP

Re: Lastkey

Mensagem por MARINI »

JuniorVaz escreveu:gostaria de saber os lastkeys das teclas F1 até F12, se alguem poder me ajudar ae... era só isso... vlw...
Aqui tem:

http://www.clipx.net/ng/53guide/ng12ab2f.php



.
Sds
Marini
Avatar do usuário
Augusto
Usuário Nível 3
Usuário Nível 3
Mensagens: 473
Registrado em: 26 Ago 2003 17:50
Localização: Maricá/RJ
Contato:

Mensagem por Augusto »

Se interessar... esse programinha é bem interessante....

Código: Selecionar todos

CLEAR
@ 10,10 SAY 'Pressione a tecla desejada    (ESC para sair)'
DO WHILE .t.
   T=INKEY(0)
   @ 12,10 SAY "CODIGO DA TECLA APERTADA FOI: "+STR(T)
   IF T=27
      @ 23, 1 SAY " "
      exit
   ENDIF
ENDDO
return
:xau Fui...
goulart@provsul.com.br

Faça da PROVSUL o seu Provedor de Serviços WEB
Visite: www.PROVSUL.com.br
Responder