Programación General > Visual Basic 6.0 e inferiores

 Campanazo Molesto

(1/2) > >>

albertovicat:
En los programas que hago solicito los datos de un artículo, un cliente, un proveedor, o lo que sea en una matrix de varios TextBox. En la KeyDown de ellos, si la tecla es Enter se verifica el tipo de datos según el Index y luego se pasa el foco al siguiente. Todo funciona bien, la pega es que al ocurrir esto se produce un campanazo bastante molesto. No encuentro forma de sacarle este sonido, salvo "a lo bruto" anulando el sonido en el sistema operativo, pero no puedo obligar a los clientes que me compran los programas a que hagan tal cosa en sus máquinas.
Seguramente alguien ha pasado por esto y sabe como hacer para sacarle este sonido.
Gracias.

shakka:
Te refieres a una beep (pitido)?


--- Código: Text ---Private Sub Text1_KeyPress(KeyAscii As Integer)  If KeyAscii = 13 Then Rem Para que no pite    KeyAscii = 0 Rem Si presiona la tecla "Enter", hace como si hubiese pulsado el tabulador,Rem y pasa el foco al sgte. control en funcion del Indice.    SendKeys "{tab}"   End IfEnd Sub 

albertovicat:
Si... voy a probar eso. Yo le pongo KeyCode = 0 una vez hecha la verificación de que es 13. Pero no había probado usando KeyPress/KeyAscii en vez de KeyDown/KeyCode.
Pruebo y te cuento.
¡Gracias! :good:

albertovicat:
¡Grande shakka! :jumpie:
Funciona de maravillas.  :good: Lo único que no puedo verificar con KeyPress es el estado de Shift, pero bueno, el objetivo principal que era sacar el beep está logrado.
Quedaría por averiguarle a Bill si hay alguna otra manera. :whistling:
De nuevo gracias.
Saludos.

shakka:
Pues con KeyDown, como parece ser que lo estas haciendo.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente