مشکل در لانگ کلیک لیست ویو

[goodarzi 5]

سلام

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

An error has occurred in sub:list_listview1_itemlongclick (java line: 413)
java.lang.ClassCastException: anywheresoftware.b4a.objects.ListViewWrapper$SimpleListView cannot be cast to android.widget.Button
Continue?

[Nemesis 1,846]

نمومه کد رو بذار

[goodarzi 5]

نمومه کد رو بذار

Sub ListView1_ItemLongClick (Position As Int, Value As Object)
	Dim s As Button
s=Sender
 
 Dim cur As Cursor
 cur=S.ExecQuery("SELECT * FROM q12 WHERE Fasl="& s.Tag)
 cur.Position=0
 
 If cur.GetInt("Neshan")=0 Then

 
s.ExecNonQuery("UPDATE q12 SET Neshan=1 WHERE Fasl="& s.Tag)
ListView1.SingleLineLayout.Background=background1
 
 Else
 
ListView1.SingleLineLayout.Background=background1

 
 s.ExecNonQuery("Update q12 SET Neshan=0 WHERE Fasl="& s.Tag)
 ListView1.SingleLineLayout.Background=background2
 
End If
End Sub