Italian Alla ricerca del focus perduto

luciano deri

Active Member
Licensed User
Longtime User
Salve a Tutti, ho tre edit text (codice, descrizione, quantità) lavorando con la tastiera premendo enter passo all'edit successivo tramite
Sub etcodice_EnterPressed
etdesc.RequestFocus
End Sub
Lavorando a mano funziona benissimo. Usando però lo scanner ottico bluetooth motorola cs3070, che fa una banale emulazione tastiera, non riesco ad ottenere lo stesso risultato. Lo scanner fa l'enter automatico dopo la lettura, il programma esegue EnterPressed, quindi il FocusChanged consequente alla RequestFocus, esattamente come quando procedo manualmente, ma in realtà il fuoco non è in nessun view, pur avendo ancora la tastiera attiva. Qualsiasi pressione nei tasti ( compreso enter) non produce alcun effetto. Per andare avanti devo posizionare il fuoco nel campo previsto con il dito. Lo scopo di tutto sarebbe limitare al massimo l'intervento dell'operatore sul tablet, automatizzando il processo al solo uso dello scanner. Saluti. Thomas.
 

luciano deri

Active Member
Licensed User
Longtime User
Ho risolto e in questo modo e funziona sempre, occorre la libreria Accessibility
Dim Acc As Accessiblity
Sub etcodice_EnterPressed
LeggiArticolo
If nuovo_articolo = False Then ' se non è un nuovo articolo la pressione di enter passa direttamente alla quantità
Acc.SetNextFocusDown(etcodice,etqta)
Else
Acc.SetNextFocusDown(etcodice,etdesc)
End If
End Sub
;)
 
Last edited:
Top