تغییر خواص ویوها بصورت گروهی

[mohsenalavi 5]

سلام.  یک سوال:
در دیزاینر تعدادی ویو از یک نوع ایجاد کرده ایم مثلا ۱۰ عدد باتن با نامهای btn1,btn2,btn3,...,btn10 حالا می خواهیم مثلا رنگ تمام این باتنها را بصورت گروهی از طریق کدنویسی تغییر دهیم. آیا روشی برای این کار وجود دارد مثلا از طریق حلقه for یا ... به شکلی که مجبور نشویم برای تک تک آنها کد بنویسیم؟

[yaser_b4a 131]

از کد زیر استفاده کنید

Sub SetButton(parent As Panel, color1 As Int)

	For Each v As View In parent
		If v Is Button Then
			Dim btn As Button = v
			btn.Color=color1
		End If
	Next
End Sub

به اینصورت بکارگیری کنید:

SetButton(Activity,Colors.Blue)