quitar el beep al pasar el foco en comandos de textos

25/07/2003 - 14:06 por Reinaldo González | Informe spam
hola a todos

he escrito la siguiente función

Private Sub txtAgenda_KeyPress(Index As Integer, KeyAscii
As Integer)

If KeyAscii = 13 Then
If Index < 8 Then
txtAgenda(Index + 1).SetFocus
Else
cmdAceptar.SetFocus
End If
Else
txtAgenda(2) = KeyAscii
End If

End Sub

para que en un formulario
en cualquier control de texto al presionar <Intro> salte
al siguiente en la secuencia, funciona bien pero en cada
cambio de control suena un beep en el altavoz, ¿cómo puedo
quitar ese molesto beep ?

Gracias de antemano

Reinaldo

Preguntas similare

Leer las respuestas

#1 Alex Martínez
25/07/2003 - 14:21 | Informe spam
Poniendo KeyAscii = 0

(...)
If KeyAscii = 13 Then
KeyAscii = 0
If Index < 8 Then
(...)

PS: te recomiendo que no pongas valores "hard coded". Es mejor usar las
constantes definidas en VB en su lugar (en lugar de 13, poner vbKeyReturn).


Saludos,
Alex


"Reinaldo González" wrote in message
news:090e01c352a5$27487f90$
hola a todos

he escrito la siguiente función

Private Sub txtAgenda_KeyPress(Index As Integer, KeyAscii
As Integer)

If KeyAscii = 13 Then
If Index < 8 Then
txtAgenda(Index + 1).SetFocus
Else
cmdAceptar.SetFocus
End If
Else
txtAgenda(2) = KeyAscii
End If

End Sub

para que en un formulario
en cualquier control de texto al presionar <Intro> salte
al siguiente en la secuencia, funciona bien pero en cada
cambio de control suena un beep en el altavoz, ¿cómo puedo
quitar ese molesto beep ?

Gracias de antemano

Reinaldo
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida