تغییر متن لیبل ها در مولتی پنل

[qmars 38]

سلام و خسته نباشید
خیلی گشتم اما پیدا نکردم
من میام اطلاعاتو از دیتابیس آفلاین میخونم 
فرض کنید توی هر پنل یه لیبل هست و یه اسپینر
چجوری با تغییر اسپینر متن لیبل رو عوض کنم؟
 

Sub spquality_ItemClick (Position As Int, Value As Object)
    Dim sp As Spinner
    
    sp = Sender
    
    Select Value
        Case 1 
            
            
            Case 2
                
    End Select
End Sub

با سندر میفهمه که با کدون اسپینر دارم کار میکنم
حالا چجوری بهش بفهمونم که متن لیبلی که تگش 20 رو عوض کن 

[qmars 38]

وقتی از لیبل استفاده میکنم تگ باتن و لبیل برابر هستن و تکست هم باتن هم لیبل تغییر میکنه
ولی وقتی از ادیت تکست استفاده میکنم این مشکل وجود نداره
 

Sub btncalcu_Click
	Dim bt As Button
bt = Sender
Dim n As Double = bt.Tag

	getview(n)
	
	
End Sub
Sub getview(n As Int)
	
	Log(n)


	For Each v As View In sv.Panel.GetAllViewsRecursive
		Log(v)
		If v Is Panel Then
			Dim pn As Panel = v
			Log("this is n"& n)
			If n = pn.Tag Then
'				For Each v2 As View In pn.GetAllViewsRecursive
'				Log( v2.Tag)
'					If v2 Is Label Then
'						Dim lb As Label = v2
'						If lb.Tag = bt.Tag Then
'							lb.Text = "Q"
				pn.Color = Colors.Blue
'						End If
'					End If
'				Next
				
				
			End If
		End If
		If v Is EditText Then
			Dim txt As EditText = v
			If txt.Tag <> ""  And txt.Tag <> Null Then
			
				If n =  txt.Tag  Then
					
'				lb.Text = "w"
					txt.Text = "sth"
				End If
			End If
		End If
	Next
	
End Sub

 

[asheune 70]

درود

توی لود کردن مولتی پنل روی هر اسپینر یه تگ بذار و وقتی رویداد اسپینر چنج رخ داد از تگش دوباره استفاده کن وتوی دستور select بجای value از تگ استفاده کن

Sub spquality_ItemClick (Position As Int, Value As Object)
    Dim sp As Spinner
    sp = Sender
    Select sp.tag
        ...
             
    End Select
End Sub