Android Question SelectAll and CallSubDelayed

Fabrice La

Active Member
Licensed User
Longtime User
Hi,

I have something strange with SelectAll and CallSubDelayed.
To be able to select all text in edittext

I am using this code :
B4X:
Sub edt_FocusChanged (HasFocus As Boolean)
    If HasFocus Then
        Dim index As Int
        Dim Send As View
        Dim tagstr As String
        Send=Sender
        tagstr = Send.Tag
        index = clv.GetItemFromView(Sender)
        Dim pnl As Panel
        pnl = clv.GetPanel(index)
        Dim edt As EditText
        For i = 0 To 1
            edt = pnl.GetView(i)
            edit = edt
            If edt.Tag = tagstr Then
                edt_Click
                Exit
            End If
        Next
    End If
End Sub

Sub edt_Click 
      CallSubDelayed(Me, "edt_SelectText")
End Sub

Sub edt_SelectText
  DoEvents
    edit.SelectAll
    DoEvents
    edit.SelectAll
End Sub

I tested in 4 devices:
Samsumg S2 android 4.2.2 : Work
Samsumg S3 android 4.3.1 : Work
Samsumg Tab2 android 4.3.1 : Work
HTC Desire android 4.1.2 Rom MIUI: Not Work ???

Any advise ?
 
Top