Jump to content
Fivewin Brasil

Teclas no Get


Eroni

Recommended Posts

Ola.. a primeira pergunta sua eu faria desta maneira:

@ ... Say "Campo" Get oGet Var cGet On Change CriaVar(oGet)

.

.

.

Function CriaVar(oGet)

Local cVar

If cVar # RTrim(oGet:cText)

cVar := RTrim(oGet:cText)

Endif

If oGet:nLastKey == 8

cVar := Left(cVar,Len(cVar)-1)

Else

cVar += Chr(oGet:nLastKey)

Endif

oGet:VarPut(cVar)

Return("")

Assim o cVar, vai guardando a ultima tecla pressionada do Get...

Quanto a segunda pergunta eu nao ententi muito bem...

Espero ter ajudado.

[]'s

Edu-DESIS

Link to comment
Share on other sites

Ok, muito obrigado, quanto a finalização do Get, é assim, quando vc pressiona ENTER, o get finaliza e vai para o próximo controle. Eu preciso que o get execute açõa quando se pressione as teclas PGUP e PGDN, ok?

Obrigado pela dica.

Eroni

Link to comment
Share on other sites

Hummmm.

Entendi, o que voce acha de fazer o seguinte, dentro dessa

funcao CriaVar(), quando o oGet:nLastKey == VK_PGDWN

vc pega e faz oProximoControle:SetFocus(), e

qdo for VK_PGUP, vc faz oControleAnterior:SetFocus()

bom e' uma ideia... talvez nao seja muito pratico icon_smile_shy.gif .

pq vc tem que saber quem e' o proximo e/ou o controle anterior para dar o foco. mas... e' uma ideia apenas.

[]'s

Edu-DESIS

Link to comment
Share on other sites

Olá Eroni/Edu,

Pode ser usado o ::GoNextCtrl() ou o ::GoPrevCtrl() dentro da dialog, ficaria assim :

oDlg:GoNextCtrl() //Próximo controle

oDlg:GoPrevCtrl() //Controle anterior

nesse caso não há a necessidade de saber o nome dos controles

Abraços

Vagner Wirts

São Paulo-Brasil

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...