rubensma Posted March 23, 2004 Report Share Posted March 23, 2004 Ola, bom dia Alguem saberia dizer qual o código do teclado numérico (o da direita), para as teclas digitadas em um code block, exemplo: DEFINE LISTBOX oLbx ........ ........... oLbx:bKeyDown := {|nKey| if( nKey $ "0123456789" , ler(), )} Nesse caso qdo se digita um número a função ler() é executada, porém somente do teclado alfanumérico (acima das letras), e eu queria que aceitasse digitando do teclado numérico. Fui claro ? Abraços Rubens Quote Link to comment Share on other sites More sharing options...
gilmer Posted March 23, 2004 Report Share Posted March 23, 2004 Olá, Verifique no Vkey.Ch no diretório include do FiveWin, sendo que eles são VK_NUMPAD0,VK_NUMPAD1, etc.. Quote Link to comment Share on other sites More sharing options...
rubensma Posted March 23, 2004 Author Report Share Posted March 23, 2004 Ola, Gilmer Normalmente o que queremos está tão perto que não conseguimos enxergar, como nossas sombracelhas, hehe Obrigado amigão. Rubens Quote Link to comment Share on other sites More sharing options...
rubensma Posted March 24, 2004 Author Report Share Posted March 24, 2004 Ola Se interessar a alguem, funcionou blz. citação:DEFINE LISTBOX oLbx ........ ........... oLbx:bKeyDown := {|nKey| if( nKey $ "0123456789" , ler(), )} id=quote>id=quote>Ficou assim: DEFINE LISTBOX oLbx ........ ........... oLbx:bKeyDown := {|nKey| if( (nKey $ "0123456789") .or. (nKey > 95 .and. nKey < 106), ler(chr(nKey),nKey), )} // 96 = 0 to teclado numérico, 97 = 1, .... 105 = 9 static function ler( num,codi) local nVal // para os outros caracteres usar o nKey que é o número ASCII // ou o CHR(nKey), que é o número ou letra digitada. // no caso do teclado numérico precisa transformar da // seguinte forma: do case case codi = 96 nVal := "0" case codi = 97 nVal := "1" ... e assim por diante, ai cada um faz o que quer Abraços Rubens Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.