Android Question [solved] B4XImageView how to use Click-Event?

[DonManfred]

Hello,

i have an B4XImageView because of its Features to Fit the image.

But i do need the Click-Event. How to i set a eventhandler for a B4XImageView?

 

[jahswant]

But i do need the Click-Event. How to i set a eventhandler for a B4XImageView?

I add a transparent panel on top of it. Then I handle it's click.

 

[DonManfred]

I add a transparent panel on top of it. Then I handle it's click.

Unfortunately the B4XImageView is inside a xCLV as the Items must be scrollable. Putting a Panel above will restrict the scrolling ability!?

 

[Marvel]

Why not out the B4XImageView inside a panel before adding it to the CLV so you can capture the panel touch event. That's what I do

 

[MarcoRome]

Hi dear Don do you see this:

B4XImageView - Click event

B4XImageView - Click event

www.b4x.com

 

[Peter Simpson]

I place B4XImageView inside a Panel, I then use the panel click event, the click goes right through the image directly to the panel.

 

[DonManfred]

I place B4XImageView inside a Panel, I then use the panel click event, the click goes right through the image directly to the panel.

it also works without a special inner panel.

            Dim pnl As B4XView = xui.CreatePanel("titel")
            pnl.SetLayoutAnimated(0,0,0,scvMain.AsView.Width,itemheight)
            pnl.LoadLayout("PosItem") ' PosItem-Layout only contains the b4ximageview btw
            pnl.Tag = aktart.Get("bildname7")
            scvMain.Add(pnl,pnl.Tag)

i now use the tag from the Panel created by xui.CreatePanel

Private Sub titel_Click  'to create a pseudo raise click event of B4XImageView1 by clicking the panel that holds the img
    Log($"titel_Click()"$)
    Dim index As Int = scvMain.GetItemFromView(Sender)
    Dim pnl As B4XView = scvMain.GetPanel(index)
    ' I now use the tag set on the Panel to work further
end sub

Thank you all for your answers! ;-)

 

[Mahares]

Sine you are using the panel click event titel_Click without the need for the inner panel , you can replace these 2 lines:

Dim index As Int = scvMain.GetItemFromView(Sender)
Dim pnl As B4XView = scvMain.GetPanel(index)

with this one line:

Dim pnl As B4XView = Sender   'or Sender.As(B4XView)

 

[LucaMs]

B4XImageView - Click event

(Read the full thread).