NAVEGACAO COM KEYDOWN

CAIO.FR.SP 15/07/2010 14:18:11
#347442
galera preciso da ajuda de voces para resolver um probleminha
em um dos meus projetos uso a função keydown do form para navegar entre albums
ate ai tudo bem funciona normalmente apertando as teclas de navegação pausadamente, mas se acaso a tecla for precionada e mantida assim, nao acontece nada, a navegação nao continua avancando, e é justamente isso que necessito, porque existem mais de 5 mil abuns e entao para ajudar na velocidade de navegação o cliente queria que ao apertar as teclas navegação o programa continua-se avançando entre os albums existente.
alguem pode me ajudar?
ja pensei em chamar a função pelo keypress mas ela nao funciona com as teclas de navegação.
MAXPAP 15/07/2010 16:38:32
#347467
Olá, amigo.

Usa o codigo abaixo, para exemplo coloqui uma label e se manter precionado a seta para direita ele coloca mais 1

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

    If KeyCode = 39 Then
        lbl.Caption = lbl + 1
    End If

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 39 Then
        lbl.Caption = lbl + 1
    End If
End Sub
CAIO.FR.SP 19/07/2010 17:30:08
#347786
Caro, MAXPAP,
Ajudou muito sua dica, so fiz algumas alteraçoes
o codigo com as alteraçoes abaixo

  Dim l As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 39 Then
        l = l + 2
        lbl.Caption = l
    End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 39 Then
        l = l - 1
        lbl.Caption = l
    End If
End Sub
CAIO.FR.SP 30/07/2010 17:40:21
#348977
Alguem pode me ajudar novamente com esse problema fiz um video com mais detalhes sobre ele.

http://www.youtube.com/watch?v=4J8D8fDBjxI
CLEITONSOUZA 30/07/2010 19:14:26
#348982
Caro

Voce ja tentou usar o código abaixo

If KeyAscii = 13 Then SendKeys [Ô]{TAB}[Ô]: KeyAscii = 0

Qualquer duvida posta
MARCELO.TREZE 30/07/2010 20:15:12
#348988
tentou no keypress com a propriedade keypreviw do form como [txt-color=#0000f0]true[/txt-color]
CAIO.FR.SP 31/07/2010 10:15:52
#349005
marcelo, esta ja com a opção keypreview ativada
CAIO.FR.SP 02/08/2010 12:47:34
#349136
galera deu certo aki
o meu codigo tava certo
so faltava colocar um [Ô]DoEvents[Ô] no evento keypress do form
Tópico encerrado , respostas não são mais permitidas
Voltar