B4J Question about jReflection

[Gianni M]

'
Dim TextField1 as TextField
Dim TextField2 as TextField
Dim TableView1 As TableView
'
ref (TextField1)
ref (TextField2)
ref (TableView1)
'
'
'
'
Private Sub ref (t As Object)
    Dim r As Reflector
    r.Target = t
    r.AddEventHandler("keypressed", "javafx.scene.input.KeyEvent.KEY_PRESSED")
End Sub
'
Private Sub keypressed_event (e As Event)
    Log("How to know the object? ")
    Dim tt As Object = Sender
    Log(GetType(tt)) 'is that correct?
    '
    Dim KE As Reflector
    KE.Target = e
    Dim KeyCode As String
    KeyCode = KE.RunMethod("getCode")
    Log(KeyCode)
End Sub

 

[teddybear]

Log("How to know the object? ")

Add a Tag for each view, and then you can know what the object is.

Dim TextField1 as TextField
TextField1.Tag="TF1"
ref (TextField1)
...
Private Sub keypressed_event (e As Event)
    Log("How to know the object? ")
    Dim tt As B4XView = Sender
    Log(tt.Tag) 'This is correct
    '...
End Sub

 

[Gianni M]

Private Sub keypressed_event (e As Event)
    Log("How to know the object? ")
    Dim tt As B4XView = Sender
    Log(tt.Tag) 'This is correct
    '...
End Sub

is there no other solution?

 

[teddybear]

is there no other solution?

Didn't it work? what are you goals?

 

[Gianni M]

Didn't it work?

it is ok!
i use .Tag, in most my app.
with a new app, i set a tag: param1, param2, param3, ...., .....
and after

Dim param() As String = Regex.Split(",", tt.Tag)
Log(param.Length)

ok; I was wondering if a different solution was possible; thanks for your help

 

[Daestrum]

You could use the ID field of most nodes, but it takes a bit more code to set and use

Dim TextField1 as TextField
...
TextField1.as(JavaObject).RunMethod("setId",array("TextField1")) ' needed for each control you want

...

Private Sub keypressed_event (e As Event)
    Log("How to know the object? ")
    Dim tt As JavaObject = Sender
    Log(tt.RunMethod("getId",null)) 
    '...
End Sub

 

[Star-Dust]

it is ok!
i use .Tag, in most my app.
with a new app, i set a tag: param1, param2, param3, ...., .....
and after

Dim param() As String = Regex.Split(",", tt.Tag)
Log(param.Length)

ok; I was wondering if a different solution was possible; thanks for your help

store a map variable in the tag

 

[Gianni M]

store a map variable in the tag

wow!

 

[stevel05]

You could compare the sender object to the views you are expecting:

If sender = view1 Then
...
End If