اندیس برای لیبل ها

[arhp 0]

سلام

چگونه می شه برای لیبل ها اندیس گذاری کرد
For i=1 To 100
lb(i).text=i
Next
مثلاً می خواهیم تکست صد تا لیبل را برابر مقدار i قرار دهیم

[امین شاهدی 5,777]

17 ساعت قبل، arhp گفته است:

سلام

چگونه می شه برای لیبل ها اندیس گذاری کرد
For i=1 To 100
lb(i).text=i
Next
مثلاً می خواهیم تکست صد تا لیبل را برابر مقدار i قرار دهیم

سلام 

برای اینکار میتونین کل ویو های اکتیوتیروبگیرین و چک کنین اگه لیبل بود برابر مقدار قرار بده ، اگه میخواین فقط یه سری لیبل خاص این کار روشون انجام شه ، بهشون تگ بدین (از طریق دیزاینر هم میشه) (یا میتونین مثلا به 2تا تگ بدین که رو اونا انجام نشه )

	Dim counter As Int = 0
	For i=0 To Activity.NumberOfViews-1
		If Activity.GetView(i) Is Label Then
			Dim l As Label = Activity.GetView(i)
			If l.Tag = "felan" Then
				l.Text = counter
				counter=counter+1
			End If
		End If
	Next

چون ممکنه بعضی ویو ها لیبل نباشه و حلقه ادامه پیدا کنه ، یه متغیر کانتر گذاشتم تا اعداد رو پشت سر هم و مرتب بزنه