Sub Globals
Dim Alistview As AriaListView
Dim Aadapter As AriaAdapterWithImage
Dim l1,l2,l3,l4 As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("aaa")
Alistview.Initialize("Alistview")
Activity.AddView(Alistview,0,0,100%x,100%y)
mainlist
End Sub
Sub Activity_Resume
End Sub
Sub mainlist
l1.Initialize
l2.Initialize
l3.Initialize
l4.Initialize
l1.Add("لیست اول")
l1.Add("لیست دوم")
l1.Add("لیست سوم")
l1.Add("لیست چهارم")
l2.Add("")
l2.Add("")
l2.Add("")
l2.Add("")
l3.Add(LoadBitmap(File.DirAssets,"buildings-1.png"))
l3.Add(LoadBitmap(File.DirAssets,"washing-machine.png"))
l3.Add(LoadBitmap(File.DirAssets,"mechanic.png"))
l3.Add(LoadBitmap(File.DirAssets,"car-repair.png"))
Alistview.SetDividerHeight(5)
Aadapter.Initialize(Aadapter.Layouts.LAYOUT_IMAGE_RIGHT,l1,l2,l3).ToListView(Alistview)
Aadapter.SetFont1(Typeface.LoadFromAssets("byekan.ttf"))
Aadapter.SetColor(Colors.ARGB(0,0,0,0),Colors.Gray,Colors.Red,Colors.ARGB(0,0,0,0),Colors.Gray,Colors.Blue)
End Sub
Sub list_select (ParentEventName As String,position As Int)
Select Case position
Case 0
StartActivity("list1")
Case 1
StartActivity("list2")
Case 2
StartActivity("list3")
Case 3
StartActivity("list4")
End Select
End Sub
تمام کدی ک من نوشتم برای کلیک list_select و باز اجرا نمیشه اینه