من یک مولتی پنل دارم که از چند باتوم و لیبل و تکس استفاده شده .
چجوری میتونم به همه لیبل ها دسترسی داشته باشم . یدونه رو بلدم ولی چندتا رو تگ میدم موقع سندر همه لیبل ها یه مقدار رو میگیرند .
For i = 0 To cur1.RowCount -1
cur1.Position = i
Dim p1 As Panel
p1.Initialize("")
SC1.Panel.AddView(p1,0,top, 99%x,100%y)
top = top + 19%y
p1.LoadLayout("listkala")
b1.Tag = i
b2.Tag = i
txt1.Tag = i
label1.Tag = i
Btag.Tag = i
label2.Tag = i
Next
Sub Btag_Click
Dim Mybtn As Button
Mybtn = Sender
For Each v As View In SC1.Panel.GetAllViewsRecursive
If GetType(v)="android.widget.TextView" Then
If v.Tag=Mybtn.Tag Then
Dim lb As Label =v
lb.Text = "--"
End If
End If
Next
End Sub
سوال
FarzamPlus 1
سلام دوستان عزیز .
من یک مولتی پنل دارم که از چند باتوم و لیبل و تکس استفاده شده .
چجوری میتونم به همه لیبل ها دسترسی داشته باشم . یدونه رو بلدم ولی چندتا رو تگ میدم موقع سندر همه لیبل ها یه مقدار رو میگیرند .
For i = 0 To cur1.RowCount -1 cur1.Position = i Dim p1 As Panel p1.Initialize("") SC1.Panel.AddView(p1,0,top, 99%x,100%y) top = top + 19%y p1.LoadLayout("listkala") b1.Tag = i b2.Tag = i txt1.Tag = i label1.Tag = i Btag.Tag = i label2.Tag = i Next
Sub Btag_Click Dim Mybtn As Button Mybtn = Sender For Each v As View In SC1.Panel.GetAllViewsRecursive If GetType(v)="android.widget.TextView" Then If v.Tag=Mybtn.Tag Then Dim lb As Label =v lb.Text = "--" End If End If Next End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.