اموزش ساخت لیست علاقه مندی ها

[yasin41 16]

سلام دوستان عزیزم

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

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

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

توروخدا یه سورسی واسم بذارین من تازه کارم ممنون میشم

دوستتون دارم

 

[porya 959]

اکتیویتی اول

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim sql1 As SQL
	Dim Cursor1 As Cursor
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private ListView1 As ListView
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("data")
	If File.Exists(File.DirInternal,"porya.db") = False Then
	File.Copy(File.DirAssets,"porya.db",File.DirInternal,"porya.db")
	End If
	
	If sql1.IsInitialized = False Then
	sql1.Initialize(File.DirInternal,"porya.db",True)
	End If
	
	Cursor1 = sql1.ExecQuery("SELECT * FROM por")
	
	For i = 0 To Cursor1.RowCount-1
	Cursor1.Position = i
	
	ListView1.AddSingleLine(Cursor1.GetString("titr"))
	Next
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub ListView1_ItemLongClick (Position As Int, Value As Object)

	 Cursor1.Position = Position
	  
	 Dim check As Int
     check = Cursor1.GetString("f")
     
     If check = 0 Then
   
     
         sql1.ExecNonQuery("UPDATE por SET f = 1 WHERE id = "&Cursor1.GetInt("id"))
		 sql1.IsInitialized
	     Cursor1 = sql1.ExecQuery("SELECT * FROM por")
         ToastMessageShow("به علاقه مندی ها اضافه شد",False)
		 
	End If
	
End Sub

اکتیویتی دوم

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim sql1 As SQL
	Dim Cursor1 As Cursor
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private ListView1 As ListView

End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("alaghe")
	sql1.Initialize(File.DirInternal,"porya.db",True)
	Cursor1 = sql1.ExecQuery("SELECT * FROM por WHERE f = 1")
	For i = 0 To Cursor1.RowCount -1
	Cursor1.Position = i
	ListView1.AddSingleLine(Cursor1.GetString("titr"))
	Next
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub ListView1_ItemLongClick (Position As Int, Value As Object)

     Dim check As Int
     check = Cursor1.GetString("f")
     
     If check = 1 Then
	 
         sql1.ExecNonQuery("UPDATE por SET f = 0 WHERE id = "&Cursor1.GetInt("id"))
		 sql1.IsInitialized
	     Cursor1 = sql1.ExecQuery("SELECT * FROM por")
         ToastMessageShow("از علاقه مندی ها حذف شد",False)
     
         
    End If
	
End Sub

تست کن ببین جواب میده

[yasin41 16]

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

ممنونم از لطف بزرگتون

[HAMEDDDR 15]

با سلام اپلود کردی بالا نمیاد اصلا که دانلود بشه