چگونگی گذاشتن علاقه مندی در صفحه متن

[farzad 41]

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

مثل عکس

[ehsankhan 256]

ممنون آقا فرزاد گل

اشتباهات در اکتیویتی مطلب

اشتباه

cur =Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1")

صحیح آن

    cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)

اشتباه در اکتیویتی Fav

اشتباه

cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)

صحیح

    cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE Fav=1")

اشتباه

Menu1.sql1.ExecNonQuery("DELETE FROM Tbl1 WHERE id='"&Value&"'")

صحیح

  Menu1.sql1.ExecNonQuery("UPDATE Tbl1 SET Fav = 0 WHERE id='"&Value&"'")

آقایون موفق باشید علاقه مندی ها درست شد

خیلی خیلی عالی بود

[shahab1392 47]

عزیزان ، اساتید ، بزرگواران ... یه لطف کنید بررسی کنید ببینید این کد ها چه اشکالی دارن باز هم میگم

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

ایک عکس فایل db من هستش

بعد هم کد اکتیویتی matlab هم کد زیر هستش

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

Sub Process_Globals
Dim cur As Cursor
End Sub

Sub Globals


   Private ScrollView1 As ScrollView


   Dim label1 As Label

   Private Button1 As Button
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("frm2")
   If File.Exists(File.DirInternal,"book1.db")= False Then
   File.Copy(File.DirAssets,"book1.db",File.DirInternal,"book1.db")
   End If

   If Menu1.SQL1.IsInitialized=False Then
   Menu1.SQL1.Initialize(File.DirInternal,"book1.db",False)
   End If

   cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)

   For i=0 To cur.RowCount-1
   cur.Position=0    
   Next
   label1.Initialize("Label1")

   label1.text=cur.GetString("Matn")



   label1.Typeface=Typeface.LoadFromAssets(Setting.font &".ttf")
   ScrollView1.Panel.AddView(label1,0,0,ScrollView1.Width,ScrollView1.Height)

   Dim su As StringUtils
   label1.TextSize=Setting.size 
   label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text)    
   ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.Text)




End Sub



Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



این کد دکمه علاقه مندی هستش

Sub Button1_Click       
   Dim cur As Cursor
   cur =Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1")
   For i=0 To cur.rowcount-1
   cur.position=i
   Dim f As Int
   f = cur.GetInt("Fav")
   If f = 1 Then
    Menu1.SQL1.ExecNonQuery("UPDATE Tbl1 SET Fav = 0 WHERE id = "&cur.GetInt("id"))
   ToastMessageShow("از لیست علاقه مندی ها حذف شد",False)
   Else
   Menu1.SQL1.ExecNonQuery("UPDATE Tbl1 SET Fav = 1 WHERE id = "&cur.GetInt("id"))
   ToastMessageShow("به لیست علاقه مندی ها اضافه شد",False)
   End If


Next
cur.close
End Sub

اینم کد اکتیویتی fav یا علاقه مندی هستش

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

Sub Globals
   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("Fav1")
If File.Exists(File.DirInternal,"book1.db")= False Then
   File.Copy(File.DirAssets,"book1.db",File.DirInternal,"book1.db")
   End If

   If Menu1.SQL1.IsInitialized=False Then
   Menu1.SQL1.Initialize(File.DirInternal,"book1.db",False)
   End If

   Dim cur As Cursor
   cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)

   Dim bd As BitmapDrawable
   bd.Initialize(LoadBitmap(File.DirAssets,"0.png"))
   ListView1.SingleLineLayout.Background=bd
   ListView1.SingleLineLayout.Label.TextColor=Colors.Black

   ListView1.SingleLineLayout.Label.TextSize=30
   ListView1.SingleLineLayout.ItemHeight=15%y
   Dim a As Typeface
   a=Typeface.LoadFromAssets("BYEKAN.ttf")
   ListView1.SingleLineLayout.Label.Typeface=a
   For i = 0 To cur.RowCount-1
   cur.Position=i
   ListView1.AddSingleLine2( cur.GetString("Fasl"),cur.GetInt("id"))
   ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
   Next
cur.close
End Sub

Sub Activity_Resume

End Sub


Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 Menu1.sql1.ExecNonQuery("DELETE FROM Tbl1 WHERE id='"&Value&"'")
       ListView1.RemoveAt(Position)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
   Menu1.Fasl=Value
   StartActivity(Mataleb)
End Sub

لطفا راهنمایی کنید بخدا خسته شدم ....!!

[نیما قبادی 246]

با سلام خدمت همه

عزیزم شما بجای اینکه هی کد بزارین کل فایل رو بزارین منظورم پروژه هستش تا این همه خودتون و دوستان گیج نشن

[shahab1392 47]

با سلام خدمت همه

عزیزم شما بجای اینکه هی کد بزارین کل فایل رو بزارین منظورم پروژه هستش تا این همه خودتون و دوستان گیج نشن

باز هم سلام

آقا نیمای عزیز این هم سورس پروژه ولی شرمنده هیچ گرافیکی نداره و بصورت کاملا ابتدایی هستش فقط می خوام علاقه مندی هاش درست بشه دیگه هیچ

سورس

ممنون میشم کمک کنید ؟؟؟