+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Mobile (http://parsicoders.com/forumdisplay.php?fid=56)
+--- انجمن: Basic4Android (http://parsicoders.com/forumdisplay.php?fid=112)
+--- موضوع: favorite (/showthread.php?tid=3322)
favorite - sepidpor - 08-13-2013
سلام دوستان کسی می تونه سورس favorite رو بهم بده
می خوام نام آیتم لیست ویو ذخیره شه و دوباره بتونم در قسمت دیگه واسه فیوریت لیست ویو جدید بسازم
ممنون می شم اگه کسی کمک کنه
RE: favorite - sepidpor - 08-21-2013
سلام به همه
خودم بعد کلی کار تونستم یه چیزایی بنویسم که کار هم می کنه
خواستم بقیه هم ببینن شاید به دردشون خورد
هرچند این روشی که گذاشتم شاید برای همه به کار نیاد
بهرحال کسی می دونه روش دیگه و ساده تری هست به منم بگه مرسی
هنگام ساخت اکتیوتی
کد:
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