ENTER IGUAL A TAB

USUARIO.EXCLUIDOS 04/10/2006 09:34:00
#175494
Quero q quando eu apertar <enter> ou <tab> ele faça uma fução. Como possofazer isso
estou fazendo assim

if keyascii=13 or keyascii= vbkeytab then oqm esta errado
USUARIO.EXCLUIDOS 04/10/2006 09:41:15
#175496 

If KeyAscii = 13 Then
   KeyAscii = 0
   SendKeys "{TAB}"
End If


o "tab" não é preciso tratar, o vb assume por si.
USUARIO.EXCLUIDOS 04/10/2006 09:44:22
#175497
e ai pastor aki e o obom2 tipo ele ke saber se tipo tem como fazer o tab fazer a mesma funcao do enter nos estamos buscando um valor na tabela quando apertamos o enter e queremos que ele busque se aperta o tab tbm entendeu
USUARIO.EXCLUIDOS 04/10/2006 09:48:21
#175501
é só colocador o código no evento LostFocus. Assim, quando ele perder o foco ele executa a rotina, outra forma, caso não queira sair do campo e escrever o codigo no evento _Change(). Quando uma das teclas for pressionada, executar um determinado comando.
NEOBH 04/10/2006 09:49:21
#175503
Utilize isto , No Form a propriedade KeyPreview deve esta como True

no eveto keypress do form

If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{TAB}"
End If

Cleber
USUARIO.EXCLUIDOS 04/10/2006 09:52:22
#175505 Resposta escolhida 

Private Sub Form_Load()
   KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   '
   Select Case KeyCode
      Case vbKeyF9  'F9
           MsgBox "F9 could copy text."
      Case vbKeyF5   'F5  
           MsgBox "F5 could copy text."
   End Select
   '
   KeyAscii = 0
   '
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar