Android Question KeyPress Event

[Guenter Becker]

Hello,
I like to use the activity keypress event in a b4xpages application. And I mean any keypress any char! I need a b4a/b4x code snipped how to setup the activity event (delagate) and how to setup the corresponding Listener/event/sub in the b4xpage been triggert by the activity event.
Can anyone help me?

 

[aeric]

You can find in Main Activity

Sub Activity_KeyPress (KeyCode As Int) As Boolean
    Log(KeyCode)
    Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
End Sub

 

[Guenter Becker]

Thank you I now that but in a post erel says that his is only for intercepting the back key. Also it is not shown how to set the appropriated sub event in the pages code

 

[Cableguy]

B4XPages parent is, in most cases, the MainActivity... if your goal is to catch keypresses dedicated to a particular view, then you need to see if that view already exposes such event, or if not, create a listener to it (custom event). Such events are almost specific to Text views like TextView and such.

 

[RJB]

Does this help: https://www.b4x.com/android/forum/threads/detect-screen-touch-tap.126821/#post-793491 ?

 

[William Lancee]

I took some time to experiment. It possible to have mastery over the soft keyboard and capture key presses for any page in B4XPages - even without an apparent target view! The IME has to be handled in Main Activity module. Here is my convoluted solution. There are likely much more elegant ways!

'In Main Activity module
Sub Globals
    Private ime As IME
End Sub

Sub Activity_Create(FirstTime As Boolean)
    ime.Initialize("IME")
    Dim pm As B4XPagesManager
    pm.Initialize(Activity)
End Sub

Public Sub showKB(v As EditText)
    ime.ShowKeyboard(v)
End Sub

Public Sub hideKB
    ime.HideKeyboard
End Sub

'In page where keycodes need to be captured.

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
'    Root.LoadLayout("page2")
    Dim ghostView As EditText
    ghostView.Initialize("ghostView")
    Root.AddView(ghostView, 0, 0, 0, 0)
    
    Sleep(50)
    ghostView.RequestFocus
    CallSub2(Main, "showKB", ghostView)
    
    'if you want to hide the keyboard
    'CallSub(Main, "hideKB")
End Sub

Private Sub ghostView_TextChanged(old As String, new As String)
    Log(new.charAT(new.length-1))
End Sub

 

[Guenter Becker]

B4XPages parent is, in most cases, the MainActivity... if your goal is to catch keypresses dedicated to a particular view, then you need to see if that view already exposes such event, or if not, create a listener to it (custom event). Such events are almost specific to Text views like TextView and such.

Thank you, can you give me an code example for a listener. I know what a listener is but I never used it.

 

[roerGarcia]

Maybe this https://www.b4x.com/android/forum/threads/how-to-assign-hot-key-to-button.93697/#post-592722

 

[Guenter Becker]

Maybe this https://www.b4x.com/android/forum/threads/how-to-assign-hot-key-to-button.93697/#post-592722

Hey there, I checked the article. rDo you know what is "r=PaneGame"? What stands Pangame for? It seems to me that it has to be substituted by the activity or mbase of the b4xpage, correct?
Still understand to put the reflector code into the createpage event to initialize and to place actions on event in the keryListener sub.

 

[gregchao]

I took some time to experiment. It possible to have mastery over the soft keyboard and capture key presses for any page in B4XPages - even without an apparent target view! The IME has to be handled in Main Activity module. Here is my convoluted solution. There are likely much more elegant ways!

'In Main Activity module
Sub Globals
    Private ime As IME
End Sub

Sub Activity_Create(FirstTime As Boolean)
    ime.Initialize("IME")
    Dim pm As B4XPagesManager
    pm.Initialize(Activity)
End Sub

Public Sub showKB(v As EditText)
    ime.ShowKeyboard(v)
End Sub

Public Sub hideKB
    ime.HideKeyboard
End Sub

'In page where keycodes need to be captured.

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
'    Root.LoadLayout("page2")
    Dim ghostView As EditText
    ghostView.Initialize("ghostView")
    Root.AddView(ghostView, 0, 0, 0, 0)
  
    Sleep(50)
    ghostView.RequestFocus
    CallSub2(Main, "showKB", ghostView)
  
    'if you want to hide the keyboard
    'CallSub(Main, "hideKB")
End Sub

Private Sub ghostView_TextChanged(old As String, new As String)
    Log(new.charAT(new.length-1))
End Sub

Thanks. If anyone is interested, got this to work but had to set a minimum height and width (see below)

Root.AddView(ghostView, 0, 0, 1dip, 1dip)

 

[William Lancee]

Thanks.

That's a two year old solution that was mostly ignored.