Fiz uma rotina para navegar no flexgrid, utilizando keypress, onde

a tecla enter pega dados da linha selecionada do flexgrid e pesquisa

numa tabela os campos e preenche os txtbox.

 

Não estou conseguindo fazer a rotina para as setas para cima e para baixo,ou seja,

quando utilizar as setas, atualizar as txtbox da mesma forma que o enter pressionado

na linha do flexgrid.   Já utilizei o keycode = 38 e 40 e não funcionou. Estou sem

o help do vb6. Alguem pode me ajudar...

Olha, ao menos por enqüanto não conheço como se faz pois realmente as teclas direcionais não ativam nenhum evento no flexgrid mas eu tenho uma solução q dá para mascarar.

 

Se vc segurar a tecla ALT + Seta pra cima, por exemplo o foco da célula trava então fiz uma rotina para não travar e daí vc pode pôr o seu código. Veja:

 

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

If KeyCode = 38 And Shift = vbAltMask Then
With MSFlexGrid1
.Row = .Row - 1 'Cuidado com o tratamento das linhas e colunas para não dar Invalid Column ou Row Value
.FocusRect = flexFocusLight 'foca a célula
 MsgBox "NAVEGANDO PELO FLEXGRID"
End With
End If
End Sub

 

Com isso vc pode colocar o seu código... sei q é beeeeeeeeem rústico mas funciona...

 

Será q serve??

 

Bom, tentei!

t+

Valeu pela dica, vou testar!

 

Abraços...