Simple routine to get the focused (normally EditText) view:
[CODE lang="b4x" title="GetFocused"]Sub GetFocused() as View
Dim jo As JavaObject
Dim vw As View
jo.InitializeContext
Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
vw=window.RunMethod("getCurrentFocus",Null)
Return vw
End Sub[/CODE]
HTH