oftadeh66

چطور سورسی

کد هارو کپی هم کردم از رو اموزش اما نشد که نشد

Main.cur.Position=0 Dim chek As Int Main.cur.GetString("Song") If chek = 1 Then Main.sql1.IsInitialized Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 0 WHERE song=" & Main.cur.GetInt("Song")) Dim b As Bitmap b.Initialize(File.DirAssets,"fave.png") Button1.SetBackgroundImage(b) ToastMessageShow("از علاقه مندی ها حذف شد! !!!",False) Else Main.sql1.IsInitialized Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 1 WHERE song=" & Main.cur.GetInt("Song")) Dim b As Bitmap b.Initialize(File.DirAssets,"fave1.png") Button1.SetBackgroundImage(b) ToastMessageShow("به علاقه مندی ها اضافه شد!!!", False) End If این کد رو دیگه کپی کردم از رو اموزش ساخت کتاب اما بلز برگشتم سر خونه اول باید چیکار کنم دیگه کمک کنید لطفا

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

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

Main.cur = Main.sql1.ExecQuery("SELECT * FROM tbl_song where id_song=" & Main.adad) For i = 0 To Main.cur.rowcount - 1 Main.cur.Position = i Dim Fav As Int= Main.cur.GetInt("Fav") Dim adad As Int=Main.cur.GetInt("Song") If Fav = i Then Main.sql1.IsInitialized Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 0 WHERE id_song=" & adad) Dim b As Bitmap b.Initialize(File.DirAssets,"fave.png") Button1.SetBackgroundImage(b) ToastMessageShow("از علاقه مندی ها حذف شد! !!!",False) Else Main.sql1.IsInitialized Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 1 WHERE id_song=" & adad) Dim b As Bitmap b.Initialize(File.DirAssets,"fave1.png") Button1.SetBackgroundImage(b) ToastMessageShow("به علاقه مندی ها اضافه شد!!!", False) End If Next

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

Main.cur = Main.sql1.ExecQuery("SELECT * FROM tbl_song") Main.cur.Position = 0 Dim Fav As Int= Main.cur.GetInt("Fav") Dim adad As Int=Main.cur.GetInt("Song") If Fav = 1 Then Main.sql1.IsInitialized Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 0 WHERE id_song=" & adad) Dim b As Bitmap b.Initialize(File.DirAssets,"fave.png") Button1.SetBackgroundImage(b) ToastMessageShow("از علاقه مندی ها حذف شد! !!!",False) Else Main.sql1.IsInitialized Main.sql1.ExecNonQuery("UPDATE tbl_song SET Fav = 1 WHERE id_song=" & adad) Dim b As Bitmap b.Initialize(File.DirAssets,"fave1.png") Button1.SetBackgroundImage(b) ToastMessageShow("به علاقه مندی ها اضافه شد!!!", False) End If

سلام ارور که ندارم اما الان کد میزارم If File.Exists(File.DirInternal,"book.db") = False Then File.Copy(File.DirAssets,"book.db",File.DirInternal,"book.db") End If If Main.Sql1.IsInitialized = False Then Main.sql1.Initialize(File.DirInternal,"book.db",False) End If cur = Main.Sql1.ExecQuery("select * from tbl_song where Fav = 1") For i = 0 To cur.RowCount-1 cur.Position=i favlist.AddSingleLine(cur.GetString("Name_song")) Dim Backlist As BitmapDrawable Backlist.Initialize(LoadBitmap(File.DirAssets,"btn.png")) favlist.SingleLineLayout.Background = Backlist favlist.SingleLineLayout.ItemHeight=14%y Dim l As Label l = favlist.SingleLineLayout.Label l.Gravity = Gravity.CENTER l.TextColor = Colors.Black l.Left = l.Left-0.6 l.Top=-1%y l.TextSize = 20

بله دوسته من شرط گذاشتم میگم از رو اموزش ها هم چند بار چک کردم مثلا همچی اوکیه

سلام دوستان و اساتید بنده یه کتاب نوشتم که قسمت علاقمندی هاش سیو نمیمونه نمیدونم مشکل از کجاس از رو اموزش 0تا 100 هم چند بار چکش کردم به نظر همه چی درسته اما بازار همه رو ول کرده به این گیر داده کمک کنید ممنون میشم