A novice trying to understand .Tag

jaraiza

Active Member
Licensed User
Longtime User
Hi, I'd like to thank for this great language!! I've been coding some samples doing the learning curve but I've some doubts...

I'm trying to get ImageView "custom id" (inside a Scrollview) using .Tag, I thought it was a nice idea... But it didn't work

B4X:
Sub Globals
   Dim scr_Buttons As HorizontalScrollView
   Dim icon1, icon2, icon3, icon4, icon5 As Bitmap
   Dim viewImage As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("Busca_Categ") ' There is a HorizontalScrollView named "scr_Buttons" here

   icon1.Initialize(File.DirAssets,"icon_01.png")
   icon2.Initialize(File.DirAssets,"icon_02.png")
   icon3.Initialize(File.DirAssets,"icon_03.png")
   icon4.Initialize(File.DirAssets,"icon_04.png")
   icon5.Initialize(File.DirAssets,"icon_05.png")
   
   Dim xPos As Double
   
   For T = 1 To 5
      viewImage.Initialize("Imagen")
      xPos = (T-1) * 65dip
      Select T
         Case 1
            viewImage.Bitmap = icon1
            viewImage.Tag = 3
         Case 2
            viewImage.Bitmap = icon2
            viewImage.Tag = 5
         Case 3
            viewImage.Bitmap = icon3
            viewImage.Tag = 15
         Case 4
            viewImage.Bitmap = icon4
            viewImage.Tag = 8
         Case 5
            viewImage.Bitmap = icon5
            viewImage.Tag = 13
      End Select
      scr_Buttons.Panel.AddView(viewImage,xPos,0dip,60dip,60dip)
   Next
End Sub

Sub Imagen_Click
   Dim Send As View
   Send = Sender
   Msgbox("Selected Image: " & Send.Tag,"Message")
End Sub

I thought I was going to get different Tag values, but Send.Tag always return 13 (the last assigned value)

What am I doing wrong?

Thanks in advance
 

jaraiza

Active Member
Licensed User
Longtime User
Thank you very much, it worked perfectly I was about to pull out my hair LOL

Thanks again!
 
Upvote 0
Cookies are required to use this site. You must accept them to continue using the site. Learn more…