listview 问题 vb

按你的要求添加的补充：在ListView1的ItemClick事件中添加如下代码即可：

Text8.Text = Item.Index '按下某一行后在Text8显示按下的行数

Private Sub Command1_Click()

With ListView1.ListItems.Add '添加列表内容

.SubItems(1) = Text1.Text '将文本框Text1的内容显示在第一列

.SubItems(2) = Text2.Text

.SubItems(3) = Text3.Text

.SubItems(4) = Text4.Text

.SubItems(5) = Text5.Text

.SubItems(6) = Text6.Text

End With

End Sub

Private Sub Form_Load()

With ListView1

.View = lvwReport '设置ListItem对象的外观为“报表”形式

.FullRowSelect = True '允许选择整行内容

End With

With ListView1.ColumnHeaders

.Clear '清除原有的列标题

.Add , , , 0 '添加一空列，因为属性SubItems的下标是从1开始的，无此空列可能会出错

.Add , , "第一列", 1500 '添加第一列的标题名称：“第一列”为列标题名称1500为列宽，自己根据实际需要定

.Add , , "第二列", 1500

.Add , , "第三列", 1500

.Add , , "第四列", 1500

.Add , , "第五列", 1500

.Add , , "第六列", 1500

End With

End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

Text7.Text = Item.SubItems(1) '将第一列的内容显示在Text7中

Text8.Text = Item.Index '按下某一行后在Text8显示按下的行数

End Sub

注意：必须先添加列标题后才能够添加列内容。。。

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

---