Saludos, George.
Según entiendo, escribes un código leído por el escáner de código de barras en el TextBox1
y ajustas ese código una vez que ha finalizado al Label1
. Luego, tu problema comienza cuando escribes otro código, ya que éste se agregará al final del código anterior, provocando lo que mostraste en las imágenes.
Básicamente sólo debes eliminar el código anterior, y luego añadir el nuevo código. Para esto puedes hacer lo siguiente:
- Crea una variable
booleana
que almacena el estado del TextBox1
, es decir, si el TextBox1
tiene o no un código.
- Utiliza el evento
KeyPress
del TextBox1
para detectar cuando el escáner ha dejado de ingresar los datos.
- Utiliza el evento
KeyDown
para detectar cuando el escáner digitará el primer dato.
Te dejo un ejemplo:
Public Class Form1
Dim hasCode As Boolean
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If (e.KeyChar = ChrW(Keys.Return)) Then
Label1.Text = "Código: " & TextBox1.Text
hasCode = True
End If
End Sub
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If hasCode Then
TextBox1.Text = ""
hasCode = False
End If
End Sub
End Class
Te explico un poco la lógica:
Cuando inicias tu aplicación, la variable hasCode
estará False
, y al momento de ingresar un nuevo código en el TextBox1
comprobará si ya tiene un código ingresado o no.
En caso de que ya tenga un código escrito (hasCode = True
), borrará el texto que tenga el TextBox1
y escribirá los caracteres hasta finalizar.
Cuando finaliza de ingresar el código, generalmente los escáneres escriben un caracter de return
al final, esto lo comprueba el KeyPress
.
Al momento de detectar este último caracter, ajusta el texto al Label1
y ajusta el estado de hasCode
a True
(indicando que el TextBox1
tiene un código ingresado).
Finalmente, repite todo el proceso, si quieres ingresar otro dato. Además, si quieres ingresar un código manualmente, bastará con presionar la tecla enter
o intro
para 'validarlo'.