Direcionamento em "CommandButton"

[Danleonhart]

:blink: Pessoal,

tem como alterar o direcionamento de um CommandButton ?

É que coloquei o CB (CommandButton) antes de colocar caixas de texto e Labels... agora tou querendo configurar o direcionamento e não tá dando certo...

Tou fazendo assim:

-------------------------------------------

Private Sub cmd_calc_KeyUp(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyUp: Text3.SetFocus

Case vbKeyLeft: cmd_limpar.SetFocus

Case vbKeyRight: cmd_sair.SetFocus

End Select

End Sub

--------------------------------------------

Ou seja, quero que quando tecle seta para cima, vá para a caixa de texto "3";

quando teclar seta para esquerda vá para o botão "Limpar";

quando teclar seta para direita vá para o botão "Sair".

Porém não está acontecendo isso... ele se move pela ordem em que foi criando os botões, já que criei o botão de "Cálculo" e só depois de criar varias caixas de textos e Labels criei os botões de "Limpar & Sair"...

[kuroi]

o pc q eu to aqui não tem vb6 pra eu testar...

mas tente fazer isso no KeyDown em vez de no KeyUp.

e tb não esqueca de setar a propriedade KeyPreview do form como True.

[Danleonhart]

Kuroi, fiz tudo isso e não deu certo... o focus continua indo pra outras opções, menos a que linkei...

[kuroi]

Danleonhart, foi mal a demora. já conseguiu resolver??

ainda to sem vb6 aqui, mas testei o codigo no vba em excel e funcionou com o KeyDown.

no vb não ta indo mesmo??

o problema é q quando você tecla as setas o visual basic automaticamente tenta mudar o foco. ai ta dando conflito com seu codigo.

tente com o KeyDown e se não funcionar, tente adicionar a seguinte linha no final da sub:

KeyCode = 0

[Danleonhart]

Olá Kuroi...

Conseguí resolver não... fiz dessa maneira:

Private Sub cmd_calc_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
  Case vbKeyLeft: limpa.SetFocus
KeyCode = 0
End Select
End Sub

E fiz assim também:

Private Sub cmd_calc_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
  Case vbKeyLeft: limpa.SetFocus
End Select
KeyCode = 0
End Sub

Não funcionou...veja que segundo meu script é para o focus ir para o botão "Limpa" ao teclar na "seta esquerda"...porém ele vai para o botão "Sair"...

percebo que o programa segue a ordem de elaboração, pois criei o botão "Sair" antes do "Limpa".

[kuroi]

daleonhart, finalmente instalei vb6 aqui... não sei se você já conseguiu resolver de alguma forma...

mas no teste q fiz aqui, pelo q parece, no vb6, ele simplesmente ignora os eventos de teclados para command button no caso de uma seta ter sido apertada...

então parece q não da mesmo... você teria q usar um outro controle pra isso, talvez um picturebox ou um objeto image. so q esses objetos não recebem foco, então você q teria q simular o foco.

[Danleonhart]

OK Kuroi...tentei de tudo aqui e não consegui resolver... caso eu descubra alguma maneira postarei aqui para todo o pessoal. :) :)