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

怎样把一个ListView设置成三列并分别读取三个文本文档,把第一个文本文档按行(第一行写入第一列第一个,第二行写入第一列第二个……)写入第一列中,第二个文本文档写入第二... 怎样把一个ListView设置成三列并分别读取三个文本文档,把第一个文本文档按行(第一行写入第一列第一个,第二行写入第一列第二个……)写入第一列中,第二个文本文档写入第二列中,第三个文本文档写入第三列中。。。求源码 展开
 我来答
wu_kang_lin
2012-02-18 · TA获得超过170个赞
知道小有建树答主
回答量:490
采纳率:50%
帮助的人:315万
展开全部
'入口参数;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 你可以下载它
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式