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

مشکل در لیست علاقبندی در مولتی پنل


arash.at

سوال

سلام 

من از فروشگاه سایت دوره آموزش لیست علاقمندی رو خریدم و برای استفاده از علاقمندی در favorite دقیقا کد های زیر رو به ترتیب در قسمت های Activity_Create و رویداد کلیک عکسم می نویسم . ولی مشکل اینجاس که وقتی یه تعدادی رو توی یه بخش نشان دار می کنم و بعد که دوباره می خوام وارد همون بخش بشم فقط یکیشون نشان داره ! چیکار کنم ؟ سورس و فیلم رو که از فروشگاه خریده بودم و طبق اون هم پیش رفتم . 

 

1.png2.png

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

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

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

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

If cur.GetString("appRead") = "O"

  کد پایین رو قرار بدید ببینید جواب میده...

If cur.Getint("appRead") = "O"
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

If cur.GetString("appRead") = "O"

  کد پایین رو قرار بدید ببینید جواب میده...

If cur.Getint("appRead") = "O"

این کار رو هم کردم.جواب نداد 

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

بیا به جای کدهای که تو اکتیویتی کریت گذاشتی این کدهارو بذار...

	Dim check As Int
    check =cur.Getint("appRead")

If check = 1 Then
favlmg.Bitmap = LoadBitmapSample(File.DirAssets,"favoriteOl.png",favlmg.Width,favlmg.Height)
 Else 
favlmg.Bitmap = LoadBitmapSample(File.DirAssets,"favoritel.png",favlmg.Width,favlmg.Height)
 End If 
favlmg.Tag = i 
Next 
ScrollViewl.Panel.Height = top 
cur.Close 

و به جای کدهای رویداد sub favimg_click اینا رو بنویس...

Dim img As lmageView
	img = Sender
	
	Dim cursor2 As Cursor
	cursor2 = sql1.ExecQuery("SELECT * FROM tblapp")
	cursor2.Position = img.Tag
	
	Dim check As Int
	check = cursor2.GetInt("appRead")
	
	If check = 1 Then
	
sql1.ExecNonQuery("UPDATE tblapp SET appRead = 0 WHERE applD = "&cursor2.GetInt("applD"))
favlmg.Bitmap = LoadBitmapSample(File.DirAssets,"favoriteOl.png",favlmg.Width,favlmg.Height)
ToastMessageShow("از لیست علاقمندی ها حذف شد",False)

	Else
    
sql1.ExecNonQuery("UPDATE tblapp SET appRead = 1 WHERE applD = "&cursor2.GetInt("applD"))
favlmg.Bitmap = LoadBitmapSample(File.DirAssets,"favoritel.png",favlmg.Width,favlmg.Height)
ToastMessageShow("به لیست علاقمندی ها اضافه شد",False)

	End If
	cursor2.Close

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

بایگانی شده

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

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

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