Android Question [Solved] Click in the XUI ImageSlider and use the image

[asales]

I use this example to download images in Android and works fine:
https://www.b4x.com/android/forum/threads/b4x-xui-imageslider.87128/#post-551720

Now I need to click in the image showed in ImageSlider and open this image in an ImageView in another activity.

How I can do this?

Thanks in advance for any tip.

 

[Erel]

You can change CheckTouchGesture to:

Private Sub CheckTouchGesture(EndX As Float)
   If EndX > MousePressedX + 50dip Then
       PrevImage
   Else if EndX < MousePressedX - 50dip Then
       NextImage
   Else
       Log("Clicked")
       CallSub2(mCallBack, mEventName & "_Click", CurrentIndex)
   End If
End Sub

The event sub should be:

Sub ImageSlider1_Click (Index As Int)

 

[asales]

I change the code in this sub (ImageSlide 1.11):

Private Sub WindowBase_Touch (Action As Int, X As Float, Y As Float)

and this works fine:

Sub ImageSlider1_Click (Index As Int)
    Log(Index)   
End Sub

but I don't know how to the the image of index in the click:

Sub ImageSlider1_Click (Index As Int)
   Log(Index)   
   ImageView1.Bitmap = ImageSlider1.??? (Index)  'Bitmap in the index ??
End Sub

 

[Erel]

but I don't know how to the the image of index in the click:

Two options:

1. You set if before. So you should be able to set it again.

2. Make CurrentPanel a public variable and get the image with:

Dim iv As ImageView = ImageSlider1.CurrentPanel.GetView(0)
Dim b As Bitmap = iv.Bitmap

 

[asales]

Option 2.
Solved.
Thanks!

 

[Mahares]

Option 2.
Solved.

I like your idea of click event. Could you please post the revised ImageSlider class module with your revisions. I could not follow the changes that you and Erel are making back and forth.
Thanks

 

[asales]

I like your idea of click event. Could you please post the revised ImageSlider class module with your revisions. I could not follow the changes that you and Erel are making back and forth.
Thanks

Here.
I marked the changes with: '*** CHANGED 1.12

Sub ImageSlider1_Click (Index As Int)
    Log(Index)
    MyImage = ImageSlider1.CurrentPanel.GetView(0)
    Dim b As Bitmap = MyImage.Bitmap
End Sub