علاقه مندی

[alirezakazemizaroomi 437]

سلام

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

کدام اینطوریه:

کدای ساب گلوبالز:

Sub Globals
 Dim pat() As String
Private sql1 As SQL
Dim Stopint As Int=10%y
Private Cur1 As Cursor
Private Panel1 As Panel 
Private btdown As Button
Private ScrollView1 As ScrollView
End Sub

کد اکتیویتی کریت:

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scv")

If File.Exists(File.DirInternal,"film.db")=False Then
    File.Copy(File.DirAssets,"film.db",File.DirInternal,"film.db")
    End If

sql1.Initialize(File.DirInternal,"film.db",False)
    Cur1=sql1.ExecQuery("SELECT * From tbl33 WHERE id BETWEEN 1 AND 10 ")
    For i=0 To Cur1.RowCount-1
Cur1.Position=i
    Dim p As Panel
    p.Initialize("p")
    ScrollView1.Panel.AddView(p,0,Stopint,100%x,100%Y)
    Stopint=Stopint+25%x
    p.LoadLayout("pnl")
    Panel1.Color=Colors.RGB(3,36,72)
ScrollView1.Panel.Height=Stopint
    btdown.tag = Cur1.GetString("url") & "#" & Cur1.GetString("name") & "#" & Cur1.GetString("sal") & "#" & Cur1.Getint("fav") & "#" & Cur1.Getint("id")
    Panel1.tag = i
If Cur1.GetInt("fav") = 1 Then
    btdown.SetBackgroundImage( LoadBitmap(File.DirAssets,"zz.png"))
    Else
    btdown.SetBackgroundImage( LoadBitmap(File.DirAssets,"6.png"))
    End If
next
End Sub

کد دکمه علا قه مندیم اینه:

Sub btdown_Click

Dim ay As Button
    ay = Sender
Dim pat() As String = Regex.split("#",ay.tag)

If pat(3) = 1 Then     
Cur1=sql1.ExecQuery("SELECT * From tbl33 WHERE id BETWEEN 1 AND 50")
Cur1.Position =pat(4)
    sql1.ExecNonQuery("UPDATE tbl33 SET fav= 0 where id=" &pat(4))
    ay.SetBackgroundImage(LoadBitmap(File.DirAssets,"6.png"))
    ToastMessageShow("از لیست علاقه مندی ها حذف شد",False)
    Else
    Cur1=sql1.ExecQuery("SELECT * From tbl33 WHERE id BETWEEN 1 AND 50")
Cur1.Position =pat(4)
    sql1.ExecNonQuery("UPDATE tbl33 SET fav= 1 where id=" &pat(4))
    ay.SetBackgroundImage(LoadBitmap(File.DirAssets,"zz.png"))
    ToastMessageShow("به لیست علاقه مندی ها اضافه شد",False)
    End If
end sub

من داخل لایوت "scv" فقط ScrollView1 رو تعریف کردم؛وداخل لایوت"pnl" یه پنل به نام Panel1 تعریف کردم وداخل Panel1 دکمه btdown که دکمه علاقه مندیم هستو تعریف کردم.

ولی فقط میشه یکبار رو دکمه کلیک کرد و اون یکبار درست کار میکنه مثلا وقتی کلیک میکنی میگه به علاقه مندیها اضافه شد و اگه دوباره رو همون دکمه کلیک کنی بازم میگه به علاقه مندیها اضافه شد وباید از برنامه خارج بشی تا بتونی دوباره کلیک کنی،باید چیکارش کنم تادرست بشه؟

[مهدی ایزدی 9,203]

سلام

ببینید آقای ذاکر

از وقتی 0 بودید توی انجمن حواسم بهتون بود ... خیلی خوب پیشرفت کردید و واقعا مشخصه از آموزش ها استفاده کردید ! تبریک میگم از اون لحاظ !

 

جالب کار کردید فقط بهتون میگم کجا اشتباه کردید :

 

شما توی تگ دادن اومدید تگ و id رو به button دادید

بعد اومدید part3 رو گفتید برابر fav هست دیگه !

وقتی که میایید یک مطلب رو به علاقه مندی اضافه میکنید درسته fav = 1 میشه ولی اون part3 هنوز برابر 0 است درسته ؟؟؟

چرا هنوز برابر صفره ؟ چون توی activity create اومدی اون تگ رو بهش دادی 

پس این مشکله کارتونه

شما میتونید توی تگ فقط همون id رو به button بدید

وقتی روی button کلیک شد همون لحظه موقع کلیک کردن بیایید مقدار fav رو بخونید . با یک کوئری where id = shomareID راحت میتونی مقدار fav رو بخونی !

fav تغییر میکنه ولی id ثابته !

پس اشتباه کاره شما اینه که fav رو به tag دادید و از اون دارید توی part3 که ثابته استفاده میکنید

 

 

برید روش کار کنید. خیلی ساده هست

البته روش های دیگه ای هم هست . ولی الی احساب همین روشی که گفتمو میتونید پیش برید

 

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

 

موفق باشید

[mahdikam 35]

اقای ذاکر اگه مشکلتون حل شده لطفا کداتونو بزارید منم دقیقا مشکل شمارو دارم لطفا کمک کنید