تغییر رنگه فقط یک دکمه در مولتی پنل...

[HS71 78]

با سلام

ما یک مولتی پنل داریم به همراه 20 دکمه و لیبل، که اطلاعات رو از دیتابیس میگیره  ،  اما نمیدونیم چطور وقتی روی یکی از دکمه ها کلیک شد فقط رنگ همون یکی تبدیل بشه به سبز و همین که یکی دیگه رو زدیم

قبلی برگرده به رنگه اولش که سیاهه و بعدی به سبز تبدیل بشه ؟

از تگ و سندر که استفاده میکنیم  هرکدومش که کلیک میشه تبدیل به سبز میشه،  اما ما میخوایم فقط همون که کلیک کردیم رنگش عوض بشه و بقیه همون  پیشفرض باشه....

برای یک پلیر موسیقی میخوام که هر کدومش که کلیک شد فقط همون دکمه رنگش تغییر کنه و  کاربر بفهمه که کدوم ترک از لیست(مولتی پنل) داره پخش میشه..

تو سایت هم نتونستم این موضوع رو پیدا کنم!

با تشکر.   

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

سلام این روش رو تست کنین البته خودم تست نکردم فقط نوشتمش ، 

شما اول یه لیست توی ساب Globals تعریف کنید : 

Dim ButtonsList As List

و توی ساب ActivityCreate اون رو initialize کنین :

ButtonsList.Initialize

حالا توی حلقه مالتی پنل باتن هاتون رو به لیست بدین : 

For i=0 To 10
	'code hae MultiPanel
	Button.Tag = i
	ButtonsList.Add(Button)
	....
Next

زمان کلیک باتن ساب زیر رو اجرا کنید و به جای b.Color کد های تغییر رنگ خودتون رو بزارین 

Sub Button_Click
	Dim b As Button = Sender
	Dim position As Int = b.Tag
	ChangeColorToGreen(position)
End Sub

Sub ChangeColorToGreen(position As Int)
	For i=0 To ButtonsList.Size - 1
		Dim b As Button = ButtonsList.Get(i)
		If b.Tag = position Then
			b.Color = Colors.Green
			Else
			b.Color = Colors.Black	
		End If
	Next
End Sub