Spanish B4J ¿Cómo detectar el cursor del ratón sobre una etiqueta usando solo una subcategoría?

[eljare24]

¿Cómo puedo saber cuándo el cursor del ratón está sobre una etiqueta creada mediante código? En realidad, hay 26 etiquetas que utilizan una sola subrutina. En otras palabras, ¿cómo puedo evitar usar una subrutina independiente para cada etiqueta, dado que hay tantas?

Estoy trabajando con b4j y b4xpages.

¡Gracias de antemano!

Javier

 

[Lucas Siqueira]

'...
'exemple create label
Dim Label1 As Label
Label1.Initialize("Label1")
Label1.SetLayoutAnimated(0, 0, 0, 100dip, 100dip)
Label1.Text = "OK"
Root.AddView(Label1, 0, 0, Label1.Width, Label1.Height)
'....
Private Sub Label1_MouseMoved (EventData As MouseEvent)
    Log("hover")
End Sub

 

[Lucas Siqueira]

'...
'exemple create multiples labels
For i = 1 To 30
    Dim lbl As Label
    lbl.Initialize("LBL")
    lbl.SetLayoutAnimated(0, 0, 0, 100dip, 100dip)
    lbl.Text = "Label " & i
    lbl.Tag = i
    Root.AddView(lbl, 0, (i * 100dip), lbl.Width, lbl.Height)
Next
'...
Private Sub LBL_MouseMoved (EventData As MouseEvent)
    Dim lbl As Label = Sender
    Log("hover " & lbl.Tag)
End Sub

 

[eljare24]

Gracias Lucas Siqueira, lo probare y comentaré resultados.

 

[eljare24]

Perfecto!, funcionó

Como puedo crear esos label dentro de un panel especifico y no en la root?

Gracias!

 

[Lucas Siqueira]

Cambie el nombre del panel root al nombre específico que necesite.

 

[eljare24]

Hola Lucas

Cambie el nombre del panel root al nombre específico que necesite.

Hola Lucas, gracias!. ya hice eso y me arrojó error. pero ya acomodé de otra forma en un clv. y me ha dado un resultado semejante al que esperaba.

Gracias!.