این هم کد :
For i = 0 To cur.RowCount-1
cur.Position=i
title.Add(cur.GetString("title"))
subtitle.Add("برای افزودن کلیک کنید")
pic.Add(AdaptorAria.getAssetsFullAddress("t_logo.png"))
value1.Add(cur.GetString("value"))
Next
AdaptorAria.Initialize(AdaptorAria.Layouts.LAYOUT_IMAGE_LEFT,title,subtitle,pic).ToListView(AriaListView)
AdaptorAria.SetColor(Colors.White,Colors.Black,Colors.Gray,Colors.White,Colors.Black,Colors.Gray)
AdaptorAria.SetFont1(Typeface.LoadFromAssets("iran_sans_light.ttf"))
AdaptorAria.SetFont2(Typeface.LoadFromAssets("iran_sans_light.ttf"))
فونت که عوض نشد رنگ هم همین طور .
همچنین گفتید برای Value از یک لیست استفاده کنم . خب استفاده کردم و مقدار Value ها رو هم از دیتابیس گرفتم ولی توی Sub List_select که ما فقط Position As Int رو داریم . چطوری از Value به جای Position استفاده کنم ؟:|
Sub list_select (position As Int)
If value1=1 Then
End If
End Sub
اینجوری که نمیشه استفاده کرد :|