B4J Question Capture KeyPress

[GuidoVL]

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

 

[teddybear]

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

Search the key keypress in the forums, you will get the answer which you asked.

 

[Erel]

You can intercept key strokes with jGameViewHelper.AddKeyListener.

 

[PaulMeuris]

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

Private Sub Main_KeyPressed_Event(e As Event)

Happy coding!

 

[GuidoVL]

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

Private Sub Main_KeyPressed_Event(e As Event)

Happy coding!

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

 

[teddybear]

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

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

    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

 

[PaulMeuris]

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

That is because you didn't go to message #31 where you can find the last version v12.

 

[GuidoVL]

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

    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

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

 

[GuidoVL]

You can intercept key strokes with jGameViewHelper.AddKeyListener.

Erel, can I use this with B4XPages?

 

[teddybear]

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

With B4xpages use B4xPages.GetNativeParent instead

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

 

[GuidoVL]

With B4xpages use B4xPages.GetNativeParent instead

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

Great Teddybear, it works, but what I want to capture is the Close button in the upper right corner (X).

 

[teddybear]

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

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

 

[GuidoVL]

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

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

That's it! Thanks a lot.