تغییر عکس باتن علاقه مندی ها

[seyyedali 77]

سلام 

برای برنامم لیست علاقه مندی ها درست کردم، تااینج مشکلی نیست 

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

مشکل اینجاست وقتی رو باتن یک ایتم کلیک می کنم تا به علاقه مندی ها اضافه بشه خود ایتم اضافه میشه ولی فقط عکس ایتم آخر تغییر میکنه

فکر میکنم باید داخل یه حلقه ای پیزی باشه ولی پیاده سازیشو بلد نیستم

اینم کد ها

 

Sub Lp_Click
Dim cursor3 As Cursor
Dim b As Button
	b = Sender
cursor3 = s.ExecQuery("SELECT * FROM codsy WHERE radif = " & b.tag)
 	cursor3.Position = 0
Dim id As Int = cursor3.getint("radif")
	Dim fav As Int = cursor3.GetInt("fav")
	If fav = 0 Then
	    s.ExecNonQuery("UPDATE codsy SET fav = 1 WHERE radif = "&id)
		Lp.SetBackgroundImage(LoadBitmap(File.DirAssets , "favkh1.png"))
		ToastMessageShow("به علاقه مندی ها اضافه شد",False)
	Else
	    s.ExecNonQuery("UPDATE codsy SET fav = 0 WHERE radif = "&id)
		Lp.SetBackgroundImage(LoadBitmap(File.DirAssets , "favpor1.png"))
		ToastMessageShow("از علاقه مندی ها حذف شد",False)
	End If
	

End Sub

 

[seyyedali 77]

دوستان یه کمکی بکنید

[Farzad Musavi 576]

سلام دوست عزیز

اگه آیکون علاقه مندی رو باتن Lp هست بیا کد

Lp.SetBackgroundImage(LoadBitmap(File.DirAssets , "favpor1.png"))

به این کد تغییر بده

b.SetBackgroundImage(LoadBitmap(File.DirAssets , "favpor1.png"))

favkh رو هم همینطور

[seyyedali 77]

اقا درست شد

ممنون

یه هفته ی مخمو خورده

ممنون