Android Question [Resolved] IME how can I intercept keyboard events

[ivanomonti]

ime.Initialize("IME")

Private Sub IME_HeightChanged(NewHeight As Int, OldHeight As Int)
    Log(NewHeight)
    Log(OldHeight)
End Sub

Private Sub IME_HandleAction As Boolean

    Dim e As EditText
    e = Sender
   
    If e.Text.Length = 0 Then
        Return True
    Else
        Return False 'will close the keyboard
    End If

End Sub

how can i intercept the closing of the keyboard?

also given the name of the event as examples found in the forum the events do not fire

 

[LucaMs]

Did you add this line to the Manifest file?

SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)

And these to your project?

    IME.Initialize("IME")

    IME.AddHeightChangedEvent

    IME.AddHandleActionEvent(YourEditTextHere)

 

[ivanomonti]

Hai aggiunto questa riga al file manifest?
[CODICE=b4x]
SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)
[/CODICE]

E questi al tuo progetto?
[CODICE=b4x]
IME.Initialize("IME")

IME.AddHeightChangedEvent

IME.AddHandleActionEvent(YourEditTextHere)
[/CODICE]

NO, thank 10000

 

[ivanomonti]

Did you add this line to the Manifest file?

SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)

And these to your project?

    IME.Initialize("IME")

    IME.AddHeightChangedEvent

    IME.AddHandleActionEvent(YourEditTextHere)

it doesn't work the same :-(

 

[LucaMs]

it doesn't work the same :-(

Post a project that demonstrates it.

 

[Brian Dean]

Does this work for you? It works for me ...

 

[ivanomonti]

Does this work for you? It works for me ...

@Brian Dean Perfect thank 10000000

@LucaMs

IME.AddHeightChangedEvent

 

[FrankDev]

like this ?

Sub ime_HeightChanged
    
    ToastMessageShow("now",True)
    
End Sub

 

[ivanomonti]

I also need to intercept the pressed key but even following the erl example found in the post I can't succeed, do you have something for this problem too?

Sub Activity_KeyPress (KeyCode As Int) As Boolean
    If KeyCode = KeyCodes.KEYCODE_BACK Then
        Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
    End If
    B4XPages.GetManager.RaiseEvent(B4XPages.GetManager.GetTopPage, "B4XPage_KeyPress", Array(KeyCode))
    Return False
End Sub

' it doesn't intercept the code, maybe it's the samsung keyboard, I don't know

Sub B4XPage_KeyPress(KeyCode As Int) As Boolean

    Log(KeyCode)

End Sub