سلام یه مشکلی برای علاقمندی مولتی پنل دارم اینه که وقتی روی باتن کلیک میکنم به لیست علاقمندی ها اضافه میشه و وقتی دوباره روش کلیک میکنم دیگه کاری انجام نمیده تا اینکه از اکتیویتش میام بیرون و باز میرم داخلش اونوقت از علاقمندی ها حذف میکنه و باز با کلیک دوباره کاری نمیکنه تا باز از اکتیویتش بیام بیرون ...
Sub Panel1_Click
Dim p As Panel
p = Sender
Dim parts() As String = Regex.split("#",p.tag)
StartActivity(matn)
End Sub
و برای باتن علاقه کدها به صورت زیر
Sub Button1_Click
For i = 0 To cursor1.RowCount -1
cursor1.Position = i
Next
Dim check As Int
check = khaterat.parts(1)
If check = 1 Then
sql1.ExecNonQuery("UPDATE por SET f = 0 WHERE id = "&khaterat.parts(0))
sql1.IsInitialized
cursor1 = sql1.ExecQuery("SELECT * FROM por")
ToastMessageShow("از علاقه مندی ها حذف شد",False)
Else
sql1.ExecNonQuery("UPDATE por SET f = 1 WHERE id = "&khaterat.parts(0))
sql1.IsInitialized
cursor1 = sql1.ExecQuery("SELECT * FROM por")
ToastMessageShow("به علاقه مندی ها اضافه شد",False)
End If
End Sub
سوال
porya 959
سلام یه مشکلی برای علاقمندی مولتی پنل دارم اینه که وقتی روی باتن کلیک میکنم به لیست علاقمندی ها اضافه میشه و وقتی دوباره روش کلیک میکنم دیگه کاری انجام نمیده تا اینکه از اکتیویتش میام بیرون و باز میرم داخلش اونوقت از علاقمندی ها حذف میکنه و باز با کلیک دوباره کاری نمیکنه تا باز از اکتیویتش بیام بیرون ...
ممکنه بنده رو راهنمایی کنید
اینم از کدها
و برای باتن علاقه کدها به صورت زیر
لینک ارسال
به اشتراک گذاری در سایت های دیگر
28 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.