Pessoal to com um problema, preciso o seguinte:

 

'No Form_Down

 

If KeyCode = 13 then ' Botão enter

 'executa essa função aqui

end if

 

Se eu usar em um novo form essa rotina ela funciona beleza, mais se eu coloca-la em meu programa ja desenvolvido, ela não funciona, alguem sabe porque?

Eu ja mudei a propriedade do KeyPreviw do meu form para True e para FAlse e mesmo assim não da certo.

Keypreview tem que ser sempre igual a "TRUE" se vc quiser capturar o evento do form.

Tem certeza que não está esquecendo de nada?Quer dizer que em um form já feito não entra no evento e em um novo sim?

É isso mesmo to sem entender o pq ta acontecendo isso, em um form já feito não entra no evento e em um novo sim.

 

é um form normal ou é um MDI??

Vc pode testar uma "gambi"... coloca uma picture no fundo do form e pega o evento da picture como se fosse do form, coloque a picture atrás dos controles, creio q funcionará:

 

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

'seu código

End Sub

falows!

Tenta modificar o evento de KeyDown para KeyPress:

 

Private Sub Form1_KeyPress(KeyAscii As Integer)

     If KeyAscii = 13 Then 

          ...

     End If

End Sub

O keyDow é usada mais para pegar a tecla DELETE, o KeyPress não pega a tecla DELETE assim como  o KeyCode não pega o ENTER..

Bugs do tio Bill...rs