رفتن به مطلب
  • 0

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


yasin41

سوال

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

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

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

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

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

دوستتون دارم

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

اکتیویتی اول

#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


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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...