گرفتن tag ویوها در panel

[h e 2]

سلام خدمت اساتید بی توقع و دوستان عزیز تشکر از مدیر سایت که این بستر رو برای علاقمندان به این حوزه ایجاد کردند به نوبه خودم صمیمانه از همه شما عزیزان تشکر می کنم.

بنده از دیتابیس آنلاین اطلاعات را می گیرم و در یک آرایه ذخیره می کنم  و بعد می خواهم آنها را به خاطر لود سریع (عکس ها) در custom listview  در قسمت  VisibleRangeChanged بریزیم.

با استفاده از tag پنلی که ایجاد شده می تونم یکی از اعضای آرایه را بگیرم ولی بقیه رو نمی تونم. کسی می دونه چکار باید بکنم؟!

Sub JobDone(job As HttpJob)
	If job.Success Then
		Select job.JobName
			Case "jobBobo"
				Log(job.GetString)
				If job.GetString = "nothing" Then
					Return
				End If
				Dim rows() As String = Regex.Split("<br>", job.GetString)

				For Each row As String In rows
					components = Regex.Split("#", row)
					Dim p As Panel = xui.CreatePanel("")
					p.SetLayoutAnimated(0, 0, 0, 100%x, 150dip)
					p.Tag = components(1)
					clv.Add(p, components(0))
				Next
		End Select
	Else
		Log(job.ErrorMessage)
	End If
	job.Release
End Sub

Private Sub clv_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
	For i = FirstIndex To LastIndex
		Dim p As Panel
		p = clv.GetPanel(i)
		If p.NumberOfViews = 0 Then
			p.LoadLayout("item")
			label1.Text = p.Tag ''''''''''''''' that is OK
			label2.Text = ?????????????
            DownloadImage(?????????????, imgBobo)
		End If
	Next
End Sub

 

[h e 2]

دوستان مشکل حل شد.😃

در globals یک متغییر تعریف کردم: Dim lb As Label

در jobdone تگش رو برابر آرایه موردنظر قرار دادم: lb.Tag = components(2)

در VisibleRangeChanged  متغیر رو برابر clv.GetPanel(i) کردم و سپس تگش رو گرفتم 

lb = clv.GetPanel(i)

Label.Text = lb.Tag