• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 5 رای - 2.6 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: favorite
حالت خطی
#2
سلام به همه
خودم بعد کلی کار تونستم یه چیزایی بنویسم که کار هم می کنه
خواستم بقیه هم ببینن شاید به دردشون خورد
هرچند این روشی که گذاشتم شاید برای همه به کار نیاد
بهرحال کسی می دونه روش دیگه و ساده تری هست به منم بگه مرسی


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


کد:
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

 
 
پاسخ
  


پیام‌های این موضوع
favorite - توسط sepidpor - 08-13-2013، 12:50 AM
RE: favorite - توسط sepidpor - 08-21-2013، 01:15 PM

پرش به انجمن:


Browsing: 1 مهمان