TIRAR O BIP

USUARIO.EXCLUIDOS 09/09/2006 15:53:37
#170425
ae galera, como eu faço para tirar o bip, por exemplo, quando passo de uma caixa de texto para outra.
obrigado.
HARRY.POTTER 09/09/2006 16:46:44
#170434
Se você diz do bip no keypress, tenta colocar keyascii = 0. Isso deve resolver.
LEANDRO.LUIZ 09/09/2006 16:49:40
#170437 Resposta escolhida
Você usa o evento KeyPress e não o KeyDown. Dai você faz o seguinte:

Private Sub Txt1_KeyPress(KeyAscii As Integer)
    if keyascii = 13 then 'Enter
       keyascii = 0
       sendkeys "{Tab}"
    endif
End Sub
CLEVERSON.F 09/09/2006 20:17:36
#170445
faz assim
cria uma funcao

[c]public function Enter(Key as integer) as integer
   if key =13 then
       sendkeys "{tab}"
       enter = 0
   else
       enter =key  
   end if
end Function

[/c]

dae no seu text e nos outros


[c]Private Sub Txt1_KeyPress(KeyAscii As Integer)
     keyAscii = enter(keyascii)
end Sub


[/c]
Tópico encerrado , respostas não são mais permitidas
Voltar