Question

vb listview 怎样多列显示并写数据

怎样把一个ListView设置成三列并分别读取三个文本文档，把第一个文本文档按行（第一行写入第一列第一个，第二行写入第一列第二个……）写入第一列中，第二个文本文档写入第二列中，第三个文本文档写入第三列中。。。求源码

Answer 1

'入口参数；ListView1 是ListView控件对象.
'入口参数；HeadArray() 是个二维变体数组 0为文本,1为宽度值
'入口参数；IsCheckBoxes 是否要显示复选框
'功能；ListView 控件初始化为报表格式 可通用初始化ListView控件表头
Private Function ListViewInitialize(ByRef ListView1 As ListView, ByRef HeadArray() As Variant, ByVal IsCheckBoxes As Boolean)
On Error GoTo ONERROR
Dim itmX As ListItem
Dim clmX As ColumnHeader
Dim i As Long

ListView1.ListItems.Clear
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.BorderStyle = ccFixedSingle

Select Case IsCheckBoxes
Case Is = True
ListView1.CheckBoxes = True '是否显示复选框
End Select

For i = LBound(HeadArray) To UBound(HeadArray)
Set clmX = ListView1.ColumnHeaders.Add(, , HeadArray(i, 0), HeadArray(i, 1))
Next
Set itmX = Nothing
Set clmX = Nothing
Erase HeadArray
Exit Function
ONERROR:
If Err.Number <> 0 Then
Select Case Err.Number
Case Else
MsgBox "错误代码：" & Err.Number & " 错误描述：" & Err.Description, vbExclamation, "初始化"
End Select
End If
End Function

追问

。。。貌似不行

追答

传递数据进ListView控件中.我看错了.......

给你一个提示.修改这部分的代码即可.采用二维数组呀. 完整的代码就不发了.
For i = LBound(HeadArray) To UBound(HeadArray)
Set clmX = ListView1.ColumnHeaders.Add(, , HeadArray(i, 0), HeadArray(i, 1))
Next

http://wenku.baidu.com/view/2ce8e6084a7302768e993921.html?st=1 你可以下载它