BARULHO CHATO DO KEYPRESS

SERGIOPASCOAL 23/03/2005 10:57:04
#74459
Pessoal vc's tb passam por isso?
Ativei o Keypreview = True do form e coloquei na caixa de texto no evento keypress para que quando o usuário apertar o enter ir para outra caixa de texto.
Mas faz um barulho na caixa de som, tipo um tom de erro.
Como fazer para tirar esse tom?
Obrigado
FELIPEA 23/03/2005 11:05:28
#74465
Esse erro ocorre pq quando aperta ENTER, o textbox tenta pular a linha, mas como o text não é MULTILINE, faz esse beep

Mas como tirar não sei
USUARIO.EXCLUIDOS 23/03/2005 11:24:57
#74469 Resposta escolhida
No evento Kepress faça keyascii =0
USUARIO.EXCLUIDOS 23/03/2005 11:25:26
#74470
Vc deve ter feito assim o
no evento keypress
colocou
 If Keyascii = 13 Then
SendKeys "{TAB}"
End if

Tente colocar desta maneira
 If Keyascii = 13 Then
SendKeys "{TAB}"
[txt-color=#ff0000]KeyAscii = 0[/txt-color]
End if


Se não der certo... no evento KEYDOWN coloque
 If KeyCode = 13 Then
[txt-color=#0000ff]SendKeys "{TAB}"[/txt-color]
End if

Deve resolver..
USUARIO.EXCLUIDOS 23/03/2005 12:53:50
#74482
Sergio,
Use a função Beep, ou seja,
Beep= 0
o barulho irá chato sumir
USUARIO.EXCLUIDOS 23/03/2005 13:00:06
#74483
Mas Beep é uma instrução e não uma função ou método.
Não tem como fazer Beep =0
RO.DRIGOSG 23/03/2005 13:20:47
#74487
Concordo com o GERMANIR, e eu tb uso deste jeito:

Na tabela ASCII (do vb), do 48 ao 57 são os numeros, o 8 é o BackSpace, o 13 é o Enter e o 32 é o Espaço.

Private Sub TxtCampoNumerico_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Or KeyAscii = 13 Or KeyAscii = 32 Then
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
Else
KeyAscii = 0
End If
End Sub

Falou!
SERGIOPASCOAL 23/03/2005 16:57:34
#74546
é isso aí o Keyascii = 0 resolveu meu problema
Obriagdo a Todos.
Tópico encerrado , respostas não são mais permitidas
Voltar