رفتن به مطلب
  • 0

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


seyyedali

سوال

سلام 

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

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

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

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

اینم کد ها

 

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...