B4J Question [B4XPages] Key event - KEY_PRESSED and KEY_RELEASED

[Elric]

Hi,

I'd like to manage the key event in a B4XPage but I don't know how.

It seems that forum return only result for B4A or for B4J using form.

Any hint?

Thanks!

 

[TILogistic]

I have a class for this, but I can't find it.

But look at this example:

and add this if you want to expand the example class.

KeyBoard Event,detect CTRL+X or etc...

Private KEY_CTRL_PRESSED As Boolean = False Sub AppStart (Form1 As Form, Args() As String) MainForm = Form1 MainForm.RootPane.LoadLayout("Main") 'Load the layout file. MainForm.Show AddKeyPressedListener(MainForm) End Sub Sub AddKeyPressedListener(f As Form)...

www.b4x.com

 

[juangtju]

thanks is exactly i looking for

 

[Elric]

thanks is exactly i looking for

@oparra me too!

 

[Elric]

Can I use this to select a control?

For instance, can I use NUMPAD1 to select radiobutton1?

I'm trying without success...

 

[TILogistic]

Can I use this to select a control?

For instance, can I use NUMPAD1 to select radiobutton1?

I'm trying without success...

you want to associate the keyboard to objects or views?

 

[Elric]

I'm interested to both of them.

At present, I'd like to use "UP" and "DOWN" to set focus, case by case, between 4 radiobuttons and use "ENTER" to checked one of them.

 

[Elric]

I've implemented this solution but moving the subs from oparra's class into b4xpage module.

I don't know how to manage it with the oparra's class!

Each B4XRadioButton need to have the tag set. Here the tag are the same of the name (B4XRadioButton1 etc.).

Sub Class_Globals
    Private intrdbSelected As Int
End Sub

Sub AddKeyPressedListener
    Dim r As Reflector
    r.Target = Root
    r.AddEventFilter("keypressed", "javafx.scene.input.KeyEvent.ANY")
End Sub

Sub KeyPressed_Filter (e As Event)
  
    Dim jo As JavaObject = e
    Dim EventType As String = jo.RunMethodJO("getEventType", Null).RunMethod("getName", Null)
    If EventType = "KEY_PRESSED" Then
        Dim keycode As String = jo.RunMethod("getCode", Null)
          
        Select keycode
            Case "UP"
                intrdbSelected = intrdbSelected - 1             'intrdbSelected is a global variable to memorize the present position of selector cursor
                If intrdbSelected <= 0 Or intrdbSelected >= 5 Then
                    intrdbSelected = 4
                End If
                Wait For (GetTagOfB4XRadioButtonToBeSelected(intrdbSelected)) Complete (myResultString As String)
                rdbSelect(myResultString)
            Case "DOWN"
                intrdbSelected = intrdbSelected + 1
                If intrdbSelected <= 1 Or intrdbSelected >= 5 Then
                    intrdbSelected = 1
                End If
                Wait For (GetTagOfB4XRadioButtonToBeSelected(intrdbSelected)) Complete (myResultString As String)
                rdbSelect(myResultString)
        End Select
    End If
End Sub

Private Sub GetTagOfB4XRadioButtonToBeSelected(myInt As Int) As ResumableSub
'With this sub we get the tag of B4XRadioButton that will be selected

    Private myString As String
   
    Try
        If 1 = myInt Then
            myString = "B4XRadioButton1"
        Else If 2 = myInt Then
            myString = "B4XRadioButton2"
        Else If 3 = myInt Then
            myString = "B4XRadioButton3"
        Else If 4 = myInt Then
            myString = "B4XRadioButton4"
        End If
    Catch
        Log(LastException)
    End Try
   
    Return myString
End Sub

Private Sub rdbSelect(myString As String)
    DecolorizeRadioButtons
    For Each vw As B4XView In Root.GetAllViewsRecursive
        If vw.tag Is B4XRadioButton Then
            Private rdb As B4XRadioButton = vw.Tag
            Try
                If rdb.Tag = myString  Then
                    rdb.mBase.SetColorAndBorder(xui.Color_Transparent, 5dip, xui.Color_White, 5dip)
                End If
            Catch
                Log(LastException)
            End Try
        End If
    Next
End Sub

Private Sub DecolorizeRadioButtons
   
        B4XRadioButton1.mBase.SetColorAndBorder(xui.Color_Transparent, 1dip, xui.Color_LightGray, 5dip)
        B4XRadioButton2.mBase.SetColorAndBorder(xui.Color_Transparent, 1dip, xui.Color_LightGray, 5dip)
        B4XRadioButton3.mBase.SetColorAndBorder(xui.Color_Transparent, 1dip, xui.Color_LightGray, 5dip)
        B4XRadioButton4.mBase.SetColorAndBorder(xui.Color_Transparent, 1dip, xui.Color_LightGray, 5dip)
   
End Sub