thanks Erel, I has change the code :Call B4XFloatTextField.Update
Private Sub tx_barcode_TextChanged (Old As String, New As String)
tx_barcode.Update
End Sub
Private Sub tx_barcode_FocusChanged (HasFocus As Boolean)
tx_barcode.Update
End Sub
Private Sub innerRestoreState(v As View, list1 As List)
Dim data() As Object
Dim IME As IME ' ------- add this ----
If v Is EditText Then
Dim edit As EditText
edit = v
data = getNextItem(list1)
edit.Text = data(0)
edit.SelectionStart = data(1)
IME.ShowKeyboard(edit) ' ------- and this for text to got focus ----