Problema con evento KeyPress de un Textbox

[juandedios]

Saludos:

Quiero que al pulsar la tecla ENTER en un Texbox me ejecute algo, el código del Textbox en dicho evento es asi:

Private Sub txtPrecio_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrecio.KeyPress

Dim Tecla As Integer = Asc(e.KeyChar)

If Tecla = 13 Then
Dim Dato As New ListViewItem(Me.cmbProducto.SelectedValue.ToString , 1)
Dato.SubItems.Add(Me.txtProducto.Text)
Dato.SubItems.Add(Me.txtCantidad.Text)
Dato.SubItems.Add(Me.txtPrecio.Text)
Dato.SubItems.Add(Me.txtImporte.Text)
End If

End Sub

[Foskiton]

Yo usaría el evento keyUp y su parametro "e" el cual tiene una propiedad key que es una enumeración de las letras del teclado, lo comparas con el valor de la enumerión Keys keys.Enter y solucionado.

Ya que no recuerdo que la forma en la que lo estas haciendo está bien, me suena que el caracter 13 es retorno de carro o salto de linea solo, no retorno de carro ysalto de linea.

Un saludo.

[Avellaneda]

Iniciado por juandedios

Saludos:

Quiero que al pulsar la tecla ENTER en un Texbox me ejecute algo, el código del Textbox en dicho evento es asi:

Private Sub txtPrecio_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrecio.KeyPress

Dim Tecla As Integer = Asc(e.KeyChar)

If Tecla = 13 Then
Dim Dato As New ListViewItem(Me.cmbProducto.SelectedValue.ToString , 1)
Dato.SubItems.Add(Me.txtProducto.Text)
Dato.SubItems.Add(Me.txtCantidad.Text)
Dato.SubItems.Add(Me.txtPrecio.Text)
Dato.SubItems.Add(Me.txtImporte.Text)
End If

End Sub

Lo puedes hacer de varias formas, te pongo dos (dentro del evento KeyPress):

If Asc(e.KeyChar) = 13 Then
o
If e.KeyChar = Convert.ToChar(13) Then

[diego_57]

yo te recomiendo que valides dentro del evento keypress de tu texbox la siguientte instruccion con la intruccion :

if e.KeyChar = Convert.ToChar(13)
ejecutas metodo
end if

a mi me funciono en vb.net y en una Pocket
http://static.forosdelweb.com/images/icons/icon14.gif