P\KARINH - SETAS ???

[MOTOTAZ]

A DICA FOI MUITO LEGAL, MAS ACHO QUE EU NÃO SOUBE ME EXPRESSAR,

ESTOU USANDO O BROWSE , E O MESMO ME DA AS FUNCÕES OU AO MENOS PREFIRO CHAMAR ASSIM (KEYCHAR E KEYDOWN), OK. USO ELAS NUMA BOA, TENHO VARIAS TECLAS, FAÇO ATÉ MESMO UTILIZAÇÃO DAS TECLAS DE LETRAS E NUMEROS PARA FAZER PESQUISAS QUANDO O BROWSE ESTA INDEXADO. OQUE NÃO CONSIGO E SABER QUAL FUNÇÃO VAI ME DIZER QUANDO USO AS SETAS P\CIMA BAIXO E LADOS, SEI QUE QUANDO USO AS SETAS ELA NÃO CHEGA A ENTRAR NAS FUNÇÕES KEYCHAR E KEYDOWN, PRECISO SÓ SABER QUAL FUNÇÃO OU ROTINA VOU USAR PARA ME DIZER QUE ESTOU TECLANDO AS SETAS.

OBRIGADO

[gilmer]

Olá,

Você esta querendo dizer que você usar keyChar e KeyDown mas eles não estão gerando evento quando pressionado as setas ?

[MOTOTAZ]

citação:

Olá,

Você esta querendo dizer que você usar keyChar e KeyDown mas eles não estão gerando evento quando pressionado as setas ?

SIM ACHO QUE SERIA ISSO MESMO, SÓ PRECISO SABER COMO SE EXISTE ALGUMA FUNÇÃO COMMAND OBJ SEI Là , ALGO QUE QUANDO EU ESTIVER DENTRO DO BROWSE E USAR AS SETAS ELE POSSO ATIVAR UMA FUNÇÃO.

---

id=quote>id=quote>

[karinha]

// ListBox Simples Exemplo Para MOTOTAZ

// Modificado por Joao Santos em: 12/04/2004

// http://www.gruporibas.com.br/kmt

#Include "FiveWin.ch" // The Best! O melhor do mundo! Yes!

Function Main()

Local oWnd, oLbx, oSay

Local cItem := "Moto2"

Local aSetas := [ Moto Setas ]

DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 ;

TITLE "Testando Uma ListBox-Sou Terrivel! Sou TazMania!" ;

COLOR "W+/B"

@ 2, 2 LISTBOX oLbx VAR cItem ;

ITEMS { "Moto1", "Moto2", "Moto3", "Moto4", "Moto5" } ;

OF oWnd SIZE 200, 150 ;

COLOR "W+/BG" ;

ON CHANGE oSay:Refresh() ;

MESSAGE "Por Favor, Selecione Um Item-Tudo Travado!" ;

VALID( oLbx:oWnd:nLastkey = VK_UP .OR. ;

oLbx:oWnd:nLastkey = VK_DOWN ) // So setas funcionam

// Eu sou terrivel, Travei tudo no VALID! Sou o TAZMANIA! Sou Mal!

// So as setas funcionam, para fazer maldade com a MOTOTAZ... hehehehe.

olBx:bKeyDown = { | nKey | IF( nKey==VK_UP .OR. nKey==VK_DOWN, ;

MsgInfo( ( aSetas ), "Moto Setas" ), ) }

@ 2, 40 SAY oSay VAR cItem SIZE 80, 20 OF oWnd

// Verifique que so as setas funcionam, nada mais por causa do VALID!

@ 8, 42 BUTTON "&Incluir" SIZE 80, 20 OF oWnd ;

MESSAGE "Adicionar um Novo Item na Listbox" ;

ACTION ( oLbx:Add( Time() ), MsgInfo( Len( oLbx:aItems ) ) )

// Verifique que so as setas funcionam, nada mais por causa do VALID!

@ 11, 42 BUTTON "&Fim" SIZE 80, 20 OF oWnd ;

ACTION oWnd:End() ;

MESSAGE "Press me Para Terminar"

SET MESSAGE OF oWnd TO "Testando uma ListBox-MotoTaz"

ACTIVATE WINDOW oWnd

Return Nil

// PS: Claro, que se voce for um bom programador, e com certeza deve ser,

// Voce deve usar um DO CASE ENDCASE para fazer a checagem de teclas.

// Baixe em: www.dbwide.com.ar CADEMO.ZIP la tem o que voce quer.

// Este exemplo, e so uma brincadeira para voce comecar a entender!

// Abracos.

//----------------------------------------------------------------------------//

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[karinha]

// Ahhh... Veja VKEY.CH vai te tirar muitas dudas... C:\fw..\include OK?

// VK_LEFT 37 // 0x25 // Para Esquerda Volver

// VK_UP 38 // 0x26 // Para Cima Volver

// VK_RIGHT 39 // 0x27 // Para Direita Volver

// VK_DOWN 40 // 0x28 // Para Baixo Volver, Soldado!

// Repito, use DO CASE... ENDCASE para controla-las. Fwi!

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br