Código:
'Declaras Variable q te servirá como contador
Dim contadorLecturas As Integer = 0
Private Sub BarcodeRead(ByVal sender As System.Object, ByVal e As Intermec.DataCollection.BarcodeReadEventArgs)
'Aqui levanto el lector del Intermec CK31 con la llave
txtcodigo.Text = e.strDataBuffer
'Declaramos una variable de lectura
Dim ObjEscribe As StreamWriter
'Ruta donde escribe el archivo plano en la CK31
ObjEscribe = File.AppendText("\CK_FFS\invent.txt")
'Escribe la lineas en el invent.txt (Embarque más Código leido)
ObjEscribe.WriteLine(txtembarque.Text + txtcodigo.Text)
'*****************************************************
contadorLecturas += 1
'Muestra el resultado de lectura en el label
tuLabel.Text = "Lecturas Hechas: " & contadorLecturas.ToString();
'*****************************************************
'Cierra la lectura
ObjEscribe.Close()
End Sub
Aqui una cosa, si necesitas QUE CADA VEZ Q ENTRES AL METODO BarcodeRead() EL LABEL ESTE EN CEROS, INICIALIZALO DENTRO DEL MISMO METODO
Lo harias mediante contadorLecturas = 0
Otra cosa, me imagino q este Método BarcodeRead se "EJECUTA" cada q haces una nueva lectura, o me equivoco??