علاقه مندیها

[alii 61]

سلام

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

[alii 61]

دوستان مشکلم حل نشد خواهشا یکی با ی کد کوچولو منو راهنمایی کنه

یه ستاره رو پنل گذاشتم میخوام این ستاره وقتی پر هست رفتم بیرون برنامه دوباره اومدم پر باشه خالی نباشه همین

[shahab.es 5,429]

برادر کد من دقیقا همین بود دیگه

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

اگه هست، بیتمپش رو مثلا طلایی بذار

اگه نیست همون کدها، بیتمپش رو سفید بذار مثلا

این تیپی

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

[alii 61]

شهاب جان این کد من شما بگو چیکارش کنم

Sub Img1_Click

   img1=Sender
	Msgbox2("Share"&img1.Tag,"","","","",Null)
	valuedam=img1.Tag+1
	Cur1 = sql1.ExecQuery("SELECT * FROM mytable")
    Cur1.Position =valuedam-1
    

   matlab.check= Cur1.GetInt("fav")
    
    If matlab.check = 1 Then

       sql1.ExecNonQuery2("UPDATE mytable SET fav = 0 WHERE ID = ?",Array As Object(img1.tag+1))
     	 img1.Bitmap=LoadBitmap(File.DirAssets,"hg.png")
		 End If
       
	
	 If matlab.check = 0 Then
     sql1.ExecNonQuery2("UPDATE mytable SET fav = 1 WHERE ID = ?",Array As Object(img1.tag+1))
	    img1.Bitmap=LoadBitmap(File.DirAssets,"chay.png")
	 

    End If
   Cur1.Close


End Sub

[shahab.es 5,429]

مشکل همینجاس دیگه

شما عکس رو نباید تغییر بدی اینجا

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

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

بعد هر وقت که اپدیت انجام دادی، لیست ویو رو خالی کن و دوباره اون فراخوانی رو انجام بده

امیدوارم منظروم رو رسونده باشم 

[sganji 678]

شما توی Activity_Create بیا چک کن اگه علاقه مندی بود اییج ویو رو تغییر بده...

[porya 959]

If matlab.check = 1 Then

sql1.ExecNonQuery2("UPDATE mytable SET fav = 0 WHERE ID = ?",Array As Object(img1.tag+1))

img1.Bitmap=LoadBitmap(File.DirAssets,"hg.png")

End If

If matlab.check = 0 Then

sql1.ExecNonQuery2("UPDATE mytable SET fav = 1 WHERE ID = ?",Array As Object(img1.tag+1))

img1.Bitmap=LoadBitmap(File.DirAssets,"chay.png")

End If

همین کدی که نوشتی رو توی activity create بذار تمام...

[porya 959]

همین کدی که نوشتی رو توی activity create بذار تمام...

matlab.check= Cur1.GetInt("fav")

If matlab.check = 1 Then

sql1.ExecNonQuery2("UPDATE mytable SET fav = 0 WHERE ID = ?",Array As Object(img1.tag+1))

img1.Bitmap=LoadBitmap(File.DirAssets,"hg.png")

End If

If matlab.check = 0 Then

sql1.ExecNonQuery2("UPDATE mytable SET fav = 1 WHERE ID = ?",Array As Object(img1.tag+1))

img1.Bitmap=LoadBitmap(File.DirAssets,"chay.png")

End If

[porya 959]

سلام شما بیا تو اکتیویتی علاقه مندی تو قسمت activity create بنویس اگه اون متن تو علاقه مندی بود عکس ستاره تو پر رو نشون بده اگه نبود عکس ستاره خالی رو نشون بده اینجوری اگه از برنامه هم خارج بشی همه چیز درست سر جاشه.

[shahab.es 5,429]

سلام

اینو یه نگا بنداز

Mojtaba.rar