how to set listview font color?
SetListViewSelectColor:
Sub SetListViewSelectColor(ListViewA As ListView,Color1 As Int)
private jo = listViewa作为javaObject'引用javaObject
Private cdw As ColorDrawable
Dim cdw As ColorDrawable
If Color1=1 Then Color1=Colors.RGB(128,0,128) 'Colors.Yellow
cdw.Initialize(Color1, 0)
jo.RunMethod("setSelector", Array(cdw))
End Sub