Private zxslv As zxScannerLiveView
zxslv.Initialize("zxslv")
zxslv.HudVisible = True
zxslv.PlaySound = True
zxslv.Visible = False
zxslv.SameCodeRescanProtectionTime = 500
zxslv.CameraToUse = zxslv.BACK
Sub Salir_Click(ActionBar As ClsActionBar, botonera As View)
zxslv.stopScanner
Rutinas.Partedeform="LeeerCB"
Activity.Finish
StartActivity("comprobar")
End Sub
Sub Bt_1_Click ' Escanea
zxslv.Visible = True
zxslv.startScanner
End Sub
Sub zxslv_scanresult
Rutinas.CodBarras = zxslv.ScanResult
Lb_1.Text= zxslv.ScanResult
End Sub
Sub zxslv_scanner_started
Log("Scanner Started")
End Sub
Sub zxslv_scan_error
Rutinas.PonMsgbox("Comprobación Anillas","Error Leyendo C.Barras")
End Sub
Sub zxslv_scanner_stopped
Log("Scanner stopped")
End Sub