[sepidpor]

سلام دوستان کسی می تونه سورس favorite رو بهم بده
می خوام نام آیتم  لیست ویو ذخیره شه و دوباره بتونم در قسمت دیگه واسه فیوریت لیست ویو جدید بسازم
ممنون می شم اگه کسی کمک کنه

[sepidpor]

سلام به همه
خودم بعد کلی کار تونستم یه چیزایی بنویسم که کار هم می کنه
خواستم بقیه هم ببینن شاید به دردشون خورد
هرچند این روشی که گذاشتم شاید برای همه به کار نیاد
بهرحال کسی می دونه روش دیگه و ساده تری هست به منم بگه مرسی


هنگام ساخت اکتیوتی

کد:

File.OpenOutput(File.DirInternal ,"fav.txt",True)

هنگام لود صفحه

کد:

list2= File.ReadList (File.DirInternal , "fav.txt")

For n=0 To list2.Size -1
searchfav=list2.Get(n)
If searchfav = activity.title Then
imgfav.Bitmap=LoadBitmap(File.DirAssets , "fav-on.png") End If
Next


'پیش فرض عکس fav-off.png هست و در اینجا اگر داخل فایل تکست اسم صفحه بود عکس عوض می شود

هنگام کلیک روی عکس فیوریت

کد:

Sub imgfav_click
Dim word As String
Dim list2 As List
Dim bol As String
list2= File.ReadList (File.DirInternal , "fav.txt")
bol="fav-on.png"
For n=0 To list2.Size -1
word=list2.Get(n) If word = Activity.Title Then
list2.RemoveAt(n)
imgfav.Bitmap=LoadBitmap(File.DirAssets , "fav-off.png")
bol="not" n=n+1000
End If
Next
If bol="fav-on.png" Then
list2.Add (Activity.Title)
list2.Sort(True)
imgfav.Bitmap=LoadBitmap(File.DirAssets , bol)
End If
File.Delete (File.DirInternal , "fav.txt")
File.WriteList (File.DirInternal , "fav.txt",list2)


End Sub