说明
下面的讲解中,只创建自定义的适配器类,如何使用请参考android中常用控件的使用之ListView
1.创建类MyListViewAdapter
创建类MyListViewAdapter,该类继承BaseAdapter,并实现其抽象方法:
1
2
3
4
int getCount()
Object getItem(int position)
long getItemId(int position)
View getView(int position,View convertView,ViewGroup parent)
getCount需要返回有多少个item,也就是说最会在listview中展示这么多行
getItem需要返回参数position位置的数据
getItemId返回position就行了
2.给MyListViewAdapter类添加成员变量和构造方法
两个成员变量
1
2
List<String>list
Context context
list表示要显示的数据,context变量在生成View对象时需要用到
构造方法:构造方法是为了给两个成员变量赋值
1
2
3
4
public MyListViewAdapter(List<String>list , Context context) {
this.list = list
this.context = context
}
3.给getCount,getItem,getItemId方法添加代码
getCount需要返回有多少个item,也就是说最会在listview中展示这么多行,所以返回list.size
getItem需要返回参数position位置的数据,也就是list中第position项的值list.get(position)
getItemId返回position就行了
1
2
3
4
5
6
7
8
9
10
11
12
13
14
@Override
public int getCount() {
return list.size()
}
@Override
public Object getItem(int position) {
return list.get(position)
}
@Override
public long getItemId(int position) {
return position
}
4.给getView方法添加代码
getView方法是返回位置为position的View对象,第二个参数convertView考虑到资源重用问题,在上下滑动的过程中,需要显示某项的时候才会调用getView方法,而如果有某项被隐藏不显示,就会把不显示那一行的View作为convertView参数传入,如果没有某项被隐藏,convertView值为null。可以通过下面代码中的if(convertView!=null)中的输出来看哪一行被隐藏了。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
@Override
public View getView(int position, View convertView, ViewGroup parent) {
System.out.println("调用getView方法,显示position="+position+"项")
if(convertView!=null){
TextView t = (TextView) convertView.findViewById(R.id.firstTextView)
System.out.println(t.getText())
}else{
LayoutInflater layoutInflater = (LayoutInflater) context.getSystemService(Context.LAYOUT_INFLATER_SERVICE)
convertView = layoutInflater.inflate(R.layout.item_mylistviewadapter, null)
}
TextView t = (TextView)(convertView.findViewById(R.id.firstTextView))
t.setText(list.get(position))
if(position%2==0)
{
t.setBackgroundColor(Color.WHITE)
}
else{
t.setBackgroundColor(Color.GRAY)
}
return convertView
}
补充:通过xml生成View对象
通过Context对象生成一个LayoutInflater对象
调用LayoutInflater对象的inflate方法生成控件对象,inflate方法的第一个参数为xml文件,第二个参数一般为null。返回值为该xml文件最外层的标签对象。
1
2
LayoutInflater layoutInflater =(LayoutInflater)context.getSystemService(Context.LAYOUT_INFLATER_SERVICE)
LinearLayout convertView =(LinearLayout)layoutInflater.inflate(R.layout.item_mylistvie
源代码下载
pan.baidu.com/s/1ntuQDdv
ListView控件数据 *** 作一、添加表头和数据在窗口显示数据时,经常会用到ListView这个控件,虽然也可以使用ListBox,但其功能还是比较弱一些,ListView相对用起来更顺手一些。下面的两个函数是给控件添加表头和数据的函数,贴出来供大家参考。
函数代码给ListView添加数据,数据可以为数组或单行数据(逗号分隔)
Public Sub AddListViewData(ListViewName As Object, DateArr, Optional Header As Integer = 0, Optional AddData As Boolean = False)
'添加ListView数据,正常为数组,支持单行数据添加(逗号分隔)
'第一行数据为标题行时,Header应为1
'默认为替换数据,如果需要在原有数据基础上添加时,AddData应为True
Dim i As Integer, j As Integer
Dim DateCol() As String
Dim Itm As Object
Dim PartKey As String
If Not AddData Then ListViewName.ListItems.Clear
If IsArray(DateArr) Then
For i = LBound(DateArr) + Header To UBound(DateArr)
Set Itm = ListViewName.ListItems.Add()
Itm.Text = DateArr(i, LBound(DateArr, 2))
For j = LBound(DateArr, 2) + LBound(DateArr) To UBound(DateArr, 2)
Itm.SubItems(j - LBound(DateArr)) = DateArr(i, j)
Next
Next
Else
If IsEmpty(DateArr) Or DateArr = "没有记录" Then Exit Sub
DateCol = Split(DateArr, ",")
Set Itm = ListViewName.ListItems.Add()
Itm.Text = DateCol(LBound(DateCol))
For i = LBound(DateCol) + LBound(DateArr) To UBound(DateCol)
Itm.SubItems(i - LBound(DateArr)) = DateCol(i)
Next
End If
End Sub
给ListView添加表头,支持直接给定宽度和额外增加的宽度
Public Sub AddListViewHead(ListViewName As Object, ColHeader, Optional ColWidth As String, Optional AddWidth As Integer = 5, Optional DefultWidth As String = "Auto")
Dim SpHeader() As String
Dim SpWidth() As String
Dim SpAlign() As String
Dim CW As Integer
Dim CA As Integer
Dim i As Integer
ListViewName.ColumnHeaders.Clear
ListViewName.ListItems.Clear
SpWidth = Split(ColWidth, ",")
If UBound(SpWidth) = 0 Then CW = Val(ColWidth)
With ListViewName
If IsArray(ColHeader) Then
For i = LBound(ColHeader, 2) To UBound(ColHeader, 2)
If i <= UBound(SpWidth) Then CW = Val(SpWidth(i)) Else CW = IIf(DefultWidth = "Auto", 0, CW)
If CW >= 0 And CW <Len(StrConv(ColHeader(0, i), vbFromUnicode)) * 15 + AddWidth Then CW = Len(StrConv(ColHeader(0, i), vbFromUnicode)) * 15 + AddWidth
If CW <0 Then CW = 0
.ColumnHeaders.Add , , ColHeader(0, i), CW
Next
Else
If ColHeader = " *** 作不成功" Then Exit Sub
SpHeader = Split(ColHeader, ",")
For i = LBound(SpHeader) To UBound(SpHeader)
If i <= UBound(SpWidth) Then CW = Val(SpWidth(i)) Else CW = IIf(DefultWidth = "Auto", 0, CW)
If CW >= 0 And CW <LenB(StrConv(SpHeader(i), vbFromUnicode)) * 7.5 + AddWidth Then CW = LenB(StrConv(SpHeader(i), vbFromUnicode)) * 7.5 + AddWidth
If CW <0 Then CW = 0
.ColumnHeaders.Add , , SpHeader(i), CW
Next
End If
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
End With
End Sub
调用例子
Sub FormLoad()
AddListViewHead 列表, Range("A1:D1").Value
tmp = SumArrRow(Range("a1:c4").Value, "1,3", True)
AddListViewData 列表, tmp
End Sub
我不知道你这个难点在哪里,描述太少了。如果是在viewpager中要动态的添加View(你这里是ListView),那么你只要改变pagerAdapter的数据源List<View>,然后调用adapter.notisfyDataSetChanged()就好了。
如果是说ListView里面的数据要动态改变,你可以先把这个ListView添加到数据源List<View>里,然后写一个ListView的持有 (ListViewHolder)类,构造方法里需要一个handler和一个context。ListViewHolder负责处理listView的相关数据加载之类的就好了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)