رویداد های select وlongselect کار نمیکنن این کد های من :
Sub Globals
Dim arialist1 As AriaListView
Dim ad As AriaAdapterB4aLayout
Dim cur1 As Cursor
Dim sql1 As SQL
Private lblname1 As Label
Private picuser1 As ImageView
Private plist As Panel
Private lblvalue1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("lll")
File.Copy(File.DirAssets,"t.db",File.DirInternal,"t.db")
sql1.Initialize(File.DirInternal,"t.db",False)
cur1=sql1.ExecQuery("select * from testtabale")
arialist1.Initialize("aria")
Activity.AddView(arialist1,0%x,10%y,100%x,100%y)
ad.Initialize(cur1.RowCount-1).ToListView(arialist1)
End Sub
Sub aria_getview (rowView As Panel,Position As Int)
cur1.Position=Position
Dim p As Panel
p.Initialize("")
p.LoadLayout("Llist")
rowView.AddView(p,0%x,0%y,100%x,12.5%y)
lblname1.TextColor=Colors.Black
lblvalue1.TextColor=Colors.Black
lblname1.Typeface=Typeface.LoadFromAssets("Vazir-Light-persian-digits-overwrite.ttf")
lblvalue1.Typeface=Typeface.LoadFromAssets("Vazir-Light-persian-digits-overwrite.ttf")
lblname1.Text=cur1.GetString("namet")
lblvalue1.Text=cur1.GetString("number")
picuser1.Bitmap=LoadBitmap(File.DirAssets,cur1.GetString("pic"))
End Sub
Sub aria_select (ParentEventName As String,position As Int)
ToastMessageShow(position,False)
End Sub
Sub aria_longselect (ParentEventName As String,position As Int)
ToastMessageShow(position,False)
End Sub
وقتی رو لیست ویو کلیک میکنم حالت کلیک و لونگ کلیک به درستی رو هر قسمت اعمال میشه ولی تو ساب اتفاقی نمیوفته