B4J Question Capture KeyPress

GuidoVL said:

How can I capture KeyPress as in B4A with the event Activity_KeyPress?

Click to expand...

PaulMeuris said:

In my B4J tutorial Simple Layout Designer you can find in the Main module an example of a Keypressed event.

B4X:

Private Sub Main_KeyPressed_Event(e As Event)

Happy coding!

Click to expand...

GuidoVL said:

Sorry, can't find that Sub in Simple Layout Designer v5

Click to expand...

    Private gvh As GameViewHelper
    gvh.AddKeyListener("GVH", MainForm)
    
Sub GVH_KeyPressed (KeyCode As String) As Boolean
    Log(KeyCode)
    Return True
End Sub

Sub GVH_KeyReleased (KeyCode As String) As Boolean
    Log(KeyCode)
    Return True
End Sub

GuidoVL said:

Sorry, can't find that Sub in Simple Layout Designer v5

Click to expand...

teddybear said:

Why not use GameViewHelper as Erel said? it is easy to use.

B4X:

    Private gvh As GameViewHelper
    gvh.AddKeyListener("GVH", MainForm)
   
Sub GVH_KeyPressed (KeyCode As String) As Boolean
    Log(KeyCode)
    Return True
End Sub

Sub GVH_KeyReleased (KeyCode As String) As Boolean
    Log(KeyCode)
    Return True
End Sub

Click to expand...

Erel said:

You can intercept key strokes with jGameViewHelper.AddKeyListener.

Click to expand...

GuidoVL said:

How can I use this with B4XPages? Putting this as MainForm says "Types do not match".

Click to expand...

gvh.AddKeyListener("GVH", B4xPages.GetNativeParent(me))

teddybear said:

With B4xpages use B4xPages.GetNativeParent instead

B4X:

gvh.AddKeyListener("GVH", B4xPages.GetNativeParent(me))

Click to expand...

teddybear said:

I guess what you want to capture is closeRequest event, if it is ture, the below code maybe help you.

B4X:

Private Sub B4XPage_CloseRequest As ResumableSub
    Dim sf As Object = xui.Msgbox2Async("Close?", "Title", "Yes", "Cancel", "No", Null)
    Wait For (sf) Msgbox_Result (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Return True
    End If
    Return False
End Sub

Click to expand...