hola .
es un sistema de ventas de libro y necesito ingresar varios libros en un listview uno por uno mediante un textbox evento keyPress y solo puedo ingresar uno solo y al querer incresar otro nopasa nada ...
este es el codigo
Código vb:
Ver originalPrivate Sub TbProducto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TbProducto.KeyPress
'Valido que se ingrese solo numeros
If Char.IsNumber(e.KeyChar) Then
e.Handled = False
'Valido que se presione Backspace,Enter
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
'Las demas teclas quedan bloqueadas
Else
e.Handled = True
End If
'Si mando un ENTER entonces que busque
If e.KeyChar = Convert.ToChar(Keys.Enter) Then
myConn = New SqlConnection("Initial Catalog=libroteka;Data Source=localhost;Integrated Security=SSPI;")
'Crear un objeto Command.
myCmd = myConn.CreateCommand
myCmd.CommandText = "SELECT * FROM libros WHERE cod_libro ='" & TbProducto.Text & "' "
adaptor.SelectCommand = myCmd
adaptor.Fill(dataset, "0")
Dim count = dataset.Tables(0).Rows.Count
If count > 0 Then
myConn.Open()
With Ltver.Items.Add(TbProducto.Text, "cod_libro")
.SubItems.Add(dataset.Tables(0).Rows(0).Item("nombre_libro"))
.SubItems.Add(dataset.Tables(0).Rows(0).Item("precio"))
End With
End If
TbProducto.Clear()
dataset.Clear()
myConn.Close()
End If
y es el texbox le digo que al ingresar 13 digitos me lanse un Enter
Código vb:
Ver originalPrivate Sub TbProducto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbProducto.TextChanged
'Si llega a 13
If TbProducto.Text.Trim().Length = 1 Then
'Que envie un enter
SendKeys.Send("{Enter}")
End If
End Sub