TECLA F1 CHAMANDO ROTINA

USUARIO.EXCLUIDOS 22/03/2005 15:18:55
#74323

onde está o foco(cursor) do seu programa???

USUARIO.EXCLUIDOS 22/03/2005 15:20:13
#74325

onde estiver o foco utilize esta rotina.....

no evento Keypress do objeto...

If Keyascii = VbKeyF1 then
[nome da rotina que deseja executar]
end if

CLAUDIOLUCROCHA 22/03/2005 15:34:49
#74331 Resposta escolhida

Tente
Primeiro voce deve habilitar o uso de teclas no form

Keypreview = true nas propriedades do form. Assim voce pode pegar as teclas em qualquer focus. Nao precisando repetir a rotina para cada campo.

Depois use

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
select case Keyascii
case VbKeyF1
.....rotina f1
case VbKeyF2
...... Rotina f2

bla bla bla

End Sub

Ajuda

USUARIO.EXCLUIDOS 22/03/2005 15:37:58
#74332

Tentei colocar esse código no evento keypress do form. Não funcionou.

HuMiRdAdE

CLAUDIOLUCROCHA 22/03/2005 15:44:32
#74335

Humirde,

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
select case Keycode
case VbKeyF1
.....rotina f1
case VbKeyF2
...... Rotina f2

bla bla bla

End Sub
Escrevi errado, de uma verificada, se nao der certo coloque o erro e a linha

USUARIO.EXCLUIDOS 22/03/2005 16:00:48
#74338

Agora sim, irmãozinho.
[txt-color=#ff0000]Muito obrigado.[/txt-color]

Humirde[S20]