RE:Funcion KeyDown
Publicado por
Abel (1 intervención) el 06/06/2010 01:32:34
A mi ese código no me funcionó para lo que yo queria. Te copio lo que yo hice.
Para empezar, asigno la propiedad de Tabulador a la tecla Enter en el formulario.
------------------------------------------------------------------------------------------------------------
Private Sub frmPrincipal_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = Chr(13) Then
SendKeys.Send("{tab}")
End If
End Sub
------------------------------------------------------------------------------------------------------------
Y ahora para ELIMINAR / QUITAR ese molesto sonido (BEEP).
Encontré dos formas de hacerlo, una en el mismo evento KeyPress del Formulario.
Ejemplo:
------------------------------------------------------------------------------------------------------------
Private Sub frmPrincipal_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = Chr(13) Then
SendKeys.Send("{tab}")
e.handled = true
End If
End Sub
------------------------------------------------------------------------------------------------------------
Pero claro, si lo hacia asi, el resto de funciones que tenia asignado a eventos KeyPress de mis textbox, como por ejemplo que al pulsar enter en un txtCliente, me mostrara en un label el nombre del cliente, entonces no me lo mostraba, no realizaba ninguna operación programada.
Asi que lo hice de la otra forma que se me ocurrió.
En cada textbox en el evento KeyPress programé lo siguiente:
------------------------------------------------------------------------------------------------------------
If e.KeyChar = Chr(13) Then
e.Handled = True
End If
------------------------------------------------------------------------------------------------------------
Ejemplo:
------------------------------------------------------------------------------------------------------------
Private Sub DTFecha_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DTFecha.KeyPress
If e.KeyChar = Chr(13) Then
e.Handled = True
End If
End Sub
------------------------------------------------------------------------------------------------------------
Espero que sirva de ayuda, sino al usuario en concreto, a cualquiera que necesite sacar ese molesto Beep, sin por ello perder el resto de operaciones.
Un SALUDO!
Para Microsoft Visual Studio.net 2005